VB Code:
Dim I As Long
Dim Total() As Byte
Dim TheTotal() As Byte
Dim n As Long
Dim AX As Integer
Dim AAA As Long
Dim X As Integer
n = FileLen(File1.Path + "/" + File1.FileName)
ReDim Total(n - 1)
ReDim TheTotal(n - 1)
TheFile = File1.Path + "/" + File1.FileName
Open TheFile For Binary As #10
Get #10, , Total()
Close #10
AAA = (Len(Text1.Text) + 100) / Len(Text1.Text)
AX = 1
For I = LBound(Total) To UBound(Total)
X = AAA
X = X + AX
TheTotal(I) = Total(I) Xor X
AX = AX + 1
If AX = 10 Then
AX = 1
End If
Next I
Open TheFile For Binary Access Write As #20
Put #20, , TheTotal()
Close #20