提交一个字符串MIME，UUE，XXE变换的工具（附源码）
说明：为隐藏提示字符串目的而设计，提供了三种字符串变换的方式，即MIME，UUE，XXE方式，对字符串隐藏有一定效果，也可用于对上述三种方式的加密字符串的解密用途。
[ 本帖最后由 caterpilla 于 2006-8-1 10:55 编辑 ] 好的东西是呀哦收下来了 这样破解越来越难了哦！ 支持caterpilla (惊涛) 贴出代码让我等菜鸟学习。。。 支持。。！！！
猛的好象直接把字符串全部删了？ 原帖由 caterpilla 于 2006-7-7 12:25 发表
说明：
为隐藏提示字符串目的而设计，提供了三种字符串变换的方式，即MIME，UUE，XXE方式，对字符串隐藏有一定效果，也可用于对上述三种方式的加密字符串的解密用途。
阿涛～;P
能不能反过来还原加密的文字呢？ Base64加密算法吧，呵~~ 原帖由 野猫III 于 2006-7-7 14:51 发表
阿涛～;P
能不能反过来还原加密的文字呢？
当然，把源和目的调一下，然后解密就行了
[ 本帖最后由 caterpilla 于 2006-7-7 15:12 编辑 ] 原帖由 黑夜彩虹 于 2006-7-7 14:24 发表
支持caterpilla (惊涛) 贴出代码让我等菜鸟学习。。。
没啥技术含量，呵呵~~~~~~~
unit GenString;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, IdCoderMIME, IdCoderUUE, IdCoder00E, IdCoderXXE,
IdCoder, IdCoder3to4, IdBaseComponent;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Edit2: TEdit;
IdEncoderMIME1: TIdEncoderMIME;
IdDecoderUUE1: TIdDecoderUUE;
IdDecoderXXE1: TIdDecoderXXE;
IdEncoderXXE1: TIdEncoderXXE;
IdEncoderUUE1: TIdEncoderUUE;
IdDecoderMIME1: TIdDecoderMIME;
RadioGroup1: TRadioGroup;
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0:
edit2.Text := IdDecoderMIME1.DecodeString(edit1.Text);
1:
edit2.Text := IdDecoderXXE1.DecodeString(Edit1.Text);
2:
edit2.Text := IdDecoderUUE1.DecodeString(Edit1.Text);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0:
edit2.Text := IdEncoderMIME1.Encode(edit1.Text);
1:
edit2.Text := IdEncoderXXE1.Encode(edit1.Text);
2:
Edit2.Text := IdEncoderUUE1.Encode(Edit1.Text);
end;
end;
end. 原帖由 黑夜彩虹 于 2006-7-7 15:03 发表
Base64加密算法吧，呵~~
其实可以把这些加密库做成一个DLL，供各种语言来调用。。。。。。。。。。。。