File crypter, with key-file.

[jokke]

Crypt UDF

Uppdated: now with errorhandling.

Features:

<*>Uses a keyfile with random insted of password algoritm, this makes the keyfile uniqe and should make it pretty damn hard to decrypt.

<*>Supports encryption and decryption, iwe tried images and executables and they where all working after en-to-de-crypt.

<*>Error handling added, my first version did not contain errohandling making it somewhat hard to use. Returining both a message and Seterror, if error should appear.

<*>Works fairly fast, a file 10kb takes about 520ms to encrypt and decrypt.

Example: (to make example work create a test file with some text inn it.)

#include <crypt.au3>

$keyfile        = 'Crypt.key'
$innfile        = 'test.txt'

$encrypted  = 'encrypted.txt'
$decrypted  = 'decrypted.txt'



If FileExists($keyfile) = 0 Then
    ConsoleWrite('Key file not found. Creating '&$keyfile & @CRLF)
    _CryptKeyGen($keyfile)
EndIf

ConsoleWrite('File encrypted inn '&_Crypt($keyfile,1,$innfile,$encrypted)&' ms.' & @CRLF)
ConsoleWrite('File decrypted inn '&_Crypt($keyfile,0,$encrypted,$decrypted)&' ms.' & @CRLF)

Crypt.au3

Edited June 2, 2007 by jokke

[WeMartiansAreFriendly]

Releasing my first real UDF.

Features:

encrpyt/decrypt files with no need for any passwords, you only need a keyfile to do the job.

udf also contains a cryptkeygen for the mentioned keyfile.

And speed is the essence, code been thru about 20 stages before i came upp with the simplest code to do the job.

Note:

wont be fast on large files.

example: (to make example work create a test file with some text inn it.)

#include <crypt.au3>

$keyfile        = 'Crypt.key'
$innfile        = 'test.txt'

$encrypted  = 'encrypted.txt'
$decrypted  = 'decrypted.txt'
If FileExists($keyfile) = 0 Then
    ConsoleWrite('Key file not found. Creating '&$keyfile & @CRLF)
    _CryptKeyGen($keyfile)
EndIf

ConsoleWrite('File encrypted inn '&_Crypt($keyfile,1,$innfile,$encrypted)&' ms.' & @CRLF)
ConsoleWrite('File decrypted inn '&_Crypt($keyfile,0,$encrypted,$decrypted)&' ms.' & @CRLF)

really cool idea.. nice job you

should really do error checking because it went into a inifinite loop when test.txt didn't exists.

[jokke]

Thanks.

I'll see if im able to uppdate the script today with error checking included.

[jokke]

Iwe uppdated script with errorhadling now, hehe took abit more time then expected