encrypt decrypt help

[7h331337]

can any one tell me y my script takes so long to decrypt a file

it happens on files bigger than 30kb

thanks

encrypt:

CODE

#include <file.au3>

#include <string.au3>

$file = FileOpenDialog("",@scriptdir,"txt(*.txt)")

$pass = inputbox("pass","pass","")

Dim $aRecords

If Not _FileReadToArray($file,$aRecords) Then

MsgBox(4096,"Error", " Error select a file error:" & @error)

Exit

EndIf

For $x = 1 to $aRecords[0]

$ran = Random(1,1000)

$str = _StringEncrypt(1,$aRecords[$x],$pass,$ran)

FileWrite(@ScriptDir & "\" & "randome numbers.txt",$ran & ",,")

FileWrite($file & ".enc",$str & @CRLF)

Next

decrypt:

CODE

#include <file.au3>

#include <string.au3>

$file = FileOpenDialog("",@scriptdir,"enc(*.enc)")

$ranfile = FileOpenDialog("",@scriptdir,"random(randome numbers.txt)")

$pass = inputbox("pass","pass","")

Dim $aRecords

dim $ranfile1

If Not _FileReadToArray($file,$aRecords) Then

MsgBox(4096,"Error", " Error select file error:" & @error)

Exit

EndIf

If Not _FileReadToArray($ranfile,$ranfile1) Then

MsgBox(4096,"Error", " Error read random number error:" & @error)

Exit

EndIf

For $x = 1 to $aRecords[0]

$ran = StringSplit($ranfile1,",")

$str = _StringEncrypt(0,$aRecords[$x],$pass,$ran)

FileWrite($file & "dev",$str )

Next

thanks

Edited July 13, 2008 by 7h331337

[Valuater]

$ran = Random(1, 1000)

encrypting to 1000 is a major depth and creates a length that is hhhhhhuuuuuggggeee.......if it works at all..

.... have you tried to open a file, under 30kb, after the encrypt/decrypt process?

8)

[7h331337]

i no 1 to 1000 is massssiv but thats good encryption lol

i gues just dont use it for big files lol thanks

[Pain]

_StringEncrypt

Remarks

WARNING: This function has an extreme timespan if the encryption level or encrypted string are too large!

[7h331337]

_StringEncrypt

Remarks

WARNING: This function has an extreme timespan if the encryption level or encrypted string are too large!

oye thanks i forgot abt that