⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 src.txt

📁 web2.0的网页加密程序,借用Oak/lyris提供的函数进行加解密
💻 TXT
字号:
🔍 
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls,shellapi, SkinCaption, WinSkinData;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Label1: TLabel;
    Memo1: TMemo;
    Memo2: TMemo;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    SkinData1: TSkinData;
    SkinCaption1: TSkinCaption;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if opendialog1.Execute then
    edit1.Text:=opendialog1.FileName;
  memo1.Lines.LoadFromFile(opendialog1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if savedialog1.Execute then
  memo2.Lines.SaveToFile(savedialog1.FileName);
end;
procedure TForm1.Button3Click(Sender: TObject);
function Escape(Str: string): string;
var
  I: Integer;
begin
  Result := '';
  for I := 1 to Length(Str) do
    Result := Result + '%' + IntToHex(Ord(Str[I]), 2);
end;
begin
  if memo1.Text='' then
    Application.MessageBox('请输入加密内容','提示',MB_OK)
  else
    memo2.Text:=escape(Memo1.Text);
end;

procedure TForm1.Button4Click(Sender: TObject);
function CharToInt(C: char): Integer;
begin
  if ord((C)) >= 65 then
    Result := 10 + ord(C) - 65
  else
    Result := ord(C) - 48;
end;
function HexToInt(Str: string): longint;
var
  I: Integer;
  p1: array[0..1] of Char;
begIn
  Result := 0;
  Str := Trim(Str);
  for I := 1 to  length(Str) do
  begIn
    StrPcopy(p1, Copy(Str, I, 1));
    Result := Result * 16 + CharToInt(p1[0]);
  end;
end;
function UnEscape(Str: string): string;
begin
  Result := '';
  while Length(Str) >= 3 do
  begin
    Str[1] := '#';
    Result := Result + Chr(HexToInt(Copy(Str, 1, 3)));
    Delete(Str, 1, 3);
  end;
end;
begin
  if memo1.Text='' then
    Application.MessageBox('请输入解密内容','提示',MB_OK)
  else
    Memo2.Text:=UnEscape(Memo1.Text);
end;
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(handle,nil,pchar('http://www.Guester.com.cn'),nil,nil,sw_shownormal);
end;
procedure TForm1.Button5Click(Sender: TObject);
function Escape(Str: string): string;
var
  I: Integer;
begin
  Result := '';
  for I := 1 to Length(Str) do
    Result := Result + '%' + IntToHex(Ord(Str[I]), 2);
end;
begin
  if memo1.Text='' then
    Application.MessageBox('请输入解密内容','提示',MB_OK)
  else
    Memo2.Text:='<HTML><HEAD><SCRIPT Language="javascript"><!--' +#13#10 + 'var Words = "' +escape(utf8encode(memo1.Text))+ '"' + #13#10+ 'function SetNewWords()' +#13#10+ '{' + #13#10 + 'var NewWords;'+ #13#10 + 'NewWords = unescape(Words);' +#13#10 + 'document.write(NewWords);'+ #13#10 +'}'+#13#10+'SetNewWords();'+#13#10+'//-->'+#13#10+'</SCRIPT></HEAD><BODY></BODY></HTML>';
end;

end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -