08-21-2005, 01:09 PM
hey, this doesnt crash on my pc
Code:
Option Explicit
Declare Function __crypt_msg ( s As String, p As String ) As String
Dim p As String
p = __crypt_msg ( "hiasuhdkjhskdj", "ruben" )
? p
p = __crypt_msg ( p, "ruben" )
? p
Sleep
Function __crypt_msg ( s As String, p As String ) As String
Dim As Integer a, e, c, l, x, y, z, ac, av, ls, zz
Dim r As String
r = s
l = Len ( p )
ls = Len ( s )
Dim a2 ( l )
For av = 0 To l - 1
ac += p [av]
Next
ac = ac \ l
a = ls Xor ac
y = 0
z = l - 1
Do
a2 ( y ) = l - (a Xor (( p [y] Xor p [z] ) Xor (69 Or a))) '
y += 1
z -= 1
Loop Until z <= y
Do
For e = 0 To a
r [c] = (( s [c ] )) Xor ( e Xor a2 ( zz Xor 256)) Xor ( p [zz] )
c + = 1
If c = ls Then Return r
zz += 1
If zz = l Then zz = 0
Next
Loop
End Function