您现在的位置:首页 >> 基础算法 >> window基础 >> 内容

Delphi中字符串隐藏写法

时间:2011/9/3 15:35:50 点击:

  核心提示:具体请看示例代码:==================================================源码如下: 复制内容到剪贴板 代码:unit Unit1;interfaceuse...
具体请看示例代码:

==================================================

源码如下: 复制内容到剪贴板
代码:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  t:array[1..14] of char;     //用数组来实现隐藏
begin
  t[1]:=Char(103);
  t[2]:=Char(111);
  t[3]:=Char(111);
  t[4]:=Char(100);
  t[5]:=Char(32);
  t[6]:=Char(106);
  t[7]:=Char(111);
  t[8]:=Char(98);
  t[9]:=Char(44);
  t[10]:=Char(32);
  t[11]:=Char(109);
  t[12]:=Char(97);
  t[13]:=Char(110);
  t[14]:=Char(33);
  Showmessage(t);               //英文的“good job, man!”
end;


procedure TForm1.Button2Click(Sender: TObject);
var
  t:array[1..20] of char;          //用数组来实现隐藏
begin
  t[1]:=Char(185);
  t[2]:=Char(167);
  t[3]:=Char(207);
  t[4]:=Char(178);
  t[5]:=Char(196);
  t[6]:=Char(227);
  t[7]:=Char(163);
  t[8]:=Char(172);
  t[9]:=Char(215);
  t[10]:=Char(162);
  t[11]:=Char(178);
  t[12]:=Char(225);
  t[13]:=Char(179);
  t[14]:=Char(201);
  t[15]:=Char(185);
  t[16]:=Char(166);
  t[17]:=Char(193);
  t[18]:=Char(203);
  t[19]:=Char(163);
  t[20]:=Char(161);
  Showmessage(t);                     //中文的“恭喜你,注册成功了!”
end;
end.
有人会觉得这样写代码很累,没关系,这里有批量生成上面结果的代码,我正用之...
且上面代码均为其生成之...
edit1.text输入你的提示字符串,edit2.text输入为你预定义的变量名,默认为't'...
点击即可生成像上面的代码,保存在ByTeCrypt.txt,直接copy使用之... 复制内容到剪贴板

上一页12下一页

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2024 版权所有 All Rights Reserved.
  • 沪ICP备05001939号