less than 5 alphabet decryption goes wrong !!

[dzlee]

hi autoit developers
i have a problem with thiscode
when use alphabet
if the entered pass more than 5 every thing goes right
if pass less than 5 Decryption goes wrong
can anyone explain why ?

thanks

#include <Crypt.au3>
$admin_pass1 = InputBox("admin", "pass", "", "*")
        $file = FileOpen("AKEY.Data", 2)
        FileWrite($file, _Crypt_EncryptData($admin_pass1, "Izdroid", $CALG_RC4))
        FileClose($file)
        MsgBox(64, "^^", "done", 15)


Func pass()
    $file = FileOpen("AKEY.Data", 0)
    $pass = FileRead($file)
    FileClose($file)
    $pass = BinaryToString(_Crypt_DecryptData($pass, "Izdroid", $CALG_RC4))

    Return $pass
EndFunc   ;==>pass

MsgBox(0,"",pass())

Edited April 18, 2015 by dzlee

[jchd]

You need to use binary mode for the file. Also you better convert both key and data to UTF8 else non-ANSI characters will get emasculated.

[dzlee]

#include <Crypt.au3>
$admin_pass1 = StringToBinary(InputBox("admin", "pass", "", "*"),4)
        $file = FileOpen("AKEY.Data", 18)
        FileWrite($file, _Crypt_EncryptData($admin_pass1, StringToBinary("Izdroid",4), $CALG_RC4))
        FileClose($file)
        MsgBox(64, "^^", "done", 15)


Func pass()
    $file = FileOpen("AKEY.Data", 0);should changed to 16
    $pass = FileRead($file)
    FileClose($file)
    $pass = BinaryToString(_Crypt_DecryptData($pass, StringToBinary("Izdroid",4), $CALG_RC4))

    Return $pass
EndFunc   ;==>pass

MsgBox(0,"",pass())

i did but the problem still on

Edited April 18, 2015 by dzlee

[jchd]

But you still read the file as text, not binary!

[dzlee]

thak you
the problem that i forget to change read mode to binary
thank you again