-
-
[原创]??aCaFeeL's CrackMe V2??
-
发表于: 2006-12-14 16:19
-
|
|
|---|---|
|
|
爆破可以吧？
 当然 这只是个意外！ 不知道功能全不全？ 
|
|
|
最初由 fonge 发布 当然可以  顺便把源代码也放上来: unit main; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, SUISkinEngine, CnWaterImage, EffectUtils, AnimationEffect, jpeg, StdCtrls, Buttons, CheckLst; type TForm1 = class(TForm) Skin: TsuiSkinEngine; Effect: TAnimationEffect; Image: TCnWaterImage; GroupBox1: TGroupBox; BitBtnReg: TBitBtn; Memo: TMemo; GroupBox2: TGroupBox; EditName: TEdit; EditCode: TEdit; BitBtnExit: TBitBtn; LabelName: TLabel; LabelCode: TLabel; LabelWeb: TLabel; ComboBox: TComboBox; LabelKey: TLabel; procedure BitBtnExitClick(Sender: TObject); procedure BitBtnRegClick(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Music; //使用 XMobj 播放xm背景音乐 {$I XMobj\ufmod.inc *** uFMOD API: WINMM version} {$R *.DFM} var RegName,RegCode : string; //****** 注册名 -> 注册码 换算函数 ****** //RegName为读入的注册名; RegCode为读入的注册码 function KeyGen(RegName: string): string; var cz : integer; // textP, textCZ:string; //textCZ,textP,posP 都 // i, posP:integer; //为解密字符串所以变量 begin cz := ord(RegName[1])*ord(RegName[7])+ ord(RegName[2])*ord(RegName[6])+ ord(RegName[3])*ord(RegName[5]); cz := cz*cz xor ord(RegName[4]); if length(intTostr(cz))>6 then Result := copy(intTostr(cz),1,7) else begin repeat cz := cz*cz; until length(intTostr(cz))>6; Result := copy(intTostr(cz),1,7); end; //showmessage(Result); { //将 "\|]^K~_`?a??M???f?h?i??P???n??R???s??T" 解密 //为 "AaBC0cDdEe1FfGgH2hIiJj3KkLMm4NnOoP5pQqRr6SsTtU7uVvWw8XxYyZ9z" textP := '\|]^K~_`?a??M???f?h?i??P???n??R???s??T'; for posP := 1 to length(textP) do textP[posP] := chr(ord(textP[posP]) - 27); //'27'为解密的钥匙,重要 for i:=1 to Length(RegName) do //RegName为读取的注册名 Result:=Result + textP[( ( Ord(RegName[i]) + 7904 ) mod 27 ) + 1]; } end; procedure TForm1.BitBtnRegClick(Sender: TObject); label cz1,cz2,cz3; begin if (length(EditName.Text) > 6) //注册名长度大于6 (必须为7位数) then begin RegName := EditName.Text;//注册名 if (EditCode.Text <> '') //注册码不为空的话(必然为9位数) then begin RegCode := EditCode.Text;//注册码 if (ComboBox.Text <> '') then begin //数值为： 7-2=5 //因为注册名长度小于8(为7位数) if (length(EditName.Text)-ComboBox.ItemIndex)<6 then begin if (Pos('79',EditCode.Text)>0)//尾数包含有'注册名+注册码'长度的字符 then begin if (KeyGen(RegName)+ intTostr(length(EditName.Text))+ intTostr(length(EditCode.Text))) <> RegCode then goto cz1 //注册失败 else begin //数值为：7-2=5 //因为注册名长度小于8(为7位数) if (length(EditName.Text)-ComboBox.ItemIndex)>4 then goto cz2 //注册成功 else goto cz1;//注册失败 end; end else goto cz1; //注册失败 end else begin cz1: messageDlg(' Wrong Code!' +#13+#13+ 'Try It Again!',mtError,[mbOK],0); exit; cz2: //注册名长度小于8 (必须为7位数) if (length(EditName.Text) < 8) and (ComboBox.ItemIndex = 2) then messageDlg('!Good Job! ' + 'Registered To: '+RegName +' !Good Job!' +#13+#13+ 'You really should congratulate yourself on this job!', mtInformation,[mbOK],0) else goto cz1; exit; cz3: exit; end; end else begin ShowMessage('Select Your Key'); goto cz3; end; end else begin EditCode.Text := InputBox('Need Your Code!','Please Input Your Code Here:',''); //showmessage('input ur code'); goto cz3; end; end else begin EditName.Text := InputBox('Your Name Is Too Short!','Need More Than 6 Character:',''); //showmessage('input ur name'); goto cz3; end; end; procedure TForm1.FormCreate(Sender: TObject); begin { Start playXMbackMusic } // 开始 播放背景音乐 uFMOD_PlaySong(@xm,Length(xm),XM_MEMORY); { Stop playXMbackMusic } // 停止 播放背景音乐 //uFMOD_StopSong; end; procedure TForm1.BitBtnExitClick(Sender: TObject); begin form1.close; end; end. |
|
|
谢谢
期待已久的crackme源码 向楼主致敬
|
|
|
嘿嘿 多Crackme不感兴趣`~对楼主的SuiSkin v4.45感兴趣
楼主你哪个4.45的是破解可用的么？ 我这里只有一个3.4破解版~~ 如果你哪个4.45是破解了的 麻烦传份给偶 wynney#126.com 谢谢啦
|
|
|
fonge 不必客气，简单编的，希望不要见笑
wynney 我自己做了个SuiSkin V4.45的通用破解补丁，已发给你了，请查收 
|
|
|
我也是四川人
果城的
|
|
|
最初由 acafeel 发布 感谢 收到。。。 楼主可以去破解下SUIPack 6.2 估计破解的地方差不多：） 
|
|
|
最初由 fonge 发布 嘿嘿，南充是个好地方呀！ 最初由 wynney 发布 SUIPack 6.2这个控件我觉得还没有BusinessSkinForm好，不过破解的方式却实和SuiSkin相识。 |
|
|
最初由 acafeel 发布 呵呵 从界面的选择上BusinessSkinForm的确要好些 但是，SUIPack有的比较实用B还是没有的（或许我没发现：）） 比如S的边靠控件
|
|
|
|
|
|
|
|
|
|
|
|
最初由 fonge 发布 汗 这顶帽子戴的高了 这个要有技术含量点： http://bbs.pediy.com/showthread.php?s=&threadid=36032 (文件放在三楼) |
|
|
技术含量再高也没开源
别人一时还不能还原到作者的动作 而实际上到还原的时候，整个过程都完全可以写一个更出色的动作来了 而在这里面的东西对于作者来说都是随意作品,为什么不能一起分享呢？ 所以，楼主的CRME开源的影响是重大的
|
|
|
|
|
|
楼上笑得好淫荡！
|
|
|
最初由 acafeel 发布 不知楼主是否也发份给我呢?
|
|
|
最初由 clide2000 发布 已收到你的EMAIL并将补丁发给你了。请查收！ 
|
|
|
|
|
|
我已经离开南充三年了
好想回家 离开中国到070320就一年了 
|
|
|
很漂亮
|
|
|
|
|
|
果然很有创意
恶狠狠的学习一下
|
|
|
|
