pdferaser分析，注册机源码及成品

DaShanRen

说实话，这代码写的还真不咋地，从第一行开始就规矩不清还卖弄。
我略为整理了一下，如下：

1.     Dim 必要字符, 目标, 随机字符, 插入 As String, n As Integer, i As Integer
   
2. 
   
3.     必要字符 = "WGNA"
   
4.     随机字符 = "9871234560NOPQRSTUVWXYZABCDEFGHIJKLM"
   
5.     码1 = "M9NTA1WQ64LGO60"
   
6.     码2 = "LAGSW1VQ54K2N6Z"
   
7.     码3 = "IWFIN9A53841J7G"
   
8.     码4 = "05930UNGGB0A1WQ"
   
9.     码5 = "IW9F678L1AN6LZG"
   
10.    
    
11.     Randomize
    
12.     n = Int(3 * Rnd + 1)
    
13.     For i = 1 To 4
    
14.         目标 = 目标 & Mid(必要字符, (n Mod 4) + 1, 1)
    
15.         n = n + 1
    
16.     Next
    
17.    
    
18.     Randomize
    
19.     m = Int(14 * Rnd + 1)
    
20.     插入 = m
    
21.     For i = 1 To 3
    
22.         Do
    
23.             m = Int(14 * Rnd + 1)
    
24.         Loop While InStr(插入, m) <> 0
    
25.         
    
26.         插入 = 插入 & "," & m
    
27.     Next
    
28.    
    
29.     插入1 = Split(插入, ",")
    
30.    
    
31.     Do
    
32.         码 = ""
    
33.         Randomize
    
34.         For i = 1 To 15
    
35.             n = Int(35 * Rnd + 1)
    
36.             码 = 码 & Mid(随机字符, n, 1)
    
37.         Next
    
38.         
    
39.         For i = 0 To 3
    
40.             n = 插入1(i)
    
41.             Mid(码, n, 1) = Mid(目标, i + 1, 1)
    
42.         Next
    
43.     Loop While (码 = 码1) Or (码 = 码2) Or (码 = 码3) Or (码 = 码4) Or (码 = 码5)
    
44.     Text1.Text = 码

复制代码

学C的人认为VB不够高端，学易的人认为VB的英文难记，就是没考虑学一行精一行。

andyfeifei

楼上说得对，有几处有点小问题。没有去理了特别是处理随机的时候，随机数修正了下

andyfeifei

卖弄倒也不是，说实话没写过，这次也是试下。感谢你的建议手机回复老不爽不是这里错就是那里错
编程各有各的思维，DaShanRen兄的代码从理论上来讲代码要比我的运行速度要快点
从最后的循环来讲，我个人的插入的时候15个字符每一次都要判断一次插入的位置，而DaShanRen，兄的是直接替换位置的地方。
其实程序还有一个地方就是在接收插入字符的位置，如果按现在写程序的方式来看，第一个随机出现的是12，然后再次随机出现的是2的时候就是判断为重复
有兴趣的可以再修改一下，我就不再做修改了其实发布时候过后就想到这些问题了，毕竟这里只是讲破解讲分析算法，所以没有这么去较真的。

gxggxy103

感谢发布原创作品！

gujin162

哥顶的不是帖子，是寂寞！

read4011

膜拜会分析算法的大牛

Nisy

膜拜~

建议以后将算法分析部分拆出来放到【软件安全】版块，这样更便于大家交流和学习。

找个人来爱

PYG有你更精彩！