Decent Encyption?

[Gimlin]

Hi, this is my first complete Encyption. Tell me if it is decent, and ways I could inprove it.

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

Be kind I am Noob at this

Thanks

[Gimlin]

[Gimlin]

bump

[Lord_Rat]

I've no idea.

[DaoK]

quite simple to decrypt

[Gimlin]

lol any suggestions

[Lord_Rat]

Just a thought though:

AX = AX + 1
If AX = 10 Then
AX = 1
End If


What about:

AX = AX + 1
AX = AX Mod 10

[Gimlin]

Thanks, anything else?

[Gimlin]

Anyone?