z0mgItsJohn 3 Posted December 15, 2007 (edited) Hello.. I Made A Program.. That Codes You Letters.. Pretty Simple Too -------------------- Note Coder v1.0 - By John O. expandcollapse popup;=================================== ;= Author : John O. = ;=================================== $A = IniRead ( "Codeing.ini", "Code" , "A" , "") $B = IniRead ( "Codeing.ini", "Code" , "B" , "") $C = IniRead ( "Codeing.ini", "Code" , "C" , "") $D = IniRead ( "Codeing.ini", "Code" , "D" , "") $E = IniRead ( "Codeing.ini", "Code" , "E" , "") $F = IniRead ( "Codeing.ini", "Code" , "F" , "") $G = IniRead ( "Codeing.ini", "Code" , "G" , "") $H = IniRead ( "Codeing.ini", "Code" , "H" , "") $I = IniRead ( "Codeing.ini", "Code" , "I" , "") $J = IniRead ( "Codeing.ini", "Code" , "J" , "") $K = IniRead ( "Codeing.ini", "Code" , "K" , "") $L = IniRead ( "Codeing.ini", "Code" , "L" , "") $M = IniRead ( "Codeing.ini", "Code" , "M" , "") $N = IniRead ( "Codeing.ini", "Code" , "N" , "") $O = IniRead ( "Codeing.ini", "Code" , "O" , "") $P = IniRead ( "Codeing.ini", "Code" , "P" , "") $Q = IniRead ( "Codeing.ini", "Code" , "Q" , "") $R = IniRead ( "Codeing.ini", "Code" , "R" , "") $S = IniRead ( "Codeing.ini", "Code" , "S" , "") $T = IniRead ( "Codeing.ini", "Code" , "T" , "") $U = IniRead ( "Codeing.ini", "Code" , "U" , "") $V = IniRead ( "Codeing.ini", "Code" , "V" , "") $W = IniRead ( "Codeing.ini", "Code" , "W" , "") $X = IniRead ( "Codeing.ini", "Code" , "X" , "") $Y = IniRead ( "Codeing.ini", "Code" , "Y" , "") $Z = IniRead ( "Codeing.ini", "Code" , "Z" , "") Run ( "Notepad.exe" ) WinWaitActive ( "Untitled - Notepad" ) HotKeySet ( "a" , "_Code_A" ) HotKeySet ( "b" , "_Code_B" ) HotKeySet ( "c" , "_Code_C" ) HotKeySet ( "d" , "_Code_D" ) HotKeySet ( "e" , "_Code_E" ) HotKeySet ( "f" , "_Code_F" ) HotKeySet ( "g" , "_Code_G" ) HotKeySet ( "h" , "_Code_H" ) HotKeySet ( "i" , "_Code_I" ) HotKeySet ( "j" , "_Code_J" ) HotKeySet ( "k" , "_Code_K" ) HotKeySet ( "l" , "_Code_L" ) HotKeySet ( "m" , "_Code_M" ) HotKeySet ( "n" , "_Code_N" ) HotKeySet ( "o" , "_Code_O" ) HotKeySet ( "p" , "_Code_P" ) HotKeySet ( "q" , "_Code_Q" ) HotKeySet ( "r" , "_Code_R" ) HotKeySet ( "s" , "_Code_S" ) HotKeySet ( "t" , "_Code_T" ) HotKeySet ( "u" , "_Code_U" ) HotKeySet ( "v" , "_Code_V" ) HotKeySet ( "w" , "_Code_W" ) HotKeySet ( "x" , "_Code_X" ) HotKeySet ( "y" , "_Code_Y" ) HotKeySet ( "z" , "_Code_Z" ) HotKeySet ( "{esc}", "_Exit" ) While 1 Sleep (250) WEnd Func _Code_A() Send ( $A & "/") EndFunc Func _Code_B() Send ( $B & "/" ) EndFunc Func _Code_C() Send ( $C & "/") EndFunc Func _Code_D() Send ( $D & "/" ) EndFunc Func _Code_E() Send ( $E & "/" ) EndFunc Func _Code_F() Send ( $F & "/" ) EndFunc Func _Code_G() Send ( $G & "/" ) EndFunc Func _Code_H() Send ( $H & "/" ) EndFunc Func _Code_I() Send ( $I & "/" ) EndFunc Func _Code_J() Send ( $J & "/" ) EndFunc Func _Code_K() Send ( $K & "/" ) EndFunc Func _Code_L() Send ( $L & "/" ) EndFunc Func _Code_M() Send ( $M & "/" ) EndFunc Func _Code_N() Send ( $N & "/" ) EndFunc Func _Code_O() Send ( $O & "/" ) EndFunc Func _Code_P() Send ( $P & "/" ) EndFunc Func _Code_Q() Send ( $Q & "/" ) EndFunc Func _Code_R() Send ( $R & "/" ) EndFunc Func _Code_S() Send ( $S & "/" ) EndFunc Func _Code_T() Send ( $T & "/" ) EndFunc Func _Code_U() Send ( $U & "/" ) EndFunc Func _Code_V() Send ( $V & "/" ) EndFunc Func _Code_W() Send ( $W & "/" ) EndFunc Func _Code_X() Send ( $X & "/" ) EndFunc Func _Code_Y() Send ( $Y & "/" ) EndFunc Func _Code_Z() Send ( $Z & "/" ) EndFunc Func _Exit() TrayTip ( "Note Coder v1.0" , "Exiting...",0) Sleep (2000) Exit EndFunc Codeing.ini CODEexpandcollapse popup A=145 B=150 C=37 D=86 E=111 F=3 G=94 H=35 I=87 J=9 K=82 L=148 M=28 N=146 O=141 P=122 Q=149 R=144 S=101 T=113 U=89 V=61 W=132 X=107 Y=67 Z=62 Heres What It Uses To Code The Letters... CODEA = 145 B = 150 C = 37 D = 86 E = 111 F = 3 G = 94 H = 35 I = 87 J = 9 K = 82 L = 148 M = 28 N = 146 O = 141 P = 122 Q = 149 R = 144 S = 101 T = 113 U = 89 V = 61 W = 132 X = 107 Y = 67 Z = 62 -------------------- All Credits Goto Me... ~~ Enjoy ~~ Edited December 15, 2007 by John2006 Latest Projects :- New & Improved TCP Chat Share this post Link to post Share on other sites z0mgItsJohn 3 z0mgItsJohn 3 Universalist Active Members 3 285 posts Posted December 15, 2007 Ideal.. Maybe If Someone Wants To They Can Make A Program To Decode Messages And Post It Here =] - John Latest Projects :- New & Improved TCP Chat Share this post Link to post Share on other sites MrCreatoR 159 MrCreatoR 159 Must AutoIt! MVPs 159 3,478 posts Posted December 15, 2007 Hi, You can short the script by 20 times (or more)... ;=================================== ;= Author : John O. = ;=================================== HotKeySet ( "{esc}", "_Exit" ) Run ( "Notepad.exe" ) WinWaitActive ( "[CLASS:Notepad]") For $i = 97 To 122 HotKeySet(Chr($i), "_Code_Proc") Next While 1 Sleep (250) WEnd Func _Code_Proc() Local $Letter = IniRead ("Codeing.ini", "Code", @HotKeyPressed, "") If $Letter <> "" Then Send ($Letter & "/") EndFunc Func _Exit() TrayTip ( "Note Coder v1.0" , "Exiting...",0) Sleep (2000) Exit EndFunc Loops is a very powerfull tool  Spoiler Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1  AutoIt Russian Community My Work... Spoiler Projects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize ProgramUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF Examples: ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating ) * === My topics === * ================================================== ==================================================    AutoIt is simple, subtle, elegant. © AutoIt Team Share this post Link to post Share on other sites
JustinReno 0 Posted December 15, 2007 This can easily be turned into a keylogger.. Share this post Link to post Share on other sites
MrCreatoR 159 Posted December 15, 2007 (edited) This can easily be turned into a keyloggerThere are much more advanced examples that closest to a keyloger around here then that one And to be unest, i really can't see how it can be turned to a keylogger. Edited December 15, 2007 by MsCreatoR  Spoiler Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1  AutoIt Russian Community My Work... Spoiler Projects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize ProgramUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF Examples: ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating ) * === My topics === * ================================================== ==================================================    AutoIt is simple, subtle, elegant. © AutoIt Team Share this post Link to post Share on other sites
z0mgItsJohn 3 Posted December 15, 2007 (edited) Yes.. It Can Be Turned Into A key Logger.. I Got The Ideal Form An AutoIt Key Logger That I Found Of The Fourm. o.o I Made A Spelling Mistake.. Edited December 16, 2007 by John2006 Latest Projects :- New & Improved TCP Chat Share this post Link to post Share on other sites
z0mgItsJohn 3 Posted December 15, 2007 And Can Someone Make A Decode Program =]! Thanks~~ Latest Projects :- New & Improved TCP Chat Share this post Link to post Share on other sites
JustinReno 0 Posted December 15, 2007 I Got The Ideal For An AutoIt Key Logger. lolThat will probably get you into a permanent ban, even if your joking. Share this post Link to post Share on other sites
DirtDBaK 0 Posted December 17, 2007 That will probably get you into a permanent ban, even if your joking.Doubt it... If it makes it we don't have to use it, besides there are good uses for keyloggers... Who said he had a bad intent? Anyways I was going to make a program like this for sending text in a email to a friend, thing is no one be my self and her should be able to decode it so i was going to make it something like so... Acutal Text: junk|blah blah blah blah blah some message in here|DBak Encrpyted txt: 345k4lj355jkl543lk5j3lk425l4kkgfjklrdf56gf65fsg456s64f5gs65sdfg5ds564 And when trying to decode it would prompt for a pswd The password is 'junk' and if they enter the right pswd then the message is saved to a text file that would say somthing like... ========= PSWD: junk ---------------- FORM: DBak ---------------- BODY: blah blah blah blah blah some message in here ---------------- Would be simple to do... Maybe it's not to relevant to this post, just a thought though. -DBaK [center][/center] Share this post Link to post Share on other sites
WolfWorld 0 Posted December 18, 2007 (edited) Encode and Decode From file version expandcollapse popup;Encode Global $encode,$decode For $i = 97 To 122 IniWrite('Codeing.ini', 'enCode', Chr($i), IniRead("Codeing.ini", "enCode", Chr($i), Random(100, 999, 1))) Next $file = FileOpen("test.txt", 0) While 1 $chars = FileRead($file, 1) If @error = -1 Then ExitLoop $encode &= IniRead("Codeing.ini", "enCode", $chars, $chars) WEnd FileClose($file) FileWrite('test_'&Random(100,999,1),$encode) ;Decode ;~ Global $decode ;~ $file = FileOpen("test.txt", 0) ;~ $var = IniReadSection('Codeing.ini', 'encode') ;~ For $i = 1 To $var[0][0] ;~ IniWrite('Codeing.ini', 'deCode', $var[$i][1], $var[$i][0]) ;~ Next ;~ While 1 ;~ $chars = FileRead($file, 3) ;~ If @error = -1 Then ExitLoop ;~ $decode &= IniRead ("Codeing.ini", "deCode", $chars, $chars) ;~ Wend ;~ FileClose($file) ;~ FileWrite('test_'&Random(100,999,1),$decode) Edited December 18, 2007 by athiwatc Main project - Eat Spaghetti - Obfuscate and Optimize your script. The most advance add-on.Website more of GadGets! Share this post Link to post Share on other sites
DirtDBaK 0 Posted December 18, 2007 Also you should use _StringReverse in the string to make it harder to decode when encoded, but make the decoder use reverse it back to order... [center][/center] Share this post Link to post Share on other sites
Creator 0 Posted December 18, 2007 (edited) You asked for a decoder. So i thought about it a lil bit and came up with this: $sCrypted = "35/111/148/148/141/ 132/141/144/148/86/" $arrCryptedWords = StringSplit($sCrypted," ") Dim $arrCryptedChars[1] for $i=1 to $arrCryptedWords[0] $arrTmp = StringSplit(StringStripWS($arrCryptedWords[$i], 3),"/") ReDim $arrCryptedChars[$arrCryptedWords[0]][$arrTmp[0]+1] $arrCryptedChars[$i-1][0] = $arrCryptedWords[$i] For $j=1 to $arrTmp[0] $arrCryptedChars[$i-1][$j] = $arrTmp[$j] Next Next for $i=0 to UBound($arrCryptedChars)-1 $numberOfChars = UBound($arrCryptedChars, 2) dim $wordDecrypted = "" for $j=1 to $numberOfChars -1 $charCrypted=$arrCryptedChars[$i][$j] ;now is the time to iniread the reversed codeing.ini $charDecrypted = IniRead ( "CodeingRev.ini", "Code" , $charCrypted , "") $wordDecrypted&=$charDecrypted Next msgbox(0,'', $wordDecrypted) Next Its just a poc, so it contains a predefined string and spits out the decrypted words in a msgbox, but it should be more than enough to use it as a starting point. You will need the CodeingRev.ini for the decryption, just put it in scriptdir. Have fun! -edit- you can of course use the existing coding.ini and add a new section for the reversed codes.CodeingRev.zip Edited December 18, 2007 by Creator Share this post Link to post Share on other sites
