Rockage's File Protector

[Rockage]

A encryptor/decryptor, more advanced then the one thats currently open source

Soon to come:

Password required to decrypt file.

[Zachafer]

Dude, a password required to decrypt would be easy wouldn't it?

Use:

Private Sub cmdEncrypt_Click()
Dim strPass As String
strPass = InputBox("Please Enter a Password.", "Password Required")
Call EncryptFile(txtPath.Text)
MsgBox "Successfully Encrypted.", vbExclamation + vbYesOnly, "Successful Encrypt!"
End Sub

Private Sub cmdDecrypt_Click()
Dim strPass2 As String
strPass2 = InputBox("Please Enter Your Password.", "Enter Your Password")
If strPass2 = strPass Then
Call DecryptFile(txtPath.Text)
MsgBox "Successfully Decrypted.", vbInformation + vbOKOnly, "Successful Decrypt!"
End Sub

[Rockage]

no thanks, Im not going to use your code. Yes its easy and I have it done, I am just changing the encryption method...

[Starwind237]

I'll stick with truecrypt. Works very well.

[Rockage]

thats nice..I could care less. this wasnt made for you, this was made as an example of encryption. its open source anyways.

[barrel1988]

ty im gonna try this now