[RESOLVED] Need a really simple encrypt code!

[cyber_alex]

Hi everybody!

I'm after a fast, short and easy code to encrypt/decrypt files.
The important thing is that the code works fast and works with all files, I don't care if it's not advanced cryptation.

I'll rate everyone who helps me!

//Alex

[gavio]

From AllAPI.net:

'Note: Encryptfile only works on NTFS 5
Private Declare Function EncryptFile Lib "ADVAPI32" Alias "EncryptFileA" (ByVal lpFileName As String) As Boolean
Private Declare Function DecryptFile Lib "ADVAPI32" Alias "DecryptFileA" (ByVal lpFileName As String, ByVal dwReserved As Long) As Boolean
Const mFile = "c:\test.txt"
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: [url]http://www.allapi.net/[/url]
    'E-Mail: [email][email protected][/email]
    Encrypt mFile
End Sub
Sub Encrypt(sFile As String)
    If EncryptFile(mFile) Then
        MsgBox "The file's succesfully encrypted. Log in as another user and try to access this file."
    End If
End Sub
Sub Decrypt(sFile As String)
    If DecryptFile(mFile, 0) = True Then
        MsgBox "The file's succesfully decrypted."
    End If
End Sub

[shirazamod]

Hi Alex!
Here's a fast & strong file & text encryption module

There's another one Here

[cyber_alex]

gavio: on my computer, nothing happends when I run that code..

[shirazamod]

Did you try the examples I linked to?

[cyber_alex]

yes, just did. works great!
tnx shirazamod!

[shirazamod]

My pleasure