-
-
[原创]自己整的一个CM
-
发表于: 2008-9-17 14:08
-
呵呵~~ 将比较简单的运算兜转了几回~~~
由于是VB的缘故
可能新手朋友搞起来有点昏~~~
下载: a0dK9s2c8@1M7q4)9K6b7g2)9J5c8W2)9J5c8Y4N6%4N6#2)9J5k6i4S2H3K9e0x3^5y4W2)9J5k6h3y4G2L8g2)9J5c8X3!0@1K9r3g2J5i4K6u0r3j5%4u0S2j5$3E0E0k6g2)9J5k6i4u0S2M7R3`.`.
由于是VB的缘故
可能新手朋友搞起来有点昏~~~ 下载: a0dK9s2c8@1M7q4)9K6b7g2)9J5c8W2)9J5c8Y4N6%4N6#2)9J5k6i4S2H3K9e0x3^5y4W2)9J5k6h3y4G2L8g2)9J5c8X3!0@1K9r3g2J5i4K6u0r3j5%4u0S2j5$3E0E0k6g2)9J5k6i4u0S2M7R3`.`.
|
|
|---|---|
|
|
00406390 00406883  |
|
|
|
|
|
不会分析算法，暴破
|
|
|
取点灵感。
|
|
|
[QUOTE=hokers;510453]取点灵感。
[/QUOTE]楼上的是爆破 
|
|
|
|
|
|
|
|
|
转的有点晕
|
|
|
 没人贴完整的分析~~~
|
|
|
|
|
|
|
|
|
 楼上说也就差不多了~~ 在用户名上还有点小插曲 呵呵'添加两个文本框 '添加MD5模块 Private Sub Text1_Change() Dim Name, str1, str2, str3 As String Dim L, i, J As Integer Dim sn1, sn2, sn3, sn4 As Long Name = CStr(Text1.Text) L = Len(Name) 'L=用户名位数 If L = 0 Or L Mod 2 <> 0 Or L < 8 Or L > 24 Then '预设用户名条件 Text2.Text = "用户名位数必须为8-24之间的偶数" Else For i = 1 To L sn1 = sn1 + Asc(Mid(Name, i, 1)) 'sn1=用户名ASCII之和 Next i For J = 2 To L sn2 = sn2 + Asc(Mid(Name, J, 1)) 'sn2=用户名偶数位ASCII之和 J = J + 1 Next J sn3 = sn1 - sn2 'sn3=用户名奇数位ASCII之和 sn4 = sn2 * (L / 2) str1 = MD5(CStr(sn4)) 'MD5运算 str2 = StrReverse(str1) '倒序 str3 = Mid(str2, 11, 10) '取倒序后的11-20位 str4 = CStr(sn3) & "-" & str3 Text2.Text = str4 End If End Sub |
|
|
|
|
|
向楼主学习
|
|
|
|
|
|
|
|
|
不错，算法简单但不失灵活。常年潜水，出来透透气
|
|
|
|
|
|
|
