Note Coder v1.0 By John O.

[z0mgItsJohn]

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

CODE

expandcollapse 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
        
    

        
    

    

    




    Link to comment
    
        
    
    
    

    
    Share on other sites
    

    
        
            

    

        
            

    

        
            

    

        
            

    

        
    


    
    More sharing options...

    


    

                    
                    
                    
                

                    

                    
                    





    

    

    
        
            
                


    
        
    

                
                
                    
                        

                    
                
            
        
        
            
                


z0mgItsJohn
            
            
                Posted December 15, 2007
                
            
        
    
    
        


z0mgItsJohn
            
        
        
            
                
                    


    
        
    

                    
                    
                        

                    
                
            
            
                Active Members
                
            
            
                
                    
                        
                            
                                
                            
                                 285
                            
                                
                            
                        
                        
                    
                
            
            
                

            
        
    
    
        



    
        
            
                
                    
                        Author
                    
                    
                    
                    
                    
                
            
            
                
                    
                    
                        
                        
                            Share
                        
                        
                        
                        
                        
                            
                                
                            
                            
                            
                            
                            
                            
                        
                    
                
                
            
        

        
            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
        
    

        
    

    

    




    Link to comment
    
        
    
    
    

    
    Share on other sites
    

    
        
            

    

        
            

    

        
            

    

        
            

    

        
    


    
    More sharing options...

    


    

                    
                    
                    
                

                    

                    
                    





    

    

    
        
            
                


    
        
    

                
                
                    
                        

                    
                
            
        
        
            
                


MrCreatoR
            
            
                Posted December 15, 2007
                
            
        
    
    
        


MrCreatoR
            
        
        
            
                
                    


    
        
    

                    
                    
                        

                    
                
            
            
                MVPs
                
                    
                
            
            
                
                    
                        
                            
                                
                            
                                 3.5k
                            
                                
                            
                        
                        
                    
                
            
            
                

    
    
        
Must AutoIt!
    
    

            
        
    
    
        



    
        
            
                
                    
                    
                    
                    
                    
                
            
            
                
                    
                    
                        
                        
                            Share
                        
                        
                        
                        
                        
                            
                                
                            
                            
                            
                            
                            
                            
                        
                    
                
                
            
        

        
            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

[JustinReno]

This can easily be turned into a keylogger..

[MrCreatoR]

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 December 15, 2007 by MsCreatoR

[z0mgItsJohn]

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

[z0mgItsJohn]

And Can Someone Make A Decode Program =]! Thanks~~

[JustinReno]

I Got The Ideal For An AutoIt Key Logger. lol

That will probably get you into a permanent ban, even if your joking.

[DirtDBaK]

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

[WolfWorld]

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

[DirtDBaK]

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...

[Creator]

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