新160个CrackMe分析-第4组:31-40(下)
2022-9-23 21:8:30 Author: www.freebuf.com(查看原文) 阅读量:5 收藏

作者:selph

目录:

• 031-Cruehead.11

• 032-Bengaly-Crackme22

• 033-dccrackme13

• 034-fireworx54

• 035-Dope211225

• 036-Andrnalin.26

• 037-fireworx27

• 038-Eternal Bliss.38

• 039-eKH19

• 040-DaNiEI-RJ110

算法难度:⭐⭐⭐

爆破难度:

信息收集

运行情况:

查壳与脱壳:

无壳,VB程序!

调试分析

借助VB Decompiler辅助分析:

这里界面上有两个函数,一个是按钮,另一个是输入Name的时候的事件:

首先看Text2_change函数:就是根据Name有无输入值来判断是否启用按钮

Private Sub Text2_Change() '4024F0
Dim var_1C As Variant
loc_0040259D: If (Form1.Text2.Text = global_00401DC4) + 1 Then    // 
如果输入的内容为空
loc_004025AA:   Set var_1C = Form1.Command1       // 按钮
loc_004025B7:   var_1C.Enabled = False            // 不启用
loc_004025BF:   If var_1C >= 0 Then GoTo loc_004025F7
loc_004025C1:   GoTo loc_004025E5
loc_004025C3: End If
loc_004025CE: Set var_1C = Form1.Command1
loc_004025DB: var_1C.Enabled = True               // 
有输入的内容则启用按钮
loc_004025E3: If var_1C >= 0 Then GoTo loc_004025F7
loc_004025E5: ' Referenced from: 004025C1
loc_004025F1: var_1C = CheckObj(var_1C, global_00401DC8, 140)
loc_0040260C: GoTo loc_00402621
loc_00402620: Exit Sub
loc_00402621: ' Referenced from: 0040260C
End Sub

接下来看Click函数:

Private Sub Command1_Click() '401FF0
loc_004020CA: var_44 = Form1.Text2.Text                   // Name编辑框的内容
loc_00402126: For var_24 = 1 To Len(var_44) Step 1                // 遍历Name字符串
loc_00402134:   If var_108 Then                       //
loc_00402170:     var_8008 = Asc(CStr(Mid(var_44, CLng(var_24), 1)))      // 
取一个字节变成ASCII
loc_00402176:     var_B4 = var_8008
loc_004021A0:     var_34 = var_34 + var_8008                  // 
累加到var_34
loc_004021CB:   Next var_24
loc_004021D1:   GoTo loc_00402132
loc_004021D6: End If
loc_00402204: var_34 = var_34 * 1234567890            // 
累加结果乘以1234567890
loc_00402254: Mid(var_34, 9, 1) = "-"               // 修改其中一个值
loc_004022CB: If (Form1.Text1.Text = var_34) Then     // 如果输入的Key == var_34则成功
loc_004022D1:   Beep
loc_00402374:   var_54 = MsgBox("  RiCHTiG !!!!   ....  weiter mit dem Nächsten !!!", 48, "RiCHTiG !", 10, 10)
loc_00402391: Else
loc_0040240F:   var_8018 = MsgBox("Leider Falsch!   Nochmal veruschen ! Wenn Du es nicht schaffen solltest, schreib mir !  [email protected]", 16, "LEiDER Falsch !  ", 10, 10)
loc_0040242E:   var_54 = var_8018
loc_00402446: End If
loc_00402459: GoTo loc_0040248F
loc_0040248E: Exit Sub
loc_0040248F: ' Referenced from: 00402459
loc_004024C0: GoTo loc_00esi
End Sub

按照上述代码的思路去写注册机:

#define _CRT_SECURE_NO_WARNINGS
#include

int main()
{
char name[100] = { 0 };
char serial[100] = { 0 };
int len = 0;
long long check = 0;

std::cin >> name;
len = strlen(name);
for (int i = 0; name[i]; i++)   check += name[i];
check *= 1234567890;

sprintf(serial,"%lld",check);
serial[8] = '-';
std::cout << serial;
}

得出的结果不对,当输入为selph的时候,输出为:66666666-600,动态调试查看真正是输出:

到这里生成-的时候,发现这里出现了两次,而反汇编软件只识别到了一个,故再加一个即可

然后这就是完整的注册码生成了

注册机

注册码生成算法:

#define _CRT_SECURE_NO_WARNINGS
#include

int main()
{
char name[100] = { 0 };
char serial[100] = { 0 };
int len = 0;
long long check = 0;

std::cin >> name;
len = strlen(name);
for (int i = 0; name[i]; i++)
{
check += name[i];
}
check *= 1234567890;

sprintf(serial,"%lld",check);
serial[3] = '-';
serial[8] = '-';
std::cout << serial;
}

效果:换个Name测试

2.      037-fireworx2

算法难度:⭐⭐

爆破难度:

信息收集

运行情况:

查壳与脱壳:

调试分析

   是Delphi程序,IDR哒:

硬编码序列号,这里获取了Name之后进行了push2次,所以这里拼接了2Name

输入为selph,则最终的拼接结果是:selphselph625g72

总结

很基础,考察函数调用的传递参数理解

算法难度:⭐⭐

爆破难度:

信息收集

运行情况:

啊这,看来又是VB

查壳与脱壳:

无壳:

调试分析

又是VB,真的太顶了,逆VB好恶心啊

首先VBDecompiler找到这个注册按钮事件的函数起始地址,然后x86dbg下断点开始分析(这个伪代码太恶心了,还是看反汇编吧)

首先输入1234567进行调试,VB的反汇编很恶心就是,很长一段代码,只有几句是跟代码逻辑相关的内容,大部分都是干扰

刚开始保存了一系列字符到栈里:

(大部分代码没啥用,主要看自动注释的内容,还有函数call,是否是处理我们输入的内容,如果是,大概率就是我们要看的地方,否则先跳过吧)

然后接下来计算了一下字符串长度,保存了起来,大概率是循环遍历字符要用到

再往下就是循环了,一个jmp跳转下去,然后又跳转上来,直接看循环的关键内容吧:

超级长的循环代码,实际有用的就这几行,取一个字节,然后转换成ascii码的值,然后累加起来,累加值保存在[ebp-40]

接下来跳出循环,然后就用上了函数开头保存的一堆字符:

这里就是第一处校验跳转了,这里累加Reverse每个字符的ascii的值,和输入的累加值做对比,如果相同则不跳转

再往下就是第二次校验对比了,首先是获取第247个字符

然后对这三个字符进行一系列计算:保存到了[ebp-150]

再往下就是对比了:判断刚刚计算的那个值是否为0,如果为0则表示失败

到这里已经分析的差不多了:

– 开始遍历字符累加,确保注册码是Reverse7个字母的组合

– 后来取其中第247个字符拿来计算,确保这个字母组合的这几个位置的字母是固定的,这三个位置都是e

满足这两个条件即为正确的码,测试:veResre

总结

Vb的时候不用一条一条看,很简单的几句话,可能会被VB填充成超级大一段

算法难度:⭐⭐⭐⭐

爆破难度:

信息收集

运行情况:

     

查壳与脱壳:

无壳:

调试分析

首先看按钮的逻辑:

首先获取UserName,进行长度验证,然后获取Serial

接下来将获取的UserNameSerial作为参数,调用校验函数00427A20

如果得到的返回值是0x0BC614E则表示验证成功

接下来看这个校验函数:

首先是一些初始化操作,保存了参数到局部变量里

接下来对UserName进行处理:计算一个累加值

计算方法看注释,这里简述一下:

– 取一个字符到ebx

– ebx左移8

– ebx进行或操作,或一个数组中的字符

– 如果ebx小于0了,则乘以-1

– 循环

最终将刚刚计算的值转换成字符串,计算字符串长度

这里的字符串长度就是接下来循环的次数,也就是这个累加值的位数

接下来的校验流程大概是:

a. ebx的最后一位作为索引,从新的数组中获取一个字符

b. 将新得到的字符拼接到正确序列号的字符串里

c. 然后删去最后一位,回到步骤1      

注册机

注册码生成算法:

#define _CRT_SECURE_NO_WARNINGS
#include

const char* arr = "LANNYDIBANDINGINANAKEKHYANGNGENTOT";
const char* arr2 = "LANNY5646521";
int main()
{
//char name[100] = { 0 };
char name[] = "selph";
char serial[100] = { 0 };
int len = 0;
int ebx = 0;

for (int i = 0;name[i]; i++)
{
ebx += name[i];
ebx <<= 8;

ebx |= arr[i];
if (ebx < 0) {
ebx *= -1;
}
}
ebx ^= 0x12345678;

for (int i = 0; ebx; i++)
{
serial[i] = arr2[ebx % 10];
ebx /= 10;
}

std::cout << serial << std::endl;
}

效果:      

总结

比上一节看VB舒服多了,感觉这一节的难点在于分析理解这些反汇编是在干嘛的

算法难度:⭐⭐

爆破难度:

信息收集

运行情况:

怪怪的

点击File选项里的按钮才显示出来:

        

查壳与脱壳:        

调试分析

Delphi程序:

常规的获取输入判断是否为空:

     

然后是常规的根据Name计算校验码环节:

算法:遍历字符串,取每一个字节,+5

然后是常规的比对环节

注册机

注册码生成算法:(点快了创建成.NET6的了,干脆就用这个写了...

string Name = Console.ReadLine();
string Serial="";
if (Name == null) return;

for (int i = 0; i < Name.Length; i++)
Serial += ((char)((int)Name[i] + 5)).ToString();

Console.WriteLine(Serial);

效果:      

总结

普普通通,很基础


文章来源: https://www.freebuf.com/vuls/345504.html
如有侵权请联系:admin#unsafe.sh