提交一个字符串MIME，UUE，XXE变换的工具（附源码）

caterpilla

说明：
       为隐藏提示字符串目的而设计，提供了三种字符串变换的方式，即MIME，UUE，XXE方式，对字符串隐藏有一定效果，也可用于对上述三种方式的加密字符串的解密用途。

[ 本帖最后由 caterpilla 于 2006-8-1 10:55 编辑 ]

eszwaq123

好的东西是呀哦收下来了

一帆风

这样破解越来越难了哦！

黑夜彩虹

支持caterpilla (惊涛) 　贴出代码让我等菜鸟学习。。。

snetluck

支持。。！！！

猛的好象直接把字符串全部删了？

野猫III

原帖由 caterpilla 于 2006-7-7 12:25 发表
说明：
       为隐藏提示字符串目的而设计，提供了三种字符串变换的方式，即MIME，UUE，XXE方式，对字符串隐藏有一定效果，也可用于对上述三种方式的加密字符串的解密用途。

阿涛～;P

能不能反过来还原加密的文字呢？

黑夜彩虹

Base64加密算法吧，呵~~

caterpilla

原帖由 野猫III 于 2006-7-7 14:51 发表


阿涛～;P

能不能反过来还原加密的文字呢？

当然，把源和目的调一下，然后解密就行了

[ 本帖最后由 caterpilla 于 2006-7-7 15:12 编辑 ]

caterpilla

原帖由 黑夜彩虹 于 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.

caterpilla

原帖由 黑夜彩虹 于 2006-7-7 15:03 发表
Base64加密算法吧，呵~~

其实可以把这些加密库做成一个DLL，供各种语言来调用。。。。。。。。。。。。