加密函数.txt

利用此函数可以加密也可以解密

char c
string coded_password
int n,i,j,min_value,max_value

min_value=30000
max_value=0
n=len(as_password)
for i=1 to n
	c=mid(as_password,i,1)
	j=asc(c)
	if j<min_value then
		min_value=j
	end if
	if j>max_value then
		max_value=j
	end if
next

for i=1 to n
	coded_password=coded_password+char(min_value+max_value - asc(mid(as_password,i,1)))
next

return coded_password