Binary Convertor

[NicoTn]

expandcollapse popup

#include <Guiconstants.au3>

Dim $lower[26]
$lower[0]  = "01100001"
$lower[2]  = "01100010"
$lower[3]  = "01100011"
$lower[4]  = "01100100"
$lower[5]  = "01100101"
$lower[6]  = "01100110"
$lower[7]  = "01100111"
$lower[8]  = "01101000"
$lower[9]  = "01101001"
$lower[10] = "01101010"
$lower[11] = "01101011"
$lower[12] = "01101101"
$lower[13] = "01101110"
$lower[14] = "01101111"
$lower[15] = "01110000"
$lower[16] = "01110001"
$lower[17] = "01110010"
$lower[18] = "01110011"
$lower[19] = "01110100"
$lower[20] = "01110101"
$lower[21] = "01110110"
$lower[22] = "01110111"
$lower[23] = "01111000"
$lower[24] = "01111001"
$lower[25] = "01111010"

Dim $upper[26]
$upper[0]  = "01000001"
$upper[2]  = "01000010"
$upper[3]  = "01000011"
$upper[4]  = "01000100"
$upper[5]  = "01000101"
$upper[6]  = "01000110"
$upper[7]  = "01000111"
$upper[8]  = "01001000"
$upper[9]  = "01001001"
$upper[10] = "01001010"
$upper[11] = "01001011"
$upper[12] = "01001100"
$upper[13] = "01001101"
$upper[14] = "01001110"
$upper[15] = "01001111"
$upper[16] = "01010000"
$upper[17] = "01010001"
$upper[18] = "01010010"
$upper[19] = "01010100"
$upper[20] = "01010101"
$upper[21] = "01010110"
$upper[22] = "01010111"
$upper[23] = "01011000"
$upper[24] = "01011001"
$upper[25] = "01011010"

dim $lowerchar[26]
for $i = 0 to 25
    for $o = 97 to 122
        $lowerchar[$i] = Chr($o)
    Next
Next

dim $upperchar[26]
for $i = 0 to 25
    for $o = 65 to 90
        $upperchar[$i] = Chr($o)
    Next
Next

;$string = $lower[4]&" "&$lower[10]
;if StringInStr($string," ") then 
;       $lawl2 = StringReplace($string," ","")
;EndIf
for $i = 0 to 25 
    if StringInStr($string,$lower[$i]) then 
        $lawl = StringReplace($string,$lower[$i],$lowerchar[$i])
    EndIf
Next

MsgBox(0,"",$lawl)

it always returns 01100100 z :

does someone have a solution ??? if you do than i will be you very thankfull!!!

- Nick

[BALA]

Sorry for my ignorance of the binary language, but what does this do?

[NicoTn]

Sorry for my ignorance of the binary language, but what does this do?

it converts Binary to Normal plain text and text to binary

[BALA]

Awesome, I've been looking for one of those a long time

If you ever do one for Hexidecimals, you will have given me all my desired dreams. (well maybe not all, there's still that one about the cow... )

Edited January 7, 2007 by BALA

[NicoTn]

Awesome, I've been looking for one of those a long time

If you ever do one for Hexidecimals, you will have given me all my desired dreams. (well maybe not all, there's still that one about the cow... )

only it has a bug in it

[BALA]

Way to go, raise my hopes, then instantly destroy 'em

Anyways I think the problem may lie in how you created the array

Edited January 7, 2007 by BALA

[NicoTn]

Way to go, raise my hopes, then instantly destroy 'em

Anyways I think the problem may lie in how you created the array

i think so to

[BALA]

Notice how you have:

$string = $lower[4]oÝ÷ Ù«­¢+ØÀÌØí±½ÝÉlÑtôÅÕ½ÐìÀÄÄÀÀÄÀÀÅÕ½Ðì

That's probably where you're getting that binary

[BALA]

I wonder where all the "AutoIt Gods" are, they usually storm in on stuff like this.

[Immensee]

Notice how you have:

$string = $lower[4]oÝ÷ Ù«­¢+ØÀÌØí±½ÝÉlÑtôÅÕ½ÐìÀÄÄÀÀÄÀÀÅÕ½Ðì

That's probably where you're getting that binary

Erm, that's his old version and he putted it into the comments ( ; )

[theguy0000]

I wrote a binary to ascii function, it should be easy to reverse. one sec and i'll grab it for ya.

Edited January 7, 2007 by theguy0000

[BALA]

Oh! I found something!

for $i = 0 to 25
    for $o = 97 to 122
        $lowerchar[$i] = Chr($o)
    Next
Next

That's gonna make only the $o change until it finishes, then changes $i and starts all over.

(Unless if that's what you want, I don't know binary)

Edited January 7, 2007 by BALA

[NicoTn]

Oh! I found something!

for $i = 0 to 25
    for $o = 97 to 122
        $lowerchar[$i] = Chr($o)
    Next
Next

That's gonna make only the $o change until it finishes, then changes $i and starts all over.

(Unless if that's what you want, I don't know binary)

i will look at it but still open for your discoveries , bugs, help

[BALA]

I'm glad I could help, now I need to go get that cow...

[theguy0000]

I'm confused, was the problem solved? because I have my text to binary function, and the binary to text is soon to come, if you still need it.

[BALA]

Man, now you made me confused...

Did I help?

[SmOke_N]

http://www.autoitscript.com/forum/index.ph...st&p=211599

[NicoTn]

I'm confused, was the problem solved? because I have my text to binary function, and the binary to text is soon to come, if you still need it.

yea i need it :"> i cant figure it out

[Jos]

The script posted gives an error because $string isn't set ....

What should it be set to ?

[Immensee]

The script posted gives an error because $string isn't set ....

What should it be set to ?

It's the string that the program needs to search for specific characters.

hmm, i've got a hint str!ke:

if you make your code like this:

$string =   "YourString"

for $index = 1 to StringLen($string)
    $char   =   StringMid($string, $index, 1)

    if StringIsUpper($char)
        $uppercase[$index-1]    =   true
        $char   =   StringLower($char)
    EndIf
Next

like that, i'm not sure if it's true, im not at home

neither can i help you sorry, but if i write this reply it will also come to the top of the board

so other people CAN help you.

- me

Edited January 7, 2007 by Immense