Ayuda (Encryptacion)

[Gizmo2040]

Solo para practiacr ise un programilla en visualbasic para encriptar mensajes a partir de un password es muy simple usa el siguiente prosedimiento
supongamos que la frase a encryptar es "visual basic es uno de los mejores compiladores"
y el password "gizmo"
lo unico que ase es que toma los asquis de la frase y los suma con los de el password
ejemplo:
visual basic es uno de los mejores compiladores
gizmogizmogizmogizmogizmogizmogizmogizmog

y funciona perfecto tan bien que aora no encuentro la forma de crackiarlo por mas que quiero agradeseria respuestas o ideas :-)

[Gizmo2040]

Para los que le entro la duda aqui esta el programa
http://www.angelfire.com/punk/roto/encrypt.exe
y para los desconfiados aqui hay un screenshot
http://www.angelfire.com/punk/roto/encrypt.jpg


y aqui esta tambien el codigo de fuente :

Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
Dim z As Integer
Dim e As Integer
z = Len(Text1.Text)
ReDim a(z) As Integer
ReDim b(z) As Integer
For x = 1 To z
e = IIf(e = Len(Text2.Text), 1, e + 1)
a(x) = Asc(Mid(Text1.Text, x, 1))
b(e) = Asc(Mid(Text2.Text, e, 1))
texto = a(x) + b(e)
texto = IIf(texto > 250, texto - 250, texto)
enc = enc & Chr(texto)
Next
Text3.Text = enc
End Sub

Private Sub Command2_Click()
z = Len(Text3.Text)
ReDim a(z)
ReDim b(z)
Dim e As Integer
For x = 1 To z
e = IIf(e = Len(Text2.Text), 1, e + 1)
b(e) = Asc(Mid(Text2.Text, e, 1))
a(x) = Asc(Mid(Text3.Text, x, 1))
texto = a(x) - b(e)
texto = IIf(texto < 0, texto + 250, texto)
enc = enc & Chr(texto)
Next
Text1.Text = enc
End Sub

Private Sub Command3_Click()
Form2.Show
End Sub

[Gizmo2040]

Para que los links funcionen tienen que copiar y pegar la direccion en el buscador no jala dandoles click
http://www.angelfire.com/punk/roto/encrypt.exe
http://www.angelfire.com/punk/roto/encrypt.jpg