Ææñæñæñæñæñæñæñæñæñæñæñæ
Write your own encryption
Kraek Kopf
Kraek@tfz.net
http://members.tripod.com/hack_texts/
Ææñæñæñæñæñæñæñæñæñæñæñæ

W R I T E _ Y O U R _ O W N _ E N C R Y P T I O N

*Note: This code is not the same code I use for Encryption Crypt. I wrote this code for new programers to get a taste of what encryption is like. If you write your own Programming using this
Source please put my name some where in the credits.
You'll need a vb compiler to write this program 4.0 or up.

Sub Encrypt ()
Dim temp As String
Dim I as Integer
Dim location As Integer
Temp = ""
Code = text3
datastring$ = Text1
For i% = 1 To Len(datastring$)

location% = (i% Mod Len(code)) + 1
a% = Asc(Mid$(code, location%, 1))
v% = Asc(Mid$(datastring$, i%, 1))
If a% = v% Then
v% = 0
Else
End If
temp$ = temp$ + Chr$(a% Xor v%)


Next i%
Text1 = temp$
End sub

Ææñæñæñæñæñæñæñæñæñæñæñæ
Write your own encryption
Kraek Kopf
Kraek@tfz.net
http://members.tripod.com/hack_texts/
Ææñæñæñæñæñæñæñæñæñæñæñæ