|
[原创]数据转换器(通用版)2003.03---分析过程
最初由 usb-hdd 发布 呵呵 。。不好意思,这篇文章的重点不是介绍如何找到相应地方下断点。重点是注册码的算法分析。这个软件要找到下断的地方不难,你仔细再看一下就知道了!我也是一只菜鸟,欢迎大伙们来和我讨论学习破解知识。我也希望高手位能指点我这个菜鸟。 |
|
[原创]移盘检索精灵 2.2的分析过程
支持学习下! |
|
记事本的秘密!!!!
我的也一样出错。。 |
|
|
|
|
|
|
|
|
|
[求助]关于如何破解.net程序
晕哦。!不会看见vb.net的代码。烦。。 Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Me.shutdown(0) = "\"c Me.shutdown(1) = "\"c Me.shutdown(2) = "\"c Me.shutdown(3) = "\"c Me.shutdown(4) = "\"c Me.shutdown(5) = "\"c Me.shutdown(6) = "\"c Me.shutdown(7) = "\"c Me.shutdown(8) = "\"c Me.shutdown(9) = "\"c Me.shutdown(10) = "\"c Me.shutdown(11) = "\"c Me.shutdown(12) = "\"c Me.shutdown(13) = "\"c Me.shutdown(14) = "\"c Me.shutdown(15) = "\"c Me.shutdown(16) = "\"c Me.shutdown(17) = "\"c Me.shutdown(18) = "\"c Me.shutdown(19) = "\"c Me.GamePaths(0) = "c:\mgames\game0\play.bat " Me.GamePaths(1) = "c:\mgames\game1\play.bat " Me.GamePaths(2) = "c:\mgames\game2\play.bat " Me.GamePaths(3) = "c:\mgames\game3\play.bat " Me.GamePaths(4) = "c:\mgames\game4\play.bat " Me.GamePaths(5) = "c:\mgames\game5\play.bat " Me.GamePaths(6) = "c:\mgames\game6\play.bat " Dim stream1 As Stream = File.OpenRead((Environment.CurrentDirectory & "\gamelist.ini")) Dim reader1 As New StreamReader(stream1, Encoding.Default) Me.GameCount = 0 Do While (reader1.Peek > -1) Dim text4 As String = reader1.ReadLine.Trim Dim textArray1 As String() = text4.Split(New Char(0 - 1) {}) If (textArray1.Length <= 4) Then Dim num2 As Integer If (StringType.StrCmp(textArray1(0), "0", False) = 0) Then num2 = 0 Else If (StringType.StrCmp(textArray1(0), "1", False) = 0) Then num2 = 1 Else If (StringType.StrCmp(textArray1(0), "2", False) = 0) Then num2 = 2 Else If (StringType.StrCmp(textArray1(0), "3", False) = 0) Then num2 = 3 Else If (StringType.StrCmp(textArray1(0), "4", False) = 0) Then num2 = 4 Else If (StringType.StrCmp(textArray1(0), "5", False) = 0) Then num2 = 5 Else If (StringType.StrCmp(textArray1(0), "6", False) = 0) Then num2 = 6 Else Interaction.MsgBox(("error: Path is wrong" & textArray1(0) & StringType.FromInteger(Me.GameCount)), 0, Nothing) num2 = 0 End If End If End If End If End If End If End If Me.AppPathName(Me.GameCount) = (Me.GamePaths(num2) & textArray1(1)) Me.PicPathName(Me.GameCount) = (Me.PicPath & textArray1(3)) Me.Describes(Me.GameCount) = textArray1(2) Me.GameCount += 1 End If Loop reader1.Close Dim num3 As Integer = (Me.GameCount - 1) Dim num1 As Integer = 0 Do While (num1 <= num3) Me.ListBox1.Items.Add(Me.Describes(num1)) num1 += 1 Loop Me.ListBox1.Update Me.ListBox1.SetSelected(0, True) Dim text3 As String = Strings.Space(256) Dim text9 As String = "Option" Dim text8 As String = "Serial" Dim text7 As String = "Nothing" Dim text6 As String = (Environment.CurrentDirectory & "\longgame.ini") Form1.GetPrivateProfileString(text9, text8, text7, text3, Strings.Len(text3), text6) Dim text2 As String = Form1.GetDiskSER If (StringType.StrCmp(text3, "Nothing", False) = 0) Then text3 = ChrW(26080) & ChrW(25928) & ChrW(24207) & ChrW(21015) & ChrW(21495) End If text2 = Strings.Trim(text2) If (text2.CompareTo("") = 0) Then text2 = "Nothing" End If Dim text1 As String = Form1.Encrypt(text2, "ohmygodd") text3 = Strings.Trim(text3) text1 = Strings.Trim(text1) If (text3.CompareTo(text1) <> 0) Then Dim text5 As String = Interaction.InputBox(((ChrW(24207) & ChrW(21015) & ChrW(21495) & ChrW(26080) & ChrW(25928) & ChrW(65281) & ChrW(13) & ChrW(10) & ChrW(20027) & ChrW(26426) & ChrW(21495) & ChrW(30721) & ChrW(65306) & text2) & ChrW(13) & ChrW(10) & ChrW(35831) & ChrW(36755) & ChrW(20837) & ChrW(24207) & ChrW(21015) & ChrW(21495) & ChrW(65306)), "longgame", "", -1, -1) If ((Strings.Len(text5) = 0) Or (String.Compare(text1, text5) <> 0)) Then Me.Close Else text6 = "Option" text7 = "Serial" text8 = (Environment.CurrentDirectory & "\longgame.ini") Form1.WritePrivateProfileString(text6, text7, text1, text8) End If End If Me.Label6.Text = (ChrW(24207) & ChrW(21015) & ChrW(21495) & ChrW(65306) & text1) If Not Me.InitDirectInput Then Interaction.MsgBox(ChrW(21021) & ChrW(22987) & ChrW(21270) & ChrW(25671) & ChrW(26438) & ChrW(22833) & ChrW(36133), 0, Nothing) End If Me.Timer1.Start Me.ListBox1.Focus End Sub |
|
|
|
[求助]关于如何破解.net程序
试过了。。用OD下断不起作用的用静态分析工具找到不有用的信息。。 |
|
找到些资料给-=汇编障碍症=-的朋友[分享][下载]
好东西!。。在狂补啊。。狂学啊。。谢谢! |
|
[整理]fly 的脱壳文集整理10.9MB(新增链接02.02)
支持楼主!。。支持FLY |
|
屏幕录像专家 v5.0 注册码破解
可以暴破啊。。!。我暴了10多处地方,才能完全暴破。。呵呵 。。 :D |
|
求助:请前辈们指点
哦。谢谢。。版主。。。 |
|
求助:请前辈们指点
怎么没有人回我一下贴啊。。今天是星期六哦。。大家伙去逛街了???。。 |
|
求幻影DBPE2.10加壳工具
有去壳工具。研究一下更好。。不知那们老大有。。 |
操作理由
RANk
{{ user_info.golds == '' ? 0 : user_info.golds }}
雪币
{{ experience }}
课程经验
{{ score }}
学习收益
{{study_duration_fmt}}
学习时长
基本信息
荣誉称号:
{{ honorary_title }}
能力排名:
No.{{ rank_num }}
等 级:
LV{{ rank_lv-100 }}
活跃值:
在线值:
浏览人数:{{ visits }}
最近活跃:{{ last_active_time }}
注册时间:{{ user_info.create_date_jsonfmt }}
勋章
兑换勋章
证书
证书查询 >
能力值