WIP File Encryptor

[Azan]

Well its not quite done and I just through it together really quickly, but heres what its like, and it works quite well.
The only issues are explaned in the program, and the only problem is that a hacker could see a pattern if he was close to your encryption key, but either way it would be more trouble than its worth.

how it works
Well in order to deencrypt a message you will need more than this program, you
will need 4 keys to unlock it, if one key is off by even 1 it wont de-encypt your
message, so you need to know the 4 keys that en-crypted the message in the
1st place.

Please let me know of any issues or errors or if you found out how to crack it :)

;;;STRING ENCRYPTER/DEENCRYPTER
;by Brian Dawn
;Email [e-mail] (feel free to ask questions)
;or register at ragnarokcom.proboards33.com for more help

;WHATS INCLUDED
;All you need are these two functions, nothing else. one 
;encryptes the other deencryptes strings.

;KNOW ISSUES
;do not use a negative number as a key as it will cause problems
;also dont use numbers with 5 digits or more, as it will also
;cause problems
;When writing to a file dont use Write/ReadLine use write/readstring
;instead otherwise you will get problems

;WARNING DO NOT SHOW THIS TO ANYONE ONLINE, I would like to test
;it 1st among people to make sure there are no loopholes
;(notice for me, use a computers speed to write encryption codes
;for itself)
z$=en$("hello whats up?",254,384,247,55) ;last three numbers are encryption keys
Print z$ + " Encrypted"
Print den$(z$,254,384,247,55)+" This works"
Print den$(z$,254,383,247,55)+" THis doesnt work"

Print ""
Color 255,0,0
Print "As you can see the code values that allows change"
Print "is finite, there are only 256 values (ACI) so"
Print "512 is equal to 256, however seeing as how"
Print "there are 4 encryption keys which all must"
Print "be correct it is near impossible to go through"
Print "yourself when there are so many possibilities."
Print ""
Color 0,0,255
Print "three keys should be enough, but it isnt that hard"
Print "to add more :) (if it is, contact me and ill help)"
Print "this probably could be decrypted but the person"
Print "would have to be able to recognize the aci patterns"
Print "and these are patterns within patterns"
Print "(A feat which is not easy and can take months)"
Print "(and even then it would be more trouble than its"
Print "worth to try to crack your message)"
WaitKey
End
Function en$(s$,code#,code2#,code3#,code4#)
	Local st$
	code#=code#+255
	code2#=code2#+55
	code3#=code3#+155
	For y=1 To Len(s$)
		mi$=Mid$(s$,y,1)
		x=y+y*2
		mi$=Asc(mi$)+code#-x-(x*code#)-(x*code2#)-(x*code3#)+(x*code4#)+Int(code2#/code3#-5)-Int(code#-x*2/code3#)-Int(code3#-x*Pi)+Int(code4#-x*2/code3#)		
		mi$=Chr(mi$)
		st$=st$+mi$
	Next
	Return st$
End Function

Function den$(s$,code#,code2#,code3#,code4#)
	Local st$
	code#=code#+255
	code2#=code2#+55
	code3#=code3#+155
	For y=1 To Len(s$)
		mi$=Mid$(s$,y,1)
		x=y+y*2
		mi$=Asc(mi$)-code#+x+(x*code#)+(x*code2#)+(x*code3#)-(x*code4#)-Int(code2#/code3#-5)+Int(code#-x*2/code3#)+Int(code3#-x*Pi)-Int(code4#-x*2/code3#)
		mi$=Chr$(mi$)
		st$=st$+mi$
	Next
	Return st$
End Function

Also if anyone wants a version where you read/encrypt text files just let me know and ill throw one together.