append binary data

[pixartist]

can i use & to append binary data to binary data (eg. 1 byte) ?

if not, how to do it then`?

[BrettF]

Can't see why not...

Maybe post your code,

Cheers,

Brett

[pixartist]

Can't see why not...

Maybe post your code,

Cheers,

Brett

ok the appending works now.. i made a little mistake there. still:

Case $encrypt
            
            $f = FileOpenDialog("Choose File",@ScriptDir, "Any (*.*)", 1)
            if $f then
                $enc = encrypt($f,  GUICtrlRead($key))
                $s = FileSaveDialog( "Choose a name.", @ScriptDir, "any (*.*)", 18)
                if $s Then
                    $fi= FileOpen ( $s, BitOR(16, 1) )
                    If $fi = -1 Then
                        MsgBox(0, "Error", "Unable to open file.")
                        Exit
                    EndIf

                    ConsoleWrite($enc)
                    FileWrite($fi, Binary($enc))
                    FileClose($fi)
                EndIf
                
            EndIf

will actually write a STRING of NUMBERS instead of binary data to a file, wtf?

[pixartist]

ok the appending works now.. i made a little mistake there. still:

Case $encrypt
            
            $f = FileOpenDialog("Choose File",@ScriptDir, "Any (*.*)", 1)
            if $f then
                $enc = encrypt($f,  GUICtrlRead($key))
                $s = FileSaveDialog( "Choose a name.", @ScriptDir, "any (*.*)", 18)
                if $s Then
                    $fi= FileOpen ( $s, BitOR(16, 1) )
                    If $fi = -1 Then
                        MsgBox(0, "Error", "Unable to open file.")
                        Exit
                    EndIf

                    ConsoleWrite($enc)
                    FileWrite($fi, Binary($enc))
                    FileClose($fi)
                EndIf
                
            EndIf

will actually write a STRING of NUMBERS instead of binary data to a file, wtf?

omg now i see

BitXOR only works on 32 bit integers -.-

how can i xor with bytes ?

edit: ok, perhaps like this?

$erg = BitXOR(Number(BinaryMid($keybinary, $c_keybyte, 4)),Number(BinaryMid($filedata, $i, 4)))... i guess not, because the Number function will take the binary as a string?

also, how do i convert a 32bit integer into binary again?

Edited September 4, 2008 by pixartist