Jump to content
Sign in to follow this  
z0mgItsJohn

Note Coder v1.0 By John O.

Recommended Posts

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
    
    

            
        

        
            
                
                    

        
        
            
                
                
                    
                
            
            
            
        
    

                
            
            
                
                    
                    
                    
                
                
                    
                
            
        

        
            

    
        

            
            
                
                     
                

                
                    
                        
                            Hide z0mgItsJohn's signature
                        
                    
                    
                        Hide all signatures
                    
                
            


        
            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 
            
                
                
            
        
    

    


    
        
        
            Ideal.. Maybe If Someone Wants To They Can Make A Program To Decode Messages And Post It Here =]

- John


            
        

        
            
                
                    

        
        
            
                
                
                    
                
            
            
            
        
    

                
            
            
                
                    
                    
                    
                
                
                    
                
            
        

        
            

    
        

            
            
                
                     
                

                
                    
                        
                            Hide z0mgItsJohn's signature
                        
                    
                    
                        Hide all signatures
                    
                
            


        
            Latest Projects  :- New & Improved TCP Chat
        
    

        
    

    
        
            Share this post
            
            Link to post
            
            
            

            
                Share on other sites
                

    
        
            

    

        
            

    

        
            

    

        
            

    

        
    

            
        
    

    

                    
                
                    
                    
                    






    

    
        
            

MrCreatoR
              

    
        
    
             85
    
        
    

        
        
            


    
        
    

        
    
    
        

MrCreatoR
               

    
        
    
             85
    
        
    


        
            
                Must AutoIt!
            
            

            
                


    
        
    

            
            MVPs
            
                
            
            
                

    
        
    
             85
    
        
    

                3,304 posts
                
                

            
        
    
    
        


    

    
        
            
                
                
                
                    
                
                
            
        

        
            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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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
Sign in to follow this  

×
×
  • Create New...