- UID
- 2
注册时间2004-12-1
阅读权限255
最后登录1970-1-1
总坛主
TA的每日心情 | 开心 2024-12-1 11:04 |
---|
签到天数: 12 天 [LV.3]偶尔看看II
|
【破文标题】[P-CODE]cscg-crackme 0.1 算法分析
【破文作者】飘云[PYG]
【作者邮箱】[email protected]
【作者主页】BBS.CHINAPYG.COM
【破解工具】Peid0.94,OllyDbg,VB
【破解平台】Win9x/NT/2000/XP
【软件名称】cscg-crackme 0.1
【软件大小】15kb
【原版下载】https://www.chinapyg.com/viewthread.php?tid=7727
【保护方式】用户名+序列号
【软件简介】cscg-crackme 0.1
VB P-CODE方式编译
【破解声明】我是一只菜菜鸟,偶得一点心得,愿与大家分享 !^_^
------------------------------------------------------------------------
【破解过程】
------------------------------------------------------------------------
【破解总结】1.用户名至少5位
2.name1=用户名右边3位+"csks[cscg]"+用户名左边3位+用户名 得到新用户名
3.LenName1=新用户名长度
4.sum=累加上面的ascii值
5.str1=Sum转换成字符串,,由第3位决定 取 哪个字符:
1:[
2:中
3:华
4:软
5:件
6:解
7:密
8:同
9:盟
0:]
6.Sum1 = Sum xor 0x1980
7.A=Sum - LenName1
8.B=Sum1 - LenName1
9.C = A+B+LenName1
10.Sn = "csks" & B & Str1 & C & "[cscg]"
------------------------------------------------------------------------
【注册机】
- '为方便阅读,关键变量均和【破解总结】中的一至
- Dim Name, Name1 As String
- Dim LenName, LenName1 As Integer
- Dim Sum, Sum1 As Integer
- Dim Str1 As String
- Dim A, B, C As Integer
- Dim Sn As String
- Dim i As Integer
- Name = Text1.Text
- LenName = Len(Name)
- If Name <> "" And LenName >= 5 Then
- Name1 = Right(Name, 3) & "csks[cscg]" & Left(Name, 3) & Name
-
- LenName1 = Len(Name1)
-
- For i = 1 To LenName1
-
- Sum = Sum + Asc(Mid(Name1, i, 1))
-
- Next i
-
- Select Case Mid(Trim(Str(Sum)), 3, 1)
- Case 0
- Str1 = "]"
- Case 1
- Str1 = "["
- Case 2
- Str1 = "中"
- Case 3
- Str1 = "华"
- Case 4
- Str1 = "软"
- Case 5
- Str1 = "件"
- Case 6
- Str1 = "解"
- Case 7
- Str1 = "密"
- Case 8
- Str1 = "同"
- Case 9
- Str1 = "盟"
-
- End Select
-
- Sum1 = Sum Xor &H1980
-
- A = Sum - LenName1
- B = Sum1 - LenName1
- C = A + B + LenName1
-
- Sn = "csks" & B & Str1 & C & "[cscg]"
-
- Text2.Text = Sn
-
- Else
-
- Text2.Text = "请输入用户名!"
-
- End If
复制代码
------------------------------------------------------------------------
【版权声明】本文纯属技术交流,转载请注明作者信息并保持文章的完整,谢谢! |
|