[Aportes indexados] Anti-Keylogger Universal

Estado
Cerrado para nuevas respuestas.
^[GS]^

^[GS]^

GS-Zone Admin
Miembro del equipo
Administrador
Moderador
Funcionamiento: Lo que hace es agarrar lo que fue escrito por el teclado mediante un API, y envía después mensajes falsos, o sea, el keyggen interpreta lo que fue escrito por el teclado, lo que hacemos es mandarle mensajes falsos asi no lee lo que en verdad escribimos.
Haz clic para expandir...

Código: 
Private Declare Function VkKeyScan Lib "user32" Alias "VkKeyScanA" (ByVal cChar As Byte) As Integer
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Integer, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
Function RandomNumber(ByVal LowerBound As Single, ByVal UpperBound As Single) As Single
Randomize Timer
RandomNumber = (UpperBound - LowerBound) * Rnd + LowerBound
End Function
 
'***************************************  
'*  Name         - txtPassword_Change
'*  Author       - GS
'*  Date         - 27 Dic 2005
'*************************************** 
 
Private Sub txtPassword_Change()
txtPassword.Locked = True
Dim LoopC As Byte, i As Byte
LoopC = RandomNumber(3, 254)
i = 0
Do While LoopC > i
    Call keybd_event(VkKeyScan(RandomNumber(32, 126)), 0, 0, 0)
    i = i + 1
Loop
DoEvents       ' IMPORTANTE: No quitar este DoEvents!
txtPassword.Locked = False
End Sub
Mi codigo mas reciente ;)

Nota del Moderador (Zion!): Agregue el funcionamiento del código el día 31/07/2011.
 
T

Tavo

[color=#BF0000]Lucha por tus ideales![/color]
Yo te lo explico, lo que hace es agarrar lo que fue escrito por el teclado mediante un API, y envia despues mensajes falsos, o sea, el keyggen interpreta lo que fue escrito por el teclado, lo que hacemso es mandarle mensajes falsos asi no lee lo que en verdad escrivimos.
 
P

patoruzu

Newbie Lvl 1
Perdon con mi ignorancia absoluta del tema, pero que hago con eso? Si me pueden ayudar les agradezco porque estoy buscando un anti keylogger
 
Hello

Hello

Oráculo Lvl 6
Off: SUPER MEGA REVIVIDO XD XD XD XD


esto [vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> txtPassword_Change<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">txtPassword.<span style="color: #66cc66;">Locked</span> = <span style="color: #b1b100;">True</span></li><li style="" class="li2"><span style="color: #b1b100;">Dim</span> LoopC <span style="color: #b1b100;">As</span> Byte, i <span style="color: #b1b100;">As</span> Byte</li><li style="" class="li1">LoopC = RandomNumber<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">3</span>, <span style="color: #cc66cc;">254</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">i = <span style="color: #cc66cc;">0</span></li><li style="" class="li2"><span style="color: #b1b100;">Do</span> <span style="color: #b1b100;">While</span> LoopC > i</li><li style="" class="li1">    <span style="color: #b1b100;">Call</span> keybd_event<span style="color: #66cc66;">(</span>VkKeyScan<span style="color: #66cc66;">(</span>RandomNumber<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">32</span>, <span style="color: #cc66cc;">126</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span>, <span style="color: #cc66cc;">0</span>, <span style="color: #cc66cc;">0</span>, <span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">    i = i + <span style="color: #cc66cc;">1</span></li><li style="" class="li2"><span style="color: #b1b100;">Loop</span></li><li style="" class="li1"><span style="color: #b1b100;">DoEvents</span>       <span style="color: #808080;">' IMPORTANTE: No quitar este DoEvents!</span></li><li style="" class="li1">txtPassword.<span style="color: #66cc66;">Locked</span> = <span style="color: #b1b100;">False</span></li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li></ol></div>[/vb]

en el frmconnect..


y esto [vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Declare</span> <span style="color: #b1b100;">Function</span> VkKeyScan Lib <span style="color: #ffffff;">"user32"</span> Alias <span style="color: #ffffff;">"VkKeyScanA"</span> <span style="color: #66cc66;">(</span>ByVal cChar <span style="color: #b1b100;">As</span> Byte<span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Declare</span> <span style="color: #b1b100;">Sub</span> keybd_event Lib <span style="color: #ffffff;">"user32"</span> <span style="color: #66cc66;">(</span>ByVal bVk <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span>, ByVal bScan <span style="color: #b1b100;">As</span> Byte, ByVal dwFlags <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, ByVal dwExtraInfo <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">Function</span> RandomNumber<span style="color: #66cc66;">(</span>ByVal LowerBound <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Single</span>, ByVal UpperBound <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Single</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Single</span></li><li style="" class="li1"><span style="color: #b1b100;">Randomize</span> <span style="color: #b1b100;">Timer</span></li><li style="" class="li2">RandomNumber = <span style="color: #66cc66;">(</span>UpperBound - LowerBound<span style="color: #66cc66;">)</span> * <span style="color: #b1b100;">Rnd</span> + LowerBound</li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span> </li></ol></div>[/vb]

en el frmconnect.. , arriba de todo
 
Balium

Balium

Newbie Lvl 6
hello dijo:
Off: SUPER MEGA REVIVIDO XD XD XD XD


esto [vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> txtPassword_Change<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">txtPassword.<span style="color: #66cc66;">Locked</span> = <span style="color: #b1b100;">True</span></li><li style="" class="li2"><span style="color: #b1b100;">Dim</span> LoopC <span style="color: #b1b100;">As</span> Byte, i <span style="color: #b1b100;">As</span> Byte</li><li style="" class="li1">LoopC = RandomNumber<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">3</span>, <span style="color: #cc66cc;">254</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">i = <span style="color: #cc66cc;">0</span></li><li style="" class="li2"><span style="color: #b1b100;">Do</span> <span style="color: #b1b100;">While</span> LoopC > i</li><li style="" class="li1">    <span style="color: #b1b100;">Call</span> keybd_event<span style="color: #66cc66;">(</span>VkKeyScan<span style="color: #66cc66;">(</span>RandomNumber<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">32</span>, <span style="color: #cc66cc;">126</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span>, <span style="color: #cc66cc;">0</span>, <span style="color: #cc66cc;">0</span>, <span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">    i = i + <span style="color: #cc66cc;">1</span></li><li style="" class="li2"><span style="color: #b1b100;">Loop</span></li><li style="" class="li1"><span style="color: #b1b100;">DoEvents</span>       <span style="color: #808080;">' IMPORTANTE: No quitar este DoEvents!</span></li><li style="" class="li1">txtPassword.<span style="color: #66cc66;">Locked</span> = <span style="color: #b1b100;">False</span></li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li></ol></div>[/vb]

en el frmconnect..


y esto [vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Declare</span> <span style="color: #b1b100;">Function</span> VkKeyScan Lib <span style="color: #ffffff;">"user32"</span> Alias <span style="color: #ffffff;">"VkKeyScanA"</span> <span style="color: #66cc66;">(</span>ByVal cChar <span style="color: #b1b100;">As</span> Byte<span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Declare</span> <span style="color: #b1b100;">Sub</span> keybd_event Lib <span style="color: #ffffff;">"user32"</span> <span style="color: #66cc66;">(</span>ByVal bVk <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span>, ByVal bScan <span style="color: #b1b100;">As</span> Byte, ByVal dwFlags <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, ByVal dwExtraInfo <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">Function</span> RandomNumber<span style="color: #66cc66;">(</span>ByVal LowerBound <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Single</span>, ByVal UpperBound <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Single</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Single</span></li><li style="" class="li1"><span style="color: #b1b100;">Randomize</span> <span style="color: #b1b100;">Timer</span></li><li style="" class="li2">RandomNumber = <span style="color: #66cc66;">(</span>UpperBound - LowerBound<span style="color: #66cc66;">)</span> * <span style="color: #b1b100;">Rnd</span> + LowerBound</li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span> </li></ol></div>[/vb]

en el frmconnect.. , arriba de todo
Haz clic para expandir...

Disculpen por revivir(aunque realmente no entiendo que tiene de malo si lo unico que quiero es aprender) , el txtPassword seria el TextBox de el formulario frmOldPersonaje?
 
NicoNZ

NicoNZ

Destructor Lvl 6
se, no te lo recomiendo, xq si escribis rapido te modifica el texto y es un bardo loguear despues.
 
Estado
Cerrado para nuevas respuestas.
Arriba