stringtobinary - write to txt file

[legend]

Hi this code uses stringtobinary just fine with the msgbox, but won't write the binary numbers to my txt file (kb.txt)

$read = FileRead(@scriptdir & "\test.txt")
$file = (@ScriptDir & "\kb.txt")

$buffer = StringToBinary($read)
MsgBox(4096, "String() representation" , $buffer)

FileWrite($file, $buffer)

someone knows why?

[Danp2]

Does it work if you change the last line to:

FileWrite(@ScriptDir & "kb.txt", $buffer)

Edited November 8, 2012 by DanP2

[legend]

No, it writes The content from test.txt to kb.txt but stringtobinary, does not have any effect ón it

[jchd]

Of course it's a no-op in this case: you're writing exactly the same content that you just read.

Make $buffer a string before final write:

FileWrite($file, $buffer & '')

Something to take care of: your output file will have the '0x' prefix prepended, which you may want to remove before writing:

FileWrite($file, StringTrimLeft($buffer & '', 2))

EDIT: also take care of selecting the character encoding that will suit your use!

Edited November 8, 2012 by jchd

[legend]

thanks alot next question, how would I make space between every second character ex: E6 F6 34

[jchd]

Something like:

FileWrite($file, StringRegExpReplace($buffer & '', '(?:0x)?([[:xdigit:]]{2})', '1 '))

[legend]

thanks

with this:

$read = FileRead(@scriptdir & "test.txt")
$file = (@ScriptDir & "kb.txt")

$buffer = StringToBinary($read)


[code]$read = FileRead(@scriptdir & "test.txt")
$file = (@ScriptDir & "kb.txt")

$buffer = StringToBinary($read)

FileWrite($file, StringTrimLeft($buffer & '', 2))

how would i get it back to normal? I tried to do BinaryToString, instead of StringToBinary

Edited November 8, 2012 by legend

[jchd]

Back to normal? What do you revert back to "normal"?

[legend]

I mean like getting it back to binary

[kylomas]

legend,

Your source file "test.txt" is still there, yes? Is that what you mean by "back to normal"?

kylomas

[legend]

$read = FileRead(@scriptdir & "test.txt")
$file = (@ScriptDir & "encrypt.txt")

$buffer = StringToBinary($read)

FileWrite($file, StringTrimLeft($buffer & '', 2))

$read = FileRead(@scriptdir & "encrypt.txt")
$file = (@ScriptDir & "decrypt.txt")

$buffer = BinaryToString($read)

FileWrite($file, StringTrimLeft($buffer & '', 2))

that's what i'm trying to do

Edited November 8, 2012 by legend

[kylomas]

legend,

If you are looking for encryp/decrypt routines, there are UDF's for that.

kylomas

Edited November 8, 2012 by kylomas

[legend]

I know but in this case I just need something simple as binarytostring and stringtobinary ^^

[legend]

If some knows how to i still need it

[jchd]

Have you looked at _StringToHex and _HexToString in the help file?