烤猫当夜宵的个人资料

请各位老大帮我分析一下算法，小菜菜实在看不懂算法过程。 Private Sub Command1_Click() '40A5AC 'Data Table: 401BD4 loc_40A413: Me.txtResult.Text = CStr(((CDbl(Proc_2_3_408B8C(Me.txtHardNo.Text)) * CDbl(7)) - CDbl(263))) loc_40A44A: If (Len(Me.txtResult.Text) > 3) Then loc_40A4BB: Me.txtResult.Text = CStr(Left(CVar(Me.txtResult.Text), 3) & "56" & Mid(CVar(Me.txtResult.Text), 4, var_108)) loc_40A4DD: End If loc_40A501: For var_13C = 1 To Len(Me.txtResult.Text): var_130 = var_13C 'Long loc_40A53D: var_134 = CStr(CVar(var_134) & Mid(CVar(Me.txtResult.Text), var_130, 1)) loc_40A580: If (CVar((CDbl(var_130) / CDbl(4))) = Round(CVar((CDbl(var_130) / CDbl(4))), 0)) Then loc_40A58A: var_134 = var_134 & "-" loc_40A58D: End If loc_40A590: Next var_13C 'Long loc_40A5A2: Me.txtResult.Text = var_134 loc_40A5AA: Exit Sub End Sub Public Function UserCode(password) '40A820 'Data Table: 401BD4 loc_40A630: var_B8 = 0 'Variant loc_40A647: For var_F8 = 1 To CLng(CVar(Len(password))): var_DC = var_F8 'Long loc_40A674: var_98 = CVar(AscW(CStr(Mid(password, var_DC, 1)))) 'Variant loc_40A6C1: var_E0 = CStr(CVar(vbNullString) & ChrW(CLng(Fix((((var_98 * 13) Mod 256) + 0))))) loc_40A6E0: var_A8 = ((var_98 * 13) / 256) 'Variant loc_40A6E7: Next var_F8 'Long loc_40A718: password = CStr(CVar(var_E0) & ChrW(CLng(Fix(var_A8)))) loc_40A72D: var_A8 = 0 'Variant loc_40A736: var_B8 = 0 'Variant loc_40A74D: For var_154 = 1 To CLng(CVar(Len(password))): var_DC = var_154 'Long loc_40A77A: var_98 = CVar(AscW(CStr(Mid(password, var_DC, 1)))) 'Variant loc_40A802: var_E0 = CStr(CVar(CStr(CVar(vbNullString) & ChrW(CLng(Fix(((var_98 / 16) + 64)))))) & ChrW(CLng(Fix(((var_98 Mod 16) + 64))))) loc_40A80F: Next var_154 'Long loc_40A817: var_88 = var_E0 loc_40A81A: UserCode = End Function Public Function UserDeCode(password) '40AD20 'Data Table: 401BD4 Dim var_174 As Variant loc_40AB0B: var_9C = 0 'Variant loc_40AB14: var_AC = 0 'Variant loc_40AB2E: For var_110 = 1 To CVar(Len(password)) Step 2: var_CC = var_110 'Variant loc_40ABB4: var_174 = (CVar(((CLng(AscW(CStr(Mid(password, CLng(var_CC), 1)))) - &H40) * &H10)) + CVar(AscW(CStr(Mid(password, CLng((var_CC + 1)), 1))))) loc_40ABEE: var_8C = CStr(CVar(vbNullString) & ChrW(CLng((var_174 - 64)))) loc_40ABFB: Next var_110 'Variant loc_40AC06: var_9C = 0 'Variant loc_40AC0F: var_AC = 0 'Variant loc_40AC16: password = var_8C loc_40AC28: var_BC = CVar(Len(password)) 'Variant loc_40AC7C: For var_1B4 = (var_BC - 1) To 1 Step -1: var_CC = var_1B4 'Variant loc_40ACBB: var_AC = ((CVar(AscW(CStr(Mid(password, CLng(var_BC), 1)))) * 256) + CVar(AscW(CStr(Mid(password, CLng(var_CC), 1))))) 'Variant loc_40ACD5: var_9C = (var_AC Mod 13) 'Variant loc_40AD01: var_8C = CStr(ChrW(CLng(Fix((var_AC / 13)))) & CVar(vbNullString)) loc_40AD0E: Next var_1B4 'Variant loc_40AD17: var_88 = var_8C loc_40AD1A: UserDeCode = End Function Public Sub Proc_4_3_40833C() 'Data Table: 401BD4 loc_408326: Me.txtResult.Text = UserCode(Me.txtHardNo.Text) loc_408339: Exit Sub End Sub

请高能帮我分析一下算法，根据硬盘系列号生产注册码的。 Private Sub Command1_Click() '40A5AC 'Data Table: 401BD4 loc_40A413: Me.txtResult.Text = CStr(((CDbl(Proc_2_3_408B8C(Me.txtHardNo.Text)) * CDbl(7)) - CDbl(263))) loc_40A44A: If (Len(Me.txtResult.Text) > 3) Then loc_40A4BB: Me.txtResult.Text = CStr(Left(CVar(Me.txtResult.Text), 3) & "56" & Mid(CVar(Me.txtResult.Text), 4, var_108)) loc_40A4DD: End If loc_40A501: For var_13C = 1 To Len(Me.txtResult.Text): var_130 = var_13C 'Long loc_40A53D: var_134 = CStr(CVar(var_134) & Mid(CVar(Me.txtResult.Text), var_130, 1)) loc_40A580: If (CVar((CDbl(var_130) / CDbl(4))) = Round(CVar((CDbl(var_130) / CDbl(4))), 0)) Then loc_40A58A: var_134 = var_134 & "-" loc_40A58D: End If loc_40A590: Next var_13C 'Long loc_40A5A2: Me.txtResult.Text = var_134 loc_40A5AA: Exit Sub End Sub Public Function UserCode(password) '40A820 'Data Table: 401BD4 loc_40A630: var_B8 = 0 'Variant loc_40A647: For var_F8 = 1 To CLng(CVar(Len(password))): var_DC = var_F8 'Long loc_40A674: var_98 = CVar(AscW(CStr(Mid(password, var_DC, 1)))) 'Variant loc_40A6C1: var_E0 = CStr(CVar(vbNullString) & ChrW(CLng(Fix((((var_98 * 13) Mod 256) + 0))))) loc_40A6E0: var_A8 = ((var_98 * 13) / 256) 'Variant loc_40A6E7: Next var_F8 'Long loc_40A718: password = CStr(CVar(var_E0) & ChrW(CLng(Fix(var_A8)))) loc_40A72D: var_A8 = 0 'Variant loc_40A736: var_B8 = 0 'Variant loc_40A74D: For var_154 = 1 To CLng(CVar(Len(password))): var_DC = var_154 'Long loc_40A77A: var_98 = CVar(AscW(CStr(Mid(password, var_DC, 1)))) 'Variant loc_40A802: var_E0 = CStr(CVar(CStr(CVar(vbNullString) & ChrW(CLng(Fix(((var_98 / 16) + 64)))))) & ChrW(CLng(Fix(((var_98 Mod 16) + 64))))) loc_40A80F: Next var_154 'Long loc_40A817: var_88 = var_E0 loc_40A81A: UserCode = End Function Public Function UserDeCode(password) '40AD20 'Data Table: 401BD4 Dim var_174 As Variant loc_40AB0B: var_9C = 0 'Variant loc_40AB14: var_AC = 0 'Variant loc_40AB2E: For var_110 = 1 To CVar(Len(password)) Step 2: var_CC = var_110 'Variant loc_40ABB4: var_174 = (CVar(((CLng(AscW(CStr(Mid(password, CLng(var_CC), 1)))) - &H40) * &H10)) + CVar(AscW(CStr(Mid(password, CLng((var_CC + 1)), 1))))) loc_40ABEE: var_8C = CStr(CVar(vbNullString) & ChrW(CLng((var_174 - 64)))) loc_40ABFB: Next var_110 'Variant loc_40AC06: var_9C = 0 'Variant loc_40AC0F: var_AC = 0 'Variant loc_40AC16: password = var_8C loc_40AC28: var_BC = CVar(Len(password)) 'Variant loc_40AC7C: For var_1B4 = (var_BC - 1) To 1 Step -1: var_CC = var_1B4 'Variant loc_40ACBB: var_AC = ((CVar(AscW(CStr(Mid(password, CLng(var_BC), 1)))) * 256) + CVar(AscW(CStr(Mid(password, CLng(var_CC), 1))))) 'Variant loc_40ACD5: var_9C = (var_AC Mod 13) 'Variant loc_40AD01: var_8C = CStr(ChrW(CLng(Fix((var_AC / 13)))) & CVar(vbNullString)) loc_40AD0E: Next var_1B4 'Variant loc_40AD17: var_88 = var_8C loc_40AD1A: UserDeCode = End Function Public Sub Proc_4_3_40833C() 'Data Table: 401BD4 loc_408326: Me.txtResult.Text = UserCode(Me.txtHardNo.Text) loc_408339: Exit Sub End Sub

想发一首老歌罗宾《我的娜娜》献给远去的娜娜，等级不够。娜娜，我想你

快递哥下午应该有在门口经过，看看有没快递捡一个。

叶大师，WIN7关不掉DX啊，玩玩就死机。昨天跟新刺客补丁后即使关闭设置里的光影那些，玩起来一样卡卡的，切换场景就死机，一打狼王也死机。WIN7 64位系统，关不掉DX怎么搞？@一叶莲怀

小米多彩移动电源贴吧独家首发！还可能免费获得F码~ 我预约了4月18日中午12时开放购买的小米多彩移动电源，预约成功玩游戏，轻松点击还能赢取电源、红米Note等奖品

求植物名字。叶子上门可以长芽，跟我查到的落地生根又不一样？求名字。

求植物学名，急求。叶子会发芽，习性很像落地生根，但叶子跟落地生根不像，叶子边缘比较平滑，叶片厚度也比落地生根薄一些。

有谁知道照片中植物的学名，陆丰老家有。

假如给假人送个双倍勋章?带起来是不是爽多了

126毒蓝05

94期围13红.... 94期围13红：09 10 12 13 14 16 17 20 21 22 25 27 29

94期围13红... 94期围13红：09 10 12 13 14 16 17 20 21 22 25 27 29

94期围13红。。 94期围13红：09 10 12 13 14 16 17 20 21 22 25 27 29

94期围13红。 94期围13红：09 10 12 13 14 16 17 20 21 22 25 27 29

94期围13红 94期围13红：09 10 12 13 14 16 17 20 21 22 25 27 29

93期龙头凤尾龙头定03、09 凤尾定25 28 32。

看错期号，重新围93期红 18红大底：03 07 08 09 10 12 13 14 15 16 19 21 25 27 28 29 30 32 浓缩11码：03 07 08 10 12 13 14 15 19 21 32

看错期号，重新围93期的 18红大底：03 07 08 09 10 12 13 14 15 16 19 21 25 27 28 29 30 32 浓缩11码：03 07 08 10 12 13 14 15 19 21 32

期号看错，重新弄93期的 18红大底：03 07 08 09 10 12 13 14 15 16 19 21 25 27 28 29 30 32 浓缩11码：03 07 08 10 12 13 14 15 19 21 32

看错期号了，重新弄93期的 18红大底：03 07 08 09 10 12 13 14 15 16 19 21 25 27 28 29 30 32 浓缩11码：03 07 08 10 12 13 14 15 19 21 32

期号看错了，重新弄一个93期的 18红大底：03 07 08 09 10 12 13 14 15 16 19 21 25 27 28 29 30 32 浓缩11码：03 07 08 10 12 13 14 15 19 21 32

92期围13个 03 07 08 10 12 13 14 15 19 20 21 23 32

92期围13红。 03 07 08 10 12 13 14 15 19 20 21 23 32

92期围13个红 03 07 08 10 12 13 14 15 19 20 21 23 32

92期围13红 03 07 08 10 12 13 14 15 19 20 21 23 32

91期围号红球：01 07 08 10 11 12 13 14 16 18 19 21 22 29 篮球：4尾

91期来了红球：01 07 08 10 11 12 13 14 16 18 19 21 22 29 篮球：4尾

91期大底红球：01 07 08 10 11 12 13 14 16 18 19 21 22 29 篮球：4尾

91期围号红球：01 07 08 10 11 12 13 14 16 18 19 21 22 29 篮球：4尾

91期围红球：01 07 08 10 11 12 13 14 16 18 19 21 22 29 篮球：4尾

80期独蓝09. 、

80期毒蓝09 、

80期独蓝09.

80期独蓝09

80期独蓝09，不用进

牛人杀红。。

牛人继续杀红

牛人杀红

牛人笨笨又杀红了

笨笨又开杀了

机选也中，自选也中。几百万年的轮回有解释么？

怎么学双色球吧啊，下午围10红，中了4个也被删了！！！郁闷呢 02 05 12 15 20 21 22 26 31 32

围10红，上期围20个0+0，当杀号也行。 02 05 12 15 20 21 22 26 31 32

围10红，上期围20个0+0，杯具 02 05 12 15 20 21 22 26 31 32

围10红，上期20个0+0，杯具 02 05 12 15 20 21 22 26 31 32

67期04 05 10 21 26 30 + 16

上图，不怕见光死。最后一注是机选

上图，不怕见光死。最后一注是机选。

红蛋03 06 19，毒蓝03 08 毒蓝03 今晚测试

红蛋03 06 19，毒蓝03 等验证

只看楼主回复红蛋03 06 19，毒蓝03 等验证

红蛋03 06 19，毒蓝03 等验证

继续上图，我不说话