z0mgItsJohn Posted December 15, 2007 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 (adsbygoogle = window.adsbygoogle || []).push({}); z0mgItsJohn Posted December 15, 2007 z0mgItsJohn Active Members 285 Author 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 MrCreatoR Posted December 15, 2007 MrCreatoR MVPs 3.5k Must AutoIt! 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
JustinReno Posted December 15, 2007 Posted December 15, 2007 This can easily be turned into a keylogger..
MrCreatoR Posted December 15, 2007 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
z0mgItsJohn Posted December 15, 2007 Author 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
z0mgItsJohn Posted December 15, 2007 Author Posted December 15, 2007 And Can Someone Make A Decode Program =]! Thanks~~ Latest Projects :- New & Improved TCP Chat
JustinReno Posted December 15, 2007 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.
DirtDBaK Posted December 17, 2007 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]
WolfWorld Posted December 18, 2007 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!
DirtDBaK Posted December 18, 2007 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]
Creator Posted December 18, 2007 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
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now