Jump to content

Recommended Posts

Posted (edited)

Hello.. I Made A Program.. That Codes You Letters.. Pretty Simple Too

--------------------

Note Coder v1.0 - By John O.

;===================================
;=        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

CODE
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  by John2006
    
    

            
        

        

        
            

    
        

        
            Latest Projects  :- New & Improved TCP Chat
        
    

        
    

    
    

    

                    
                    
                        
                            


     (adsbygoogle = window.adsbygoogle || []).push({});

                        
                    
                    
                

                    

                    
                    






    

    

    
        
            
                


    
        
    

                
                
                    
                        

                    
                
            
        
        
            
                


z0mgItsJohn
            
            
                Posted 
                
            
        
    
    
        


z0mgItsJohn
            
        
        
            
                
                    


    
        
    

                    
                    
                        

                    
                
            
            
                Active Members
                
            
            
                
                    
                        
                            
                                
                            
                                 285
                            
                                
                            
                        
                        
                    
                
            
            
                

            
        
    
    
        



    
        
            
                
                    
                        Author
                    
                    
                    
                    
                    
                
            
            
                
                    
                    
                        
                        
                        
                        
                        
                        
                            
                                
                            
                            
                            
                            
                            
                            
                        
                    
                
                
            
        

        
           
           Posted 
           
            
            
                
                
            
        
    

    

    

    
        
        
            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 
                
            
        
    
    
        


MrCreatoR
            
        
        
            
                
                    


    
        
    

                    
                    
                        

                    
                
            
            
                MVPs
                
                    
                
            
            
                
                    
                        
                            
                                
                            
                                 3.5k
                            
                                
                            
                        
                        
                    
                
            
            
                

    
    
        
Must AutoIt!
    
    

            
        
    
    
        



    
        
            
                
                    
                    
                    
                    
                    
                
            
            
                
                    
                    
                        
                        
                        
                        
                        
                        
                            
                                
                            
                            
                            
                            
                            
                            
                        
                    
                
                
            
        

        
           
           Posted 
           
            
            
                
                
            
        
    

    

    

    
        
        
            
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_Rus_Community.png AutoIt Russian Community

My Work...

Spoiler

AutoIt_Icon_small.pngProjects: 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 Program

AutoIt_Icon_small.pngUDFs: 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
 
AutoIt_Icon_small.pngExamples: 
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 AutoIt_Rating.gif)

* === My topics === *

==================================================
My_Userbar.gif
==================================================

 

 

 

AutoIt is simple, subtle, elegant. © AutoIt Team

Posted (edited)

This can easily be turned into a keylogger

There 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 by MsCreatoR

 

Spoiler

Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1

AutoIt_Rus_Community.png AutoIt Russian Community

My Work...

Spoiler

AutoIt_Icon_small.pngProjects: 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 Program

AutoIt_Icon_small.pngUDFs: 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
 
AutoIt_Icon_small.pngExamples: 
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 AutoIt_Rating.gif)

* === My topics === *

==================================================
My_Userbar.gif
==================================================

 

 

 

AutoIt is simple, subtle, elegant. © AutoIt Team

Posted

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]

Posted (edited)

Encode and Decode From file version

;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 by athiwatc
Posted

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]

Posted (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 by Creator

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...