Negative Impact
Member
Hi Guys
i want to make a file encrypter ...
normally for larg files i get OutOfMemory error ...
how i can use RAF for this work ?
how i can use this codes by "RAF" for solve my 'OutOfMemory' Problem ?!
Thank All
i want to make a file encrypter ...
normally for larg files i get OutOfMemory error ...
how i can use RAF for this work ?
My test Read file and Encryptions functions:
Sub ReadFile(Dir As String, flname As String) As Byte()
Dim out As OutputStream
out.InitializeToBytesArray(100) 'size not really important
File.Copy2(File.OpenInput(Dir, flname), out)
Return out.ToBytesArray
End Sub
Sub AES_Encrypt(input() As Byte, IV As String, pass As String)
Dim passB() As Byte = pass.GetBytes("UTF8")
Dim IVb() As Byte = IV.GetBytes("UTF8")
Dim su As StringUtils
Dim kg As KeyGenerator
Dim C As Cipher
kg.Initialize("AES")
kg.KeyFromBytes(passB)
C.Initialize("AES/CBC/PKCS5Padding")
C.InitialisationVector = IVb
Dim datas() As Byte = C.Encrypt(input, kg.Key, True) ' OutPut Is a Encrypted Aes Byte...
File.WriteBytes(File.DirRootExternal,"encrypted.jpg",datas)' Save Encrypted File
End Sub
Sub GenerateIV As String
Dim PWC As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
Dim IV As String
For i=0 To 15
IV=IV & PWC.CharAt(Rnd(0,PWC.Length))
Next
Return IV
End Sub
'I Use This :
Dim Pass As String = "12345678901234567890123456789012" ' 32
Dim iv As String = GenerateIV
AES_Encrypt(ReadFile(File.DirRootExternal,"tt.jpg"),iv,Pass)
how i can use this codes by "RAF" for solve my 'OutOfMemory' Problem ?!
Thank All