encryptfile

Encode/Decode File Using Password

Encode/Decode File Using Password

Enter file source name, file destination name, and password. this code
will copy the source file to the destination file name. If the source
file was not encrypted, the destination file will be encrypted. If the
source file was encrypted, the destination file will be the former file
before the encryption.

Preparations

Add 1 Command Button named Command1.

Form Code

Sub FileEncodeAndDecode(InputFile As String, OutputFile As String,
PasswordKey As String)

Dim temp As Single
Dim Char As String * 1
Dim XORMask As Single
Dim temp1 As Integer

Open InputFile For Binary As #1
Open OutputFile For Binary As #2

For x = 1 To Len(PasswordKey)
temp = Asc(Mid$(PasswordKey, x, 1))
For y = 1 To temp
temp1 = Rnd
Next y

' Re-seed to throw off prying eyes
Randomize temp1
Next x


Counter = 0
For z = 1 To FileLen(InputFile)

'Generate random mask
XORMask = Int(Rnd * 256)

'Get the char & change it
Get 1, , Char
Char = Chr$((Asc(Char) Xor XORMask))
Put 2, , Char

Counter = Counter + 1
If Counter > Len(PasswordKey) Then Counter = 1

' Pull random numbers from the hat
For x = 1 To (Asc(Mid$(PasswordKey, Counter, 1)) * 2)
temp = Rnd
Next x
Next z

Close #1
Close #2

End Sub

Private Sub Command1_Click()

Dim InputFile As String
Dim OutputFile As String
Dim PasswordKey As String

InputFile = InputBox("Enter thr filename to encode/decode")
OutputFile = InputBox("Enter the new filename this file will become ")
PasswordKey = InputBox("Enter the password")

Call FileEncodeAndDecode(InputFile, OutputFile, PasswordKey)

MsgBox "File written to " + OutputFile
End
End Sub