首页
社区
课程
招聘
[原创]一个简单的crackme,程序是由.Net编写的
发表于: 2013-7-5 08:41 5360

[原创]一个简单的crackme,程序是由.Net编写的

2013-7-5 08:41
5360
一个简单的crackme,程序是由.Net编写的

我们用.Net Reflector  载入

找到关键处  按钮事件:
btn_ok_Click(Object, EventArgs) : Void

对于的关键代码如下:
Private Sub btn_ok_Click(ByVal sender As Object, ByVal e As EventArgs)
    If (Me.textBox_Pass.Text = "") Then
        MessageBox.Show("请输入密码!")
    Else
        Dim array As Char() = Me.textBox_Pass.Text.Replace(".", "-").Replace("7", "t").Replace("4", "a").Replace("1", "I").Replace("0", "o").Replace("O", "0").ToCharArray
        Array.Reverse(array)
        Dim s As New String(array)
        s.ToUpper
        Dim chArray2 As Char() = Convert.ToBase64String(Encoding.GetEncoding("UTF-8").GetBytes(s)).ToCharArray
        Array.Reverse(chArray2)
        Dim str2 As New String(chArray2)
        Dim str3 As New String(Convert.ToBase64String(Encoding.GetEncoding("UTF-8").GetBytes(str2)).ToCharArray)
        If (str3 = "PTBpVGxSM1lqTWtVaE4yU0pOM1J2Qnph") Then
            MessageBox.Show("密码正确!密码就是Key!", "成功")
        Else
            MessageBox.Show("密码错误!", "失败")
        End If
    End If

End Sub

下面我们分析一下代码:
If (Me.textBox_Pass.Text = "") Then
        MessageBox.Show("请输入密码!")
  Else
  
为空则提示错误

Dim array As Char() = Me.textBox_Pass.Text.Replace(".", "-").Replace("7", "t").Replace("4", "a").Replace("1", "I").Replace("0", "o").Replace("O", "0").ToCharArray

将输入的字符串(key)中的“.”换成“-”,“7”换成“t”,“4”换成“a”,。。。等

Array.Reverse(array)

将替换过之后的序列号用Reverse()函数将一个字符串中最后一个字符放置到另一个字符串的第一个字符位置、倒数第二个字符放置在另一个字符串的第二个字符位置,以此类推。

Dim s As New String(array)
        s.ToUpper

将array 给定义的变量S,将字符串首位变为大写

Dim chArray2 As Char() = Convert.ToBase64String(Encoding.GetEncoding("UTF-8").GetBytes(s)).ToCharArray
        Array.Reverse(chArray2)
        Dim str2 As New String(chArray2)
        Dim str3 As New String(Convert.ToBase64String(Encoding.GetEncoding("UTF-8").GetBytes(str2)).ToCharArray)
If (str3 = "PTBpVGxSM1lqTWtVaE4yU0pOM1J2Qnph") Then
            MessageBox.Show("密码正确!密码就是Key!", "成功")
        Else
            MessageBox.Show("密码错误!", "失败")
        End If
    End If

End Sub

将S字符串base64编码后 倒转 再经过base64编码,与固定字符串“PTBpVGxSM1lqTWtVaE4yU0pOM1J2Qnph”比较,同则注册成功。

分析了加密过程,我们可以逆向的来找注册码:

第一步:base64解码(“PTBpVGxSM1lqTWtVaE4yU0pOM1J2Qnph”)= “=0iTlR3YjMkUhN2SJN3RvBza”

第二步:Array.Reverse(“=0iTlR3YjMkUhN2SJN3RvBza”)=“azBvR3NJS2NhUkMjY3RlTi0=”

第三步:base64解码(“azBvR3NJS2NhUkMjY3RlTi0= ”)= “k0oGsIKcaRC#cteN-”

第四步:首字符变小写,即不变

第五步:Array.Reverse后替换:得到最后的注册码:
.Ne7c#CR4cK1sG0Ok

本文的三个函数附录:

Toupper:

功能:将字符转换为大写英文字母

Tolower:

功 能: 把字符转换成小写字母,非字母字符不做出处理

Array.Reverse

public static string  ReverseByArray(this string  original)
{
    char[] c = original.ToCharArray();
    Array.Reverse(c);
    return new string(c);
}
下载地址:http://bbs.pediy.com/showthread.php?t=170313

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

收藏
免费 0
支持
分享
最新回复 (4)
雪    币: 278
活跃值: (709)
能力值: ( LV15,RANK:520 )
在线值:
发帖
回帖
粉丝
2
膜拜膜拜......
2013-7-5 09:56
0
雪    币: 143
活跃值: (263)
能力值: ( LV8,RANK:120 )
在线值:
发帖
回帖
粉丝
3
????
这不科学
2013-7-5 12:30
0
雪    币: 108
活跃值: (44)
能力值: ( LV3,RANK:30 )
在线值:
发帖
回帖
粉丝
4
2013-7-5 15:04
0
雪    币: 141
活跃值: (54)
能力值: ( LV5,RANK:60 )
在线值:
发帖
回帖
粉丝
5
[QUOTE=tuobaofeng;1195573]VB/C#大同小异  http://bbs.pediy.com/showthread.php?t=170313[/QUOTE]

恩  受教了
2013-7-5 15:10
0
游客
登录 | 注册 方可回帖
返回
//