3 replies to this topic

[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)

Attached Files

•  Crypt.au3   3.61K   517 downloads

Edited by jokke, 02 June 2007 - 10:56 AM.

[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