|
[求助]用exescope修改程序后出现如下错误,怎么办呢?
程序或壳有自校验,这段提示眼熟的很 |
|
[原创][邀请码已发]破[本人闭关修炼多时,今日出关,自己写个CrackME,求破解 ] 自校验
这倒让我想起有一次破的一个软件,转来转去,后来一怒之下把个call里的东西直接改成mov eax,1,哈哈,天下太平了,真是山重水复疑无路,柳暗花明又一村啊 |
|
[推荐]通往WinDbg的捷径的pdf版
附件已经去掉了试用版的提示语了 |
|
[求助]AVAST不能更新的问题
用过,不过没碰到过你说的情况 |
|
[求助]请教高手如何去除软件中的网页
试一下,多谢指教 |
|
[讨论]碰到流氓软件咋办?
用影子系统试试,在在组策略里禁用临时时文件夹的运行,既使被删除了重启也会恢复回来 |
|
[原创]小菜写的Crackme,请大家指教
了解,继续努力 |
|
[原创]小菜写的Crackme,请大家指教
VB能内嵌汇编指令吗,像C一样 |
|
[原创]小菜写的Crackme,请大家指教
有空下个VC的编译器下来再玩 |
|
[原创]小菜写的Crackme,请大家指教
有道理,回去多研究一下,不过我对数学一直头大,要说研究算法,有难度,努力了,谢谢 |
|
[原创]小菜写的Crackme,请大家指教
我比较菜,一直觉得C++写的最好破,VB和DELPHI的程序难解些,交流一下,我想知道我为什么会有这种感觉 |
|
[原创]小菜写的Crackme,请大家指教
这样刚好,你可以对照源码看一下,我也学过C,不过很久了,而且只学了一点,C很强大,但语法太严,看你严格执行变量申请,佩服,以后请多多指教 有源码一改就成注册机了,不过能逆出注册算法更厉害 |
|
|
|
[原创]小菜写的Crackme,请大家指教
贴上源码,大家不要见笑 用户名ASCII值加和,再与位数相除,余数与加和后数值再加和到个位数后值相乘,两值相接,如kevinch的ASCII加和为744,加和到个位数(R1)为7+4+4=15,1+5=6,与位数相除的余数(R2)即744 mod 7 =2,R1*R2=2*6=12,于是要提取的序列为74412,序列号长度为R1*R2=12 再依奇偶序从33-126之间累加或累减得到序列号 Private Sub Command1_Click() x = Text1.Text Text2.Text = "" If Len(x) < 2 Then msg = MsgBox("请输入2位以上的用户名", vbOKOnly) GoTo quit End If ulen = Len(x) utotal = 0 For i1 = 1 To ulen utotal = utotal + Asc(Mid(x, i1, 1)) '用户名ASCII值加和 Next i1 utotal2 = utotal If utotal2 Mod 10 = 0 And ulen Mod 10 = 0 Then '如果加和除以位数后为零则置为10 r1 = 10 Else r1 = utotal2 Mod ulen '否则取余数 End If If r1 = 0 Then r1 = 10 '再加上个保险 again: r2 = 0 For i2 = 1 To Len(utotal2) r2 = r2 + Int(utotal2 / 10 ^ (Len(utotal2) - i2)) Mod 10 '取各位累加和 Next i2 If r2 > 9 Then utotal2 = r2 GoTo again End If r4 = r1 * r2 If r4 < 8 Then r4 = 8 '后加的让序列号最少8位 if len(text.text2) <> r4 then unload me '位数不对出错是这里,可是我还真不明白是什么原因出的错,不能用unload me吗??? r3 = utotal * 10 ^ Len(r1 * r2) + r1 * r2 Dim list As String result = 0 tmp1 = 32 '因为可输入字符是从ASCII值33-126之间 tmp2 = 127 For i6 = 1 To r4 If i6 Mod 2 = 0 Then '如果I6是偶数就由ASCII值32向上累加 tmp1 = tmp1 + Int(r3 / 10 ^ (i6 Mod Len(r3))) Mod 10 If tmp1 > 126 Then tmp1 = tmp1 - 126 + 32 '高于126后再折回来 tmp = tmp1 Else '如果是奇数就从ASCII值127向下累减 tmp2 = tmp2 - Int(r3 / 10 ^ (i6 Mod Len(r3))) Mod 10 If tmp2 < 33 Then tmp2 = 127 - 33 + tmp2 '低于33后再返回去 tmp = tmp2 End If result = result + tmp - asc(mid(text.text2, i6, 1)) Rem msg = MsgBox(list, vbOKOnly) list = list + Chr(tmp) '就是这句没有REM掉 Next i6 if result=0 then msg=msgbox("你真厉害",vbokonly,"成功啦") '这句换成text.text2=list就可以做注册机了 quit: End Sub |
|
[原创]小菜写的Crackme,请大家指教
你的反编译器蛮厉害的,能发上来研究一下吗,我下过VB Decoplier,不过每次都不能正常工作,可能是绿色版的原因吧,也许注册表没有关联好 |
|
[原创]小菜写的Crackme,请大家指教
loc_402262: var_250 = CStr((CVar(var_250) + Chr(CLng(var_2D0)))) 这句应该就是我说的那个字符累计的地方了,不过最终编译显示的那句被我REM掉了,这里留了个尾巴 |
|
[原创]小菜写的Crackme,请大家指教
大体差不多,不过没有公式,没有异或运算之类的,只有加减乘除,而且这个版本里面能看到注册码累计的结果 |
|
[原创]小菜写的Crackme,请大家指教
没什么人气,自己顶,哈 |
|
[原创]小菜写的Crackme,请大家指教
昨晚又跟了一次,发现VB在编译时严格按照输入的代码来的,我在里面输入了一个临时的指令用于弹出一个字符串对话框来告诉我注册码,在编译时将MsgBox项REM掉了,但字符串累计一项没有REM掉,在程序运行时还是会有一个字符串累计的地方,可以得到注册码,看来以后应该要注意这个地方 另外提示下,在.data段下段很容易找到计算过程 |
|
[原创]小菜写的Crackme,请大家指教
新更改,增加了注册码下限,最少8位 |
操作理由
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 }}
勋章
兑换勋章
证书
证书查询 >
能力值