Mensajes

Leete este documento: http://www.securityfocus.com/infocus/1893
Y trata de adaptar el código a Visual Basic 6. Yo adapte muchos de los puntos allí tratados, pero otros son imposibles.
Podes utilizar el API GetTickCount para hallar diferencias de microtiempos. Podes también utilizar el API DebugActiveProcess junto con OpenEvent, WaitForDebugEvent, OpenProcess, ContinueDebugEvent.
Al igual que el anterior link también te recomiendo leer este: http://74.125.113.132/search?q=cache:eV2P8nju4V4J:http://gim.org.pl/Windows_Anti_Cracking_techniques_english.html+SIVDEBUG+anti+debug&hl=es&ct=clnk
Disculpa que la información esté en cache pero el servidor parece caido. Esa información que hallas ahí es importante.
Saludos

HackPollo, parece que te ownearon la página de san franciso del rincón.

Mmm, no, no está abandonado, lo que pasa es que ahora hay menos actividad en la página, entonces Cicklow, que es el administrador, ya no sube ninguna noticia, porque quién la va a leer?, igualmente allí están las dos páginas (www.binari0s1.com.ar y www.binari0s2.com.ar) con los retos activos y listos para quien desee registrarse y entretenerse un momento.
saludos

Si te interesa podes ver este link: http://foro.elhacker.net/programacion_vb/winsock_protocolos_mas_usados_version_1_http-t186798.0.html
Saludos

Acabe de bajarme un programa "msn password recovery" y lo desemsamble, y esto es lo que utiliza para cargar los usuarios y las claves:
CryptUnprotectData - Crypt32.dll
CredEnumerateA "Passpor.Net\*"
CredReadA
CredFree
CredEnumerateW
WindowsLive:name=*

Puede servirte, así que no sé, busca que es por ahí.
Saludos

Editado:
Mira este post:
http://pabloacastillo.wordpress.com/2008/03/22/obtener-contrasena-del-msn-en-el-pc-get-msn-passwords-from-your-local-pc/

Si estas introduciendo solo texto para que haces uso del modo binario?
Usa el output y con binario revisa que hagas todo bien.
for binary access write as canal
put #canal,,datos
Si no hay mucho problema, podes colocar el code, porque de verdad te ayudaría más fácil con el code. Al menos la parte donde metes el contenido.
saludos

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
Dim P As New PropertyBag, P1 As Long, Temp 'Declaramos P como propertybag (Bolsa de propiedades)
P.WriteProperty "Titulo", Text1.Text 'Escribimos en dicha bolsa una propiedad "Titulo" con el texto que contiene text1.text
P.WriteProperty "Msgbox", Text2.Text 'Igualmente escribimos la propiedad "Msgbox" con el texto que contiene text2.text
FileCopy App.Path & "\fuente.exe", App.Path & "\compilado.exe" 'Copiamos "Fuente.exe" previamente compilado a "compilado.exe"
Open App.Path & "\compilado.exe" For Binary As #1 'Abrimos el archivo compilado en modo binario
P1 = LOF(1) 'p1 es la longitud del archivo que acabamos de abrir (1) 1 es el canal, igualmente se pordía haber hecho, dim canal%: canal=freefile: p1=lof(canal)
Temp = P.Contents 'Temp igual a todo el contenido de la bolsa de propiedades. msgbox + titulo
Seek #1, LOF(1) 'Posicionamos el puntero de escritura al final del archivo
Put #1, , Temp 'Guardamos la bolsa de propiedades
Put #1, , P1 'guardamos el tamaño del archivo inicial
Close #1 'cerramos el canal
End Sub


Y fuente.exe. Fuente.exe no se debe abrir porque no contiene datos guardados (Los que guardamos con compilador.exe) y por eso lanza error. Primero generamos fuente.exe, luego con compilador.exe "creamos" el ejecutable, y el ejecutable producido "compilado.exe" es el que se puede abrir.

Código (vb) [Seleccionar] Expandir


Dim P As New PropertyBag, Mensaje 'Declaramos la variable para todo el form P como propertybag
Private Sub Command1_Click()
MsgBox Mensaje
End Sub

Private Sub Form_Load()
Dim P1 As Long, Temp, ByteArray() As Byte
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1 'Abrimos compilado.exe generado por compilador.exe
Get #1, LOF(1) - 3, P1 'obtenemos la longitud del archivo fuente.exe, antes guardada con compilador.exe
Seek #1, P1 'posicionamos el puntero de lectura al final del archivo fuente.exe contenido en compilado.exe
Get #1, , Temp 'y el resto lo metemos en la variable temp
ByteArray = Temp 'guardamos el contenido en bytearray
P.Contents = ByteArray 'y asignamos al contenido del propertybag lo que leimos
Close #1 'cerramos el canal de lectura
Mensaje = P.ReadProperty("Msgbox") 'la variable mensaje es igual al contenido de la propiedad msgbox
Me.Caption = P.ReadProperty("Titulo") 'el título de la ventana es igual al contenido de la propiedad titulo
End Sub

Como ves es fácil. Alguna duda lanzala.
Saludos

Mira este pequeño ejemplo:

Código (vb) [Seleccionar] Expandir


Private Sub Command2_Click()
Command1.Enabled = False
SaveSetting "ejemplo", "boton", "habilitado", "0"
End Sub

Private Sub Command3_Click()
Command1.Enabled = True
SaveSetting "ejemplo", "boton", "habilitado", "1"
End Sub

Private Sub Form_Load()
If GetSetting("ejemplo", "boton", "habilitado") = "0" Then
    Command1.Enabled = False
End If
End Sub

SaveSetting guarda un valor en el registro del sistema.
GetSetting retorna valores del registro del sistema.
Command2 deshabilita el botón
Command3 habilita el botón

Para deshabilitar el botón cada vez que se inicia la aplicación retornamos el valor en el registro de la clave habilitado, y si es igual a cero (Que anteriormente se definió con command2) entonces el botón quedará inhabilitado)

Saludos

Vb decompiler pro, te lo podes bajar por ahí crackeado, te muestra todo el código del ejecutable pero interpretado, tenes que saber un toque de asm para poder entenderlo.
Saludos

Mira a ver si esto te puede ayudar http://foro.elhacker.net/programacion_vb/crear_ejecutables_desde_un_form_de_v_basic_6-t176915.0.html;msg841839#msg841839
Saludos

Deberías leer un poco sobre el protocolo FTP.
http://tools.ietf.org/html/rfc959

La cosa sería algo así:
Winsock.connect "ftp.es.geocities.com",21
'acá se tiene que esperar a que conecete
'luego
'responde: 220 ProFTPD 1.2.10 Server (ProFTPD Default Installation)
Winsock.senddata "user HaDeX0r"
'responde: 331 Password required for HaDeX0r.
Winsock.senddata "PASS ******"
'230 User HaDeX0r logged in.
Winsock.senddata "PASV"
'227 Entering Passive Mode modo pasivo, servidor a la espera de conexiones y transferencias
Winsock.senddata "STOR pagina.txt"
'150 Opening ASCII mode data connection for pagina.txt Le dice al servidor que acepte el archivo y lo guarde
'226 Transfer complete.

Bueno, Sobra decir que es a groso modo lo que se hace, porque no quiero entrar con tecnisismos porque el protocolo es muy amplio, así que estudiatelo y si no entendes mira varios ejemplos que de seguro lo entendes rápido.

Saludos