File Encrypter

[AutoItKing]

Very simple and self explanatory:

Encrypt:

#include<String.au3>
$file=FileOpenDialog("Encrypt...","","All Files (*.*)")
If @error Then Exit
$string=_StringEncrypt(1,FileRead($file,FileGetSize($file)),"ben",1)
FileWrite($file,$string)
oÝ÷ Ø7¯*mjëh×6
#include<String.au3>
$file=FileOpenDialog("Encrypt...","","All Files (*.*)")
If @error Then Exit
$string=_StringEncrypt(0,FileRead($file,FileGetSize($file)),"ben",1)
FileWrite($file & "decrypted.txt",$string)

Edited May 21, 2006 by AutoItKing