Code Decoder

[JustinReno]

Well, I made a code using numbers:

1=A

2=B

3=C

4=D

5=E

6=F

7=G

8=H

9=I

10=J

11=K

12=L

13=M

14=N

15=O

16=P

17=Q

18=R

19=S

20=T

21=U

22=V

23=W

24=X

25=Y

26=Z

| is the seperator from letters

Space is the word seperator

This is how it works:

Code: 8|9 13|25 14|1|13|5 9|19

English: My name is

I'm trying to write a decoder trying to use an inputbox, and stringsplit and when it finds a string, it adds it to a blank new message

$String = InputBox("Simple Decoder", "What is the message you want to decode?")
$StringSplit = StringSplit($String, "|")

But Then I get stuck after that, I debugged it with a message box but it didn't help. Any Ideas? Thanks!

Edited October 6, 2007 by JustinReno

[PsaltyDS]

Um... you 'gonna post some code to look at...?

[JustinReno]

I did above, as you see I got stuck with debugging.

[PsaltyDS]

I did above, as you see I got stuck with debugging.

Ahh. You were trying to see results in $StringSplit with a MsgBox()? That doesn't work because StringSplit() returns an array. The easiest way to check those is just put #include <array.au3> at the top of your script and then use _ArrayDisplay():

#include <array.au3>

$String = InputBox("Simple Decoder", "What is the message you want to decode?")
$StringSplit = StringSplit($String, "|")
_ArrayDisplay($StringSplit, "Debug: $StringSplit")

[JustinReno]

Thanks for it, but it seems a little inconvientent to show the results in an array.

[JoeSixpack]

hey we use to use that in school when i was a kid..

Thanks for it, but it seems a little inconvientent to show the results in an array.

Array's are cool, im still playing and learning about them but they really do help and for something like this they would be perfect.

and ya stringsplit creates an array, you can fully read the array or write to one using loops without to much trouble, if you need to do it a lot you could create a function for it.

[JustinReno]

Cool.

[GEOSoft]

Instead of 1=A, 2=B &etc. why didn't you just use

For $i = 65 To 90
   $Out  $i-64 & "=" & Chr($i)
Next

[crzftx]

seems simple enough.

$input = InputBox("Encoded","Enter the code")
$output = ""

While StringLen($input) > 0
    Select
        Case StringLeft($input,1) = " "
            $output &= " "
            $input = StringTrimLeft($input,1)
        Case Number(StringLeft($input,2)) <> Number(StringLeft($input,1))
            $output &= Chr(96+Number(StringLeft($input,2)))
            $input = StringTrimLeft($input,2)
        Case Number(StringLeft($input,1))
            $output &= Chr(96+Number(StringLeft($input,1)))
            $input = StringTrimLeft($input,1)
        Case StringLeft($input,1) = "|"
            $input = StringTrimLeft($input,1)
    EndSelect
WEnd

MsgBox(0,"Decoded",$output)

[JustinReno]

WOW! Thank you soooo much!

And how hard do you think it would be to make an encoder? I really like your idea with the encoder.

I'll try,just a moment. Umm, yeah, it didn't work.

Edited October 6, 2007 by JustinReno

[aslani]

Very cool.

If you want all-CAPS, just use 64 instead of 96.

[JustinReno]

Cool! Thanks.

I didn't get far on the Encoder, I'm confused with StringLen/TrimLeft. Stuff like that.

BAsically I copied the decoder code to another file and switched this: when space is there it turns it into |

I'm not very good using string functions. Any help would be appreciated.

[aslani]

$g_input = InputBox("Input","Enter the message to encode.")
$input = StringLower($g_input)
$output = ""

While StringLen($input) > 0
    Select
        Case StringLeft($input,1) = " "
            $output &= " "
            $input = StringTrimLeft($input,1)
        Case StringLeft($input,2) <> StringLeft($input,1) & " "
            $output &= Asc(StringLeft($input,1))-96 & "|"
            $input = StringTrimLeft($input,1)
        Case StringLeft($input,1)
            $output &= Asc(StringLeft($input,1))-96
            $input = StringTrimLeft($input,1)
    EndSelect
WEnd
$output = StringTrimRight($output,1)
MsgBox(0,"Encoded",$output)

EDIT:

The old code was bugged with extra "|". Fixed.

Edited October 6, 2007 by aslani

[JustinReno]

Wow! Thanks too! :P It works good!