Secret Message encoder/decoder

[FuryCell]

here is a program i just made.you can type a sentence in and it will pop up a msgbox telling you it in secret code and put it in the clipboard too.then if you type the message back in and it will decode it.hope somebody finds it useful.I use it to talk to my friends on aim in secret code

$C1=StringSplit("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 .!?,","")

$C2=StringSplit("ZYXWVUTSRQPONMLKJIHGFEDCBAzyxwvutsrqponmlkjihgfedcba9876543210 .!?,","")

$Input=InputBox ("EasyCoder","Please enter text to be Encoded\Decoded")
If @Error=1 Then Exit
$Text=StringSplit($Input,"")


Dim $NewText
For $CurrentPos=1 to $Text[0]
    
    $Char=$Text[$CurrentPos]
    $CharPos=ArraySearch ($C1,$Char)
    If $CharPos="X" then ContinueLoop
    $NewChar=$C2[$CharPos]
    $NewText=$NewText & $NewChar
Next
ClipPut ($NewText)
MsgBox (0,"EasyCoder",$NewText)


Func ArraySearch ($Array,$What2Find)
    For $X=1 to $Array[0]
        If $Array[$X]==$What2Find then Return $X
    Next
    Return "X"
EndFunc

[zcoacoaz]

to easy to decode i recommend just encrypting it then putting it in the clipboard.

[Insolence]

Of course it's easy to decode... it's just a little project.

Good job

[zcoacoaz]

Yeah, atleast he got it to work, I tryed doing this same thing before and i failed patheticly.

[Smed]

Xenogenesis: yah, try doing MD5 in PERL.. now there's a royal pain in the buttocks.

[FuryCell]

Good job

<{POST_SNAPBACK}>

Thanks