ypxlh.txt

PB如何产生软件序列号

String zm[26]
string GetVal 
zm[1] = "A"
zm[2] = "3"
zm[3] = "C"
zm[4] = "D"
zm[5] = "E"
zm[6] = "4"
zm[7] = "G"
zm[8] = "H"
zm[9] = "9"
zm[10] = "J"
zm[11] = "K"
zm[12] = "L"
zm[13] = "M"
zm[14] = "N"
zm[15] = "J"
zm[16] = "P"
zm[17] = "Q"
zm[18] = "R"
zm[19] = "S"
zm[20] = "T"
zm[21] = "1"
zm[22] = "J"
zm[23] = "2"
zm[24] = "X"
zm[25] = "Y"
zm[26] = "Z"
String yhxlh 
String  TempStr1 
String TempStr2  
Long TempLon1,jg1  
Long TempLon2  
//
string ls_model
boolean bl_Return
ls_model = Space(32)
GetVal = Space(32)
bl_Return = DiskID32(ls_model, GetVal)
//
GetVal=TRIM(GetVal)
  String zcm 
  String zcm1  
  String z_xlh  
  z_xlh = string(GetVal)
  integer i
  integer z_zb
  ZCM=""
  For i = 1 To len(string(GetVal))
	z_zb=mod((asc(Right(z_xlh, 1)) * 37 + 93),67)
	if z_zb=0 then
		z_zb=i
	end if
  zcm = zcm + zm[z_zb]
  z_xlh = Left(string(GetVal), len(string(GetVal)) - i)
  Next
  z_xlh = string(GetVal)
  ZCM1=""
  For i = 1 To len(string(GetVal))
	z_zb=Mod((asc(Right(z_xlh, 1)) * 1113 + 97),67)
	if z_zb=0 then
		z_zb=i
	end if
  zcm1 = zcm1 + zm[z_zb]
  z_xlh = Left(string(GetVal), len(string(GetVal)) - i)
  Next
  string a1,a2,a3
  a1 = Right(string(GetVal), 2)
  a2 = Left(string(GetVal), 2)
  a3 = Right(string(GetVal), 1)
 
  zcm = zcm + zcm1
  yhxlh = a3 + Left(zcm, 3) + a1 + Right(zcm, len(zcm) - 3) + a2
  t_yhxlh = yhxlh
  
  yhxlh = Left(yhxlh, len(yhxlh) - 2)
  yhxlh = Right(yhxlh, len(yhxlh) - 1)
  yhxlh = Left(yhxlh, 3) + Right(yhxlh, len(yhxlh) - 5)
 String xlh1  
 String xlh2  
  xlh1 = Left(yhxlh, 12)
  xlh2 = Right(yhxlh, 8)

    String t_xlh1, t_xlh2 ,zm1, zm2 
	 string old_zcm
 old_zcm=""
   Integer a
  t_xlh1 = xlh1
  t_xlh2 = xlh2
  For i = 1 To len(xlh1)
  zm1 = Right(t_xlh1, 1)
  t_xlh1 = Left(xlh1, len(xlh1) - i)
  zm2 = Right(t_xlh2, 1)
  t_xlh2 = Left(xlh2, len(xlh2) - i)
  a = Asc(zm2) - Asc(zm1)
  If a < 0 Then
  a = a * -1
  End If
  old_zcm = old_zcm + string(a * 7)
  Next
 zz_zcm=left(old_zcm,4)+"-"
 old_zcm=right(old_zcm,len(old_zcm)-4)
 zz_zcm=zz_zcm+left(old_zcm,8)+"-"
 zz_zcm=zz_zcm+right(old_zcm,4)