Search results for query: *

This will encrypt or decrypt 'text', it's not super secure, but it's not much overhead. public function cryption (byval text as string) dim strtempchar as string dim i as integer for i = 1 to len(text) if asc(mid$(text,i,1)) < 128 then strtempchar = ctype(asc(mid$(text,i,1)) +128, string)...