- jcodeeInactive forumer
- Posts : 3
Join date : 2009-11-06
Age : 46
Home Address : AUH, United Arab Emirates
Inline encryption with using bintoint algo
Tue Dec 08, 2009 5:20 pm
procedure encrpt
parameter inline, enckey
outval=''
inline=allt(inline)
enckey=allt(enckey)
if empty(inline) and empty(enckey) then
return
endif
for inlctr = 1 to len(inline)
inlstr = substr(inline,inlctr,1)
inlbin = intobin(int(val(asc(inlstr))))
tmpout = ""
for enctr = 1 to len(enckey)
encstr = substr(enckey,enctr,1)
encbin = intobin(int(val(asc(encstr))))
next enctr
next inlctr
return encval
//Note Intobin function i haven't posted.. give me a holler if u want
parameter inline, enckey
outval=''
inline=allt(inline)
enckey=allt(enckey)
if empty(inline) and empty(enckey) then
return
endif
for inlctr = 1 to len(inline)
inlstr = substr(inline,inlctr,1)
inlbin = intobin(int(val(asc(inlstr))))
tmpout = ""
for enctr = 1 to len(enckey)
encstr = substr(enckey,enctr,1)
encbin = intobin(int(val(asc(encstr))))
next enctr
next inlctr
return encval
//Note Intobin function i haven't posted.. give me a holler if u want
Permissions in this forum:
You cannot reply to topics in this forum