kljm.prg

不错的用电管理系统,用VFP6.0做的.大家可以下来看看哦

para hh

*PUBL WMZ,ZMZ

IF HH=1
	n2=''
	for i=1 to 10
		n1=chr(asc(subs(zmz,11-i,1))+(i*13))
		n2=n2+n1
	endfor
	WMZ=n2
	RETU WMZ
ELSE
	n2=''
	for i=1 to 10
		n1=chr(asc(subs(wmz,11-i,1))-((11-i)*13))
		n2=n2+n1
	endfor
	ZMZ=n2
	RETU ZMZ
ENDIF