首页
社区
课程
招聘
问答 CTF 排行榜 知识库 工具下载 峰会 看雪商城 证书查询
  1. 社区
  2. CTF对抗
    3. 发新帖
[求助].Net Crack Me
发表于: 2009-11-8 03:49 6076

[求助].Net Crack Me

Perplex 活跃值
2009-11-8 03:49
6076
Thanks All Crackers

[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课

上传的附件：
收藏
免费 ・0
支持
分享
最新回复 (10)
tease
雪    币： 93
活跃值： (11)
能力值： ( LV3，RANK：20 )
在线值：
发帖
回帖
粉丝
私信
2 楼
This is a very interesting CrackMe. You must have a little PE format knowledge.
上传的附件：
2009-11-17 17:17
0
Perplex
雪    币： 15
活跃值： (32)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
3 楼
Thank You Very Much tease
2009-11-17 19:52
0
tinychip
雪    币： 135
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
4 楼
怎么没有人上传破解过程供新手学习呢，期待中
2009-12-14 10:36
0
DONET
雪    币： 40
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
5 楼
楼上，tankaiha 的文章要仔细拜读。新手必学
2009-12-14 15:50
0
xiaosaner
雪    币： 74
活跃值： (10)
能力值： ( LV4，RANK：50 )
在线值：
发帖
回帖
粉丝
私信
6 楼
不会耶...OD载入失败.
2009-12-16 20:20
0
alisa
雪    币： 216
活跃值： (11)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
7 楼
i am getting some error when double clicking the exe file.
i have installed the dotnet.
2009-12-31 01:05
0
tease
雪    币： 93
活跃值： (11)
能力值： ( LV3，RANK：20 )
在线值：
发帖
回帖
粉丝
私信
8 楼
I think you get this exception form:


That is correct. Because this crack me has a bug here. It want to read C:\A.txt file, if this file is not exist then exception coming.
So you have two ways:
1. Create a new file named A.txt and put it into root of C: driver .
2. Just click continue button to ignore this message.

And My cracked version also fix this bug.

Good luck, this crack me is not fit for junior.
上传的附件：
2009-12-31 16:16
0
quicksand
雪    币： 165
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
9 楼
不会，拿到手就想把多加的堆去掉
2010-1-15 10:06
0
honffx
雪    币： 230
活跃值： (15)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
10 楼
Public Shared Function DeCrypt(ByVal txtToCode As String, ByVal txtMeth As String) As String
      Dim text1 As String = ""
      Dim text2 As String = ""
      Dim text3 As String = txtToCode
      Dim num1 As Integer = 0
      Dim num3 As Long = Crypt.GetSecret(txtMeth)
      Dim text4 As String = num3.ToString
      If (text4.Length < 3) Then
            text4 = ("0" & text4)
      End If
      Try
            Dim num2 As Integer = 0
            Do While (num2 <= txtToCode.Length)
                  text3 = txtToCode.Substring(num2, 3)
                  num1 = (Integer.Parse(text3) - (Integer.Parse(text4.Substring(2, 1)) * 21))
                  num1 = (num1 - Integer.Parse(text4))
                  Dim ch1 As Char = CType(CType(num1, UInt16), Char)
                  text2 = ch1.ToString
                  text1 = (text1 & text2)
                  num2 = (num2 + 3)
            Loop
      Catch exception1 As  Exception
      End Try
      Return text1
End Function

Public Shared Function EnCrypt(ByVal txtToCode As String, ByVal txtMeth As String) As String
      Dim num1 As Long = Crypt.GetSecret(txtMeth)
      Dim text1 As String = num1.ToString
      Dim text2 As String = ""
      Dim text3 As String = ""
      Dim chArray1 As Char() = txtToCode.ToCharArray
      Dim chArray2 As Char() = chArray1
      Dim num2 As Integer = 0
      Do While (num2 < chArray2.Length)
            Dim ch1 As Char = chArray2(num2)
            ch1.ToString
            Dim num3 As Integer = (ch1 + Integer.Parse(text1))
            text3 = num3.ToString
            If (text3.Length < 3) Then
                  text3 = ("0" & text3)
            End If
            If (text1.Length < 3) Then
                  text1 = ("0" & text1)
            End If
            Dim num4 As Integer = (Integer.Parse(text3) + (Integer.Parse(text1.Substring(2, 1)) * 21))
            text3 = num4.ToString
            text2 = (text2 & text3)
            num2 += 1
      Loop
      Return text2
End Function
2010-1-15 14:58
0
Perplex
雪    币： 15
活跃值： (32)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
11 楼
Thanks honffx For Share Nice Source
2010-1-18 06:33
0
游客
登录 | 注册 方可回帖
回帖 表情 雪币赚取及消费
高级回复
返回
//