UDF: convert a character string to a binary one and back

[Pakku]

The function doesn't do his job, it will be updated as soon as possible

Hi all,

i wrote a little udf which allows us to convert a character string to a binary string and the other way around.

i hope i can make some of you happy with this!

expandcollapse popup

;===============================================================================
;
; Description:    Converts a character string to a binary string
; Parameter(s):  $_string - The character string to use
; Requirement(s):   None
; Return Value(s):  On Success - The binary string
;                  On Failure - It just can't fail
; Author(s):        Pakku
; Note(s):
;
;===============================================================================
Func _String2Binary($_string)
    $_string_split = StringSplit($_string, "")
    $output = ""
    For $a = 1 to $_string_split[0]
        $asc = Asc($_string_split[$a])
        $mod = ""
        For $b = 1 to 8
            $mod = Mod($asc, 2) & $mod
            $asc = Floor($asc/2)
        Next
        $output &= $mod
    Next
    Return $output
EndFunc

;===============================================================================
;
; Description:    Converts a binary string to a character string
; Parameter(s):  $_string - The binary string to use
; Requirement(s):   None
; Return Value(s):  On Success - The character string
;                  On Failure - It just can't fail
; Author(s):        Pakku
; Note(s):
;
;===============================================================================
Func _Binary2String($_string)
    $_string_split = StringSplit(StringRegExpReplace($_string, "[^:xdigit:]", ""), "")
    $_output = ""
    For $a = 1 to $_string_split[0] Step 8
        $_temp = ""
        For $b = 0 To 7
            $_temp &= $_string_split[$a+$b]
        Next
        $_chr = 0
        $_temp = StringSplit($_temp, "")
        For $c = 1 to $_temp[0]
            $_chr *= 2
            $_chr += Number($_temp[$c])
        Next
        $_output &= Chr($_chr)
    Next
    Return $_output
EndFunc

Any response, questions, modification or what ever is welcome!

Edited January 11, 2011 by Pakku

[SmOke_N]

Any response, questions, modification or what ever is welcome!

Arjan

Seems to be alot like nfwu's

http://www.autoitscript.com/forum/index.ph...mp;#entry211599

Edited September 6, 2006 by SmOke_N

[Pakku]

yes you are right, but mine is shorter

Edited November 16, 2010 by Pakku

[Gnomercy]

yes you are right, but mine is shorter

Arjan

and appears wrong. Tested your function w/the following test

$var = "simple test"

$ret = _String2Binary($var)

ConsoleWrite("$ret - "&$ret&@CRLF)

$msg = _Binary2String($ret)

ConsoleWrite("$msg - "&$msg&@CRLF)

-------Output-------

$ret - 0111001101101001011100110110110101101001011100110111000001101101011010010111001101101100011100000110

1101011010010111001101100101011011000111000001101101011010010111001100100000011001010110110001110000

0110110101101001011100110111010000100000011001010110110001110000011011010110100101110011011001010111

0100001000000110010101101100011100000110110101101001011100110111001101100101011101000010000001100101

0110110001110000011011010110100101110011011101000111001101100101011101000010000001100101011011000111

0000011011010110100101110011

$msg - ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss

[Pakku]

i see, you are right.

i will update it as soon as possible

thanks

See first post

Edited November 16, 2010 by Pakku

[SxyfrG]

still not working (_Binary2String that is)

Just returns an empty string :|

[SmOke_N]

still not working (_Binary2String that is)

Just returns an empty string :|

You're kidding right???? You brought up a 2 year old thread to say... "Still not working"... well no shit.

[SxyfrG]

Didn't realise it was a 2 year old thread >_>