生成注册码前的近乎唯一的数字字符串的方法（The method of generating a near unique string of numbers before the registration code is generated）.doc

生成注册码前的近乎唯一的数字字符串的方法（The method of generating a near unique string of numbers before the registration code is generated） [originality] the method of generating a near unique string of numbers in front of the registration code Article title: [wind brave top method string of numbers almost all of the original] registration code generation before released: almost all of the 2006-01-2114:41 digital string method [landlord [original] before the registration code generation Article author: brave wind, [E.S.T Advisory Group,] Source: Evil octal information security team () Quote: FunctionKey1 (Str) str-- registration content DimI, A A--; the digital string before the registration code is generated ForI=1ToLen (Str) A=AAbs (Asc (Mid (Str, I, 1)) Next the loop above converts all content in the registered content into a ANSI string Do IfLen (A) 12Then A=Key2 (A) calls the function key2 to shorten the length before the registration code is generated Else ExitDo EndIf Loop A=Key2 (A) do it again so that all the numbers can be used again the string is limited to a certain number by the loop above Key1=Key3 (A) calls other functions to convert numbers into their own unique registration codes EndFunction FunctionKey2 (Num) DimA, B, C A=Mid (Num, 1,6) take the string 1-6 digits B=Mid (Num, 7,6) take the string 6-12 digits C=Mid (Num, 13) takes the number after the string 12, corresponding to the function key1 Key2=A\9B\7C shorten strings, numbers, and you can choose one of the 1-9 EndFunction There are many ways to convert numbers into specific characters. Because my own things are written by myself, this method is not published. The method is very simple, for everyone to make a reference. Tips: If the string is too short and returns, we can pass the mid and Len of the 2 built-in functions in the conversion when the final registration code is fixed into a specific length, such as length of 1, then len (mid (STR, 3,3)) return 0, so you have a fixed length content Or you ca