|
[分享]Licence Protector 2.4.1 绿色版
Crack it ~~ |
|
我在编写一个加密壳程序,寻求帮助
支持! 期待兄弟的作品 |
|
[下载]Enigma.Protector.1.14.Cracked.by.Magic_h2001
3Q for K大~~ |
|
[原创]Borland C++ 程序中嵌入XM,MOD音乐
有没有For Delphi的? |
|
|
|
|
|
[分享]提供一个封装MIME,XXE,UUE和MD5变换的DLL,附VB和DELPHI调用示例源码
附DELPHI调用示例 unit CryptTest; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; RadioGroup1: TRadioGroup; Button1: TButton; Button2: TButton; procedure RadioGroup1Click(Sender: TObject); procedure Edit1Change(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation function EncodeMIME(src:PChar;dst:PChar):HRESULT;stdcall;external 'CryptPrj.dll' function DecodeMIME(src:PChar;dst:PChar):HRESULT;stdcall;external 'CryptPrj.dll' function EncodeXXE(src:PChar;dst:PChar):HRESULT;stdcall;external 'CryptPrj.dll' function DecodeXXE(src:PChar;dst:PChar):HRESULT;stdcall;external 'CryptPrj.dll' function EncodeUUE(src:PChar;dst:PChar):HRESULT;stdcall;external 'CryptPrj.dll' function DecodeUUE(src:PChar;dst:PChar):HRESULT;stdcall;external 'CryptPrj.dll' function MD5(src:PChar;dst:PChar):HRESULT;stdcall;external 'CryptPrj.dll' {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var str:string; begin SetLength(str,255); case RadioGroup1.ItemIndex of 0: EncodeMIME(PChar(edit1.Text),PChar(str)); 1: EncodeXXE(PChar(edit1.Text),PChar(str)); 2: EncodeUUE(PChar(edit1.Text),PChar(str)); 3: MD5(PChar(edit1.Text),PChar(str)); end; edit2.Text:=str; end; procedure TForm1.Button2Click(Sender: TObject); var str:string; begin SetLength(str,255); case RadioGroup1.ItemIndex of 0: DecodeMIME(PChar(edit1.Text),PChar(str)); 1: DecodeXXE(PChar(edit1.Text),PChar(str)); 2: DecodeUUE(PChar(edit1.Text),PChar(str)); 3: begin str:='' ShowMessage('未实现MD5逆运算'); end; end; edit2.Text:=str; end; procedure TForm1.Edit1Change(Sender: TObject); begin Edit2.Text:='' end; procedure TForm1.RadioGroup1Click(Sender: TObject); begin edit2.Text:='' end; end. |
|
|
|
[原创]PolyCrypt 2.1 unpacked by CxLrb
附件 被麦咖啡 报毒杀之,呵~~ |
|
|
|
[讨论]国庆节期待牛人的礼物
期待十一的好礼物 |
操作理由
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 }}
勋章
兑换勋章
证书
证书查询 >
能力值