anun1

viernes, 30 de octubre de 2015

Codigo Fuente Del Sudoku En Visual Basic 6

Hola amigos aqui les traigo el codigo fuente de mi sudoku hecho en VB6
abajo en contraran el link de descarga, por otro lado el rar cuenta con un activex el chamaleon para crear botones personalizados en visual basic

1-Agregamos 81 textbox

2- Agregamos 2 ChameleonBtn1





Option Explicit
Dim matrix(8, 8) As Integer
Private Sub ChameleonBtn1_Click()
Randomize
Dim vector(9), x, y, r, a, z As Integer

For x = 0 To 8
   vector(x) = x + 1
Next x

x = x - 1
y = 0

Do While x > -1
   r = Int((x - 0 + 1) * Rnd + 0)
   matrix(0, y) = vector(r)
   For a = r To x
      vector(a) = vector(a + 1)
   Next a
   x = x - 1
   y = y + 1
Loop

'1
 matrix(1, 0) = matrix(0, 3)
 matrix(1, 1) = matrix(0, 4)
 matrix(1, 2) = matrix(0, 5)
 '2
 matrix(2, 0) = matrix(0, 6)
 matrix(2, 1) = matrix(0, 7)
 matrix(2, 2) = matrix(0, 8)
 
 '3
 matrix(1, 3) = matrix(0, 6)
 matrix(1, 4) = matrix(0, 7)
 matrix(1, 5) = matrix(0, 8)
 '4
 matrix(2, 3) = matrix(0, 0)
 matrix(2, 4) = matrix(0, 1)
 matrix(2, 5) = matrix(0, 2)
 
 '5
 matrix(1, 6) = matrix(0, 0)
 matrix(1, 7) = matrix(0, 1)
 matrix(1, 8) = matrix(0, 2)
 '6
 matrix(2, 6) = matrix(0, 3)
 matrix(2, 7) = matrix(0, 4)
 matrix(2, 8) = matrix(0, 5)
 
 '7
 matrix(3, 0) = matrix(0, 1)
 matrix(3, 1) = matrix(0, 2)
 matrix(3, 2) = matrix(1, 0)
 '8
 matrix(4, 0) = matrix(1, 1)
 matrix(4, 1) = matrix(1, 2)
 matrix(4, 2) = matrix(2, 0)
 '9
 matrix(5, 0) = matrix(2, 1)
 matrix(5, 1) = matrix(2, 2)
 matrix(5, 2) = matrix(0, 0)
 
 '10
 matrix(3, 3) = matrix(4, 0)
 matrix(3, 4) = matrix(4, 1)
 matrix(3, 5) = matrix(4, 2)
 '11
 matrix(4, 3) = matrix(5, 0)
 matrix(4, 4) = matrix(5, 1)
 matrix(4, 5) = matrix(5, 2)
 '12
 matrix(5, 3) = matrix(3, 0)
 matrix(5, 4) = matrix(3, 1)
 matrix(5, 5) = matrix(3, 2)
 
 '13
 matrix(3, 6) = matrix(5, 0)
 matrix(3, 7) = matrix(5, 1)
 matrix(3, 8) = matrix(5, 2)
 '14
 matrix(4, 6) = matrix(3, 0)
 matrix(4, 7) = matrix(3, 1)
 matrix(4, 8) = matrix(3, 2)
 '15
 matrix(5, 6) = matrix(4, 0)
 matrix(5, 7) = matrix(4, 1)
 matrix(5, 8) = matrix(4, 2)
 
 '16
 matrix(6, 0) = matrix(3, 1)
 matrix(6, 1) = matrix(3, 2)
 matrix(6, 2) = matrix(4, 0)
 '17
 matrix(7, 0) = matrix(4, 1)
 matrix(7, 1) = matrix(4, 2)
 matrix(7, 2) = matrix(5, 0)
 '18
 matrix(8, 0) = matrix(5, 1)
 matrix(8, 1) = matrix(5, 2)
 matrix(8, 2) = matrix(3, 0)
 
 '19
 matrix(6, 3) = matrix(7, 0)
 matrix(6, 4) = matrix(7, 1)
 matrix(6, 5) = matrix(7, 2)
 '20
 matrix(7, 3) = matrix(8, 0)
 matrix(7, 4) = matrix(8, 1)
 matrix(7, 5) = matrix(8, 2)
 '21
 matrix(8, 3) = matrix(6, 0)
 matrix(8, 4) = matrix(6, 1)
 matrix(8, 5) = matrix(6, 2)
 
 '22
 matrix(6, 6) = matrix(8, 0)
 matrix(6, 7) = matrix(8, 1)
 matrix(6, 8) = matrix(8, 2)
 '23
 matrix(7, 6) = matrix(6, 0)
 matrix(7, 7) = matrix(6, 1)
 matrix(7, 8) = matrix(6, 2)
 '24
 matrix(8, 6) = matrix(7, 0)
 matrix(8, 7) = matrix(7, 1)
 matrix(8, 8) = matrix(7, 2)
 
 z = 0
 For x = 0 To 8
    For y = 0 To 8
       r = Int((1 - 0 + 1) * Rnd + 0)
       If r = 0 Then
          celda(z) = ""
       Else
          celda(z) = matrix(x, y)
       End If
       z = z + 1
    Next y
 Next x
End Sub

Private Sub ChameleonBtn2_Click()
Dim c, x, y, z As Integer

c = 0
z = 0
For x = 0 To 8
    For y = 0 To 8
     If celda(z) <> "" Then
        If celda(z) = matrix(x, y) Then
           c = c + 1
        End If
     End If
      z = z + 1
    Next y
 Next x
If c = 81 Then
   MsgBox "Sudoku Correctamente", , "Felisidades"
Else
   MsgBox "Sudoku Incorrecto...", , ""
End If
End Sub

Private Sub Form_Load()
Dim x As Integer

For x = 0 To 80
   celda(x) = ""
   celda(x).MaxLength = 1
Next x
End Sub


Descargar el codigo:  http://www.mediafire.com/download/kyh32x4l2n60ox6/Sudoku.rar

Saludos Flamer

martes, 30 de junio de 2015

Crear archivos EXE con VBScript

Hola amigos aqui vengo con otro videotutorial en el cual explico las razones por las cuales no habia publicado, y con respecto a este vídeo en el explico como construir o como generar cualquier archivo con tan solo tener su volcado de bits.


diran que es muy sensillo todo esto pero mas adelante subire un video un poco mas avanzado

descargar codigo:
http://www.mediafire.com/download/dwnn3dljw1oq8in/Archivos+Del+Video+11.rar

descargar video:
https://mega.nz/#!YEgRQJwL!TbCtTPt6FVJJghOTj65ocBQg08iben61S3LAooq9p9U

saludos Flamer

viernes, 6 de marzo de 2015

Quitar Error En Archivo Comprimido Con UPX

hola de nuevo en este nuevo vídeo les enseñare como poner y quitar el error en los archivos comprimidos con UPX, esto sucede al querer descomprimirlos con la opcion de -d de UPX







Link De Mi Programa y El Codigo Fuente:
http://www.mediafire.com/download/fiadbgwbauns4bf/Archivos+Del+Video+6.rar

Bueno saludos Flamer y que la pasen bien...link del vídeo:
https://mega.nz/#!UJAXjLAQ!43jkP3PcCfmb-QfitVs3QhVX9cfWUBVovA33tQUe0kQ

lunes, 9 de febrero de 2015

Usando Las Apis ReadProcessMemory y WriteProcessMemory

En este vídeo tutorial les enseñare como usar las Apis WriteProcessMemory y ReadProcessMemory, en el cual usaremos el bloc de notas para escribir en el con la Api WriteProcessMemory y leer lo que contiene el bloc de notas con la Api  ReadProcessMemory,

Donde usaremos el Visual Basic 6 como lenguaje de programación y cheat engine para buscar la dirección de memoria donde se almacenan los datos.

Nota: si no tienes el cheat engine lo puedes descargar desde http://www.cheatengine.org/ su pagina oficial


Link del codigo:

jueves, 5 de febrero de 2015

Bienbenida

Bienvenido


Hola empiezo por presentarme soy Flamer del foro el hacker net y he creado este blog para compartir un poco de mis conocimientos de ingeniería inversa, pero les aclaro no solo hablare de ingeniería inversa también hablaremos de otros temas.

una cosa muy importante quiero aclararles y ya se que mucho que me conocen en el foro el hacker.net lo saben y me han aconsejado remediarlo, pero yo como soy muy desidioso no loe hecho y es que soy malo con la ortografía,

si tu lector estas leyendo esto y quieres seguir leyendo mi blog atente a la ortografía, y discúlpame por ella no lo hago con intención.

pero si quiero que me recuerden por ella

Que se la pasen bien y se diviertan.... y el objetivo principal de la escritura es comunicarnos y creo que lo estoy haciendo, es lo que nos distingue de las maquinas la sintaxis no tiene que ir corracta


Nota Muy Importante: No realizo cracks de programas comerciales, pienses en los creadores de esos programas

Saludos Flamer y que se diviertan