Function ID_Decoding(id, RValue) Dim UniNum, strLength, DecodeID Dim i, m, strRValue UniNum = "" DecodeID = "" strLength = Len(id) For i = 1 to strLength step 1 UniNum = UniNum + CStr(AscW(Mid(id, i, 1))) Next UniNum = replace(UniNum, "-", "") strLength = Len(UniNum) For i = 1 to (strLength/2) + (strLength mod 2) step 1 DecodeID = DecodeID + Mid(UniNum, i, 1) DecodeID = DecodeID + Mid(UniNum, strLength - (i-1), 1) Next Dim tempID Dim FirstStr, LastStr strLength = Len(DecodeID) For m = 1 to RValue step 1 TempID = "" For i = 1 to (strLength/2) step 1 FirstStr = Mid(DecodeID, i, 1) LastStr = Mid(DecodeID, strLength - (i-1), 1) if (int(FirstStr) mod 2 = int(LastStr) mod 2) then TempID = TempID + FirstStr + LastStr else TempID = TempID + LastStr + FirstStr end if Next DecodeID = TempID Next Dim zeronum zeronum = "00000" strRValue = CStr(RValue) strLength = Len(strRValue) if strLength < 5 then strRValue = Mid(zeronum, 1, 5 - strLength) + strRValue end if DecodeID = DecodeID + strRValue ID_Decoding = DecodeIDEnd Function 看着头大 哪位大哥能不能给段加密的代码？ _________________________________________________________________ 一点即聊，MSN推出新功能“点我！” http://im.live.cn/click/ --~--~---------~--~----~------------~-------~--~----~ 要向邮件组发送邮件，请发到 [email protected] 要退订此邮件，请发邮件至 [EMAIL PROTECTED] -~----------~----~----~----~------~----~------~--~---
