Fast Crypt

[cherdeg]

Doh! I almost wanted to write: "Gimme da source of that DLL or I won't run it"...but, for god's sake, I haven't (or at least nobody has noticed?)

...However, I (re)phrase and ask for one (1) single time: Would it be possible to get the source code of the DLL you provided within your zip-file?

Regards,

Chris

Edited September 25, 2008 by cherdeg

[Thatsgreat2345]

Doh! I almost wanted to write: "Gimme da source of that DLL or I won't run it"...but, for god's sake, I haven't (or at least nobody has noticed?)

...However, I (re)phrase and ask for one (1) single time: Would it be possible to get the source code of the DLL you provided within your zip-file?

Regards,

Chris

Unless you know assembly it will look like utter gibberish to you. With a bunch of 3 letter acronyms, and a bunch of addresses.

[TehWhale]

rewrote xor routine in dll

tested on vista(friend) without problems.

AlienWare can you test it on your computer ?

with this version only password strings are allowed,

if there are no problems on your computer then i add Keyfile support

http://prospeed-jan.xprofan.com/list-all-downloads.php

Woot Woot!! I was waiting for a PM! Just saw this thread again so, YES! It works like a charm! Thank you jpam, this is now my Encryptor of choice!

[TehWhale]

Also, it fails to encrypt FreeText.au3, UDF by Valuater.

Problem signature:

Problem Event Name: APPCRASH

Application Name: AutoIt3.exe

Application Version: 3.2.13.7

Application Timestamp: 48997e0f

Fault Module Name: crypt.dll

Fault Module Version: 0.0.0.0

Fault Module Timestamp: 48da48a3

Exception Code: c0000005

Exception Offset: 0000125c

OS Version: 6.0.6001.2.1.0.768.3

Locale ID: 1033

Additional Information 1: 14f5

Additional Information 2: ce5f2ec6abc2552aebbd20021f29de12

Additional Information 3: d7b8

Additional Information 4: 2f6381e6a426247bf4f79e4c000d93d6

Read our privacy statement:

http://go.microsoft.com/fwlink/?linkid=501...mp;clcid=0x0409

EDIT: It appears it's not the file, because I deleted it, and the file after it, failed like that. Maybe after some number, of continous calls, it will fail? I'm tring to encrypt my whole E:\ drive. Heres my code.

expandcollapse popup

#include "Crypt.au3"
#include <Array.au3>
$fArray = _FileListToArrayEx("E:\", "*", 1, "", True)
_ArrayDisplay($fArray)
_Crypt_Init(@ScriptDir&"\crypt.dll")
$init = TimerInit()
For $i=1 To $fArray[0]
    _Crypt_CryptFile($fArray[$i], "123")
    TrayTip("", $fArray[$i], 2)
    Sleep(50)
Next
MsgBox(0, "time", TimerDiff($init))



Func _FileListToArrayEx($sPath, $sFilter = '*.*', $iFlag = 0, $sExclude = '', $iRecurse = False)
    If Not FileExists($sPath) Then Return SetError(1, 1, '')
    If $sFilter = -1 Or $sFilter = Default Then $sFilter = '*.*'
    If $iFlag = -1 Or $iFlag = Default Then $iFlag = 0
    If $sExclude = -1 Or $sExclude = Default Then $sExclude = ''
    Local $aBadChar[6] = ['\', '/', ':', '>', '<', '|']
    $sFilter = StringRegExpReplace($sFilter, '\s*;\s*', ';')
    If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
    For $iCC = 0 To 5
        If StringInStr($sFilter, $aBadChar[$iCC]) Or _
            StringInStr($sExclude, $aBadChar[$iCC]) Then Return SetError(2, 2, '')
    Next
    If StringStripWS($sFilter, 8) = '' Then Return SetError(2, 2, '')
    If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then Return SetError(3, 3, '')
    Local $oFSO = ObjCreate("Scripting.FileSystemObject"), $sTFolder
    $sTFolder = $oFSO.GetSpecialFolder(2)
    Local $hOutFile = @TempDir & $oFSO.GetTempName
    If Not StringInStr($sFilter, ';') Then $sFilter &= ';'
    Local $aSplit = StringSplit(StringStripWS($sFilter, 8), ';'), $sRead, $sHoldSplit
    For $iCC = 1 To $aSplit[0]
        If StringStripWS($aSplit[$iCC],8) = '' Then ContinueLoop
        If StringLeft($aSplit[$iCC], 1) = '.' And _
            UBound(StringSplit($aSplit[$iCC], '.')) - 2 = 1 Then $aSplit[$iCC] = '*' & $aSplit[$iCC]
        $sHoldSplit &= '"' & $sPath & $aSplit[$iCC] & '" '
    Next
    $sHoldSplit = StringTrimRight($sHoldSplit, 1)
    If $iRecurse Then
        RunWait(@Comspec & ' /c dir /b /s /a ' & $sHoldSplit & ' > "' & $hOutFile & '"', '', @SW_HIDE)
    Else
        RunWait(@ComSpec & ' /c dir /b /a ' & $sHoldSplit & ' /o-e /od > "' & $hOutFile & '"', '', @SW_HIDE)
    EndIf
    $sRead &= FileRead($hOutFile)
    If Not FileExists($hOutFile) Then Return SetError(4, 4, '')
    FileDelete($hOutFile)
    If StringStripWS($sRead, 8) = '' Then SetError(4, 4, '')
    Local $aFSplit = StringSplit(StringTrimRight(StringStripCR($sRead), 1), @LF)
    Local $sHold
    For $iCC = 1 To $aFSplit[0]
        If $sExclude And StringLeft($aFSplit[$iCC], _
            StringLen(StringReplace($sExclude, '*', ''))) = StringReplace($sExclude, '*', '') Then ContinueLoop
        Switch $iFlag
            Case 0
                If StringRegExp($aFSplit[$iCC], '\w:\\') = 0 Then
                    $sHold &= $sPath & $aFSplit[$iCC] & Chr(1)
                Else
                    $sHold &= $aFSplit[$iCC] & Chr(1)
                EndIf
            Case 1
                If StringInStr(FileGetAttrib($sPath & '\' & $aFSplit[$iCC]), 'd') = 0 And _
                    StringInStr(FileGetAttrib($aFSplit[$iCC]), 'd') = 0 Then
                    If StringRegExp($aFSplit[$iCC], '\w:\\') = 0 Then
                        $sHold &= $sPath & $aFSplit[$iCC] & Chr(1)
                    Else
                        $sHold &= $aFSplit[$iCC] & Chr(1)
                    EndIf
                EndIf
            Case 2
                If StringInStr(FileGetAttrib($sPath & '\' & $aFSplit[$iCC]), 'd') Or _
                    StringInStr(FileGetAttrib($aFSplit[$iCC]), 'd') Then
                    If StringRegExp($aFSplit[$iCC], '\w:\\') = 0 Then
                        $sHold &= $sPath & $aFSplit[$iCC] & Chr(1)
                    Else
                        $sHold &= $aFSplit[$iCC] & Chr(1)
                    EndIf
                EndIf
        EndSwitch
    Next
    If StringTrimRight($sHold, 1) Then Return StringSplit(StringTrimRight($sHold, 1), Chr(1))
    Return SetError(4, 4, '')
EndFunc;==> _FileListToArrayEx

Edited September 26, 2008 by Alienware

[jpam]

How big is your E drive and how many files ?

so i can try to reproduce it

i did a test in a map containing 54 files whitout any problems.

Edited September 26, 2008 by jpam

[TehWhale]

16863 files. Heh! It errors around the 150th file I believe, I can get an exact number if you need it. In these 16863 files, I've used 5.68GB's.

You could use this:

#include <File.au3>
$Directory = @DesktopDir&"\Test\"
For $i=1 to 1000
_FileCreate("testfile"&$i&".txt")
Next

I'll check this code out, and see if produces the same error.

Just tried it, and it went through 1000 files, and never failed. Hmm.

Edited September 26, 2008 by Alienware

[TehWhale]

Although it still doesn't work for my External, you can use a file as the password!

[jpam]

allready implanted FileKey function

but not uploaded yet !

have found bug with zero byte files.

buzzy fixing it

had less time this weekend (birdday of my son)

[jpam]

Updated Dll And Udf

New Functions:

Compress()

Decompress()

look @ first post for some speed testing

hope it still works for vista users

[TehWhale]

Posting from skool nice new features will test at home

[Catdaddy]

JPam,

This function just gets better and better. I really love the ability of using a file for a key. Many thanks for this wonderful contribution!

PS

Using this on Vista. Tried compress and encrypt on plain text files. Works like a charm. I did notice in your comments about not using a pre-compressed file like a .JPG or .ZIP. Was curious about that but no big deal. It works perfectly for what I need it for.

[TehWhale]

Wow, I love these new functions! They don't compress the best, but they do compress and work at a fast rate!

[jpam]

updated crypt.dll

fixed a bug with compressed file header

[jpam]

I was thinking about adding an option or function for allowing the dll to find a suitable keyfile for you

like a windows system file with the same or larger lenght then the source file that has to be encrypted.

only on large files you get a keyseqence in the encryption.

it's because , when you specify a string or keyfile in your script , the keyfile can be easy retrieved !

i can let the dll store the path+filename of the keyfile in the encrypted file,

so it's alot harder to retrieve the used keyfile.

what do you guys want something like that in the crypt.dll ?

Edited October 14, 2008 by jpam

[TehWhale]

Go for it!!

[senthor]

Not working for me.

Autoit.exe error report or memory errors.

And a "compressed" 1KB file is 35KB.

[wacy1]

Hi,

I'm trying to change the script so that I can use a key in the script instead of using a textfile with the key in it.

I have changed the code

From: $key = SetKey(@ScriptDir &"\key.txt") ; Load keyfile

To: $key = SetKey("key")

But the script either crashes or the decrypted file is the same size as the original but the contents has a few lines from the original text file and then

filles wth spaces:

It appears to encounter a problem when it tries to decrypt the encryped file.

I have checked the Crypt.au3 file file and a String should work ok for SetKey($C_Key) but it's not.

; Syntax $Key = SetKey("my password")

; Key can be string or a path + filename)

; Password string or file can be any lenght , even greater then file thats need to be encrypted

; Return value = String or Memory Pointer

Can anyone offers some advice/clues as to why the function is not dencrypting properly?

Wayne

[jpam]

i will look into that

[jpam]

I see no problems overhere

I'm trying to change the script so that I can use a key in the script instead of using a textfile with the key in it.

I have changed the code

The dll does not read a key in a textfile, but it use the textfile as binary bytes to encrypt/decrypt the source file.

You can even use a mp3 file to encrypt/decrypt.

This is a proper way to use it;

#include "Crypt.au3"

; Compress and Encrypt file
$key = SetKey("key") 
$pMem = ReadFileFast(@ScriptDir&"\readme.txt")

$compress = Compress($pMem) 
Crypt($compress, $key)

WriteFileFast(@ScriptDir&"\readme.txt", $compress)

; Decrypt and Decompress file
$pMem = ReadFileFast(@ScriptDir&"\readme.txt") 

Crypt($pMem, $key)                      
$DeCompress = Decompress($pMem)  

WriteFileFast(@ScriptDir&"\readme.txt", $DeCompress)
DelKey($key)

Exit

[wacy1]

Thanks for your reply, but I'm still a little confused about how I can use a simple password using the code.

Something like this would be useful:

$key = SetKey("387896") or

$key = SetKey("MyClearTextPassword")

My problem is when I use a String as the key as in the examples above.

When I use a filename + path it works ok.

Can you provide an example using a String as the key?

Thanks

Wacy1