mainfrm.pas

国内最好的php zend反编译服务的客户端源码。

unit MainFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dezend_TLB, StdCtrls, XPMan, base64, ShellAPI;

type
  TMainForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    OpenDialog: TOpenDialog;
    XPManifest1: TXPManifest;
    Edit2: TEdit;
    Button2: TButton;
    SaveDialog: TSaveDialog;
    Button3: TButton;
    Button4: TButton;
    Label3: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Label4: TLabel;
    Button5: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  SoapClient: dezendPortType;

implementation

{$R *.dfm}

procedure TMainForm.Button1Click(Sender: TObject);
begin
  if OpenDialog.Execute then
    Edit1.Text:= OpenDialog.FileName;

end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
  if SaveDialog.Execute then
    Edit2.Text:= SaveDialog.FileName;
end;

procedure TMainForm.Button3Click(Sender: TObject);
var
ZendFile: TMemoryStream;
ZendFile_String: TStringStream;
Return_Str: String;
begin
  if length(Edit3.Text)=0 then
    ShowMessage('请输入用户名！')
  else if length(Edit4.Text)=0 then
    ShowMessage('请输入密码！')
  else if length(Edit1.Text)=0 then
    ShowMessage('请选择源文件！')
  else if length(Edit2.Text)=0 then
    ShowMessage('请选择 Zend Decode 后目标文件名！')
  else
    begin
      try
        ZendFile:= TMemoryStream.Create;
        ZendFile_String:= TStringStream.Create('');
        ZendFile.LoadFromFile(edit1.text);
        ZendFile.SaveToStream(ZendFile_String);
        Return_Str:= SoapClient.dezend(Edit3.Text, Edit4.Text, StrTobase64(ZendFile_String.DataString));
        if Return_str='PASSWORD' then
          begin
            ShowMessage('密码错误！');
          end
        else if Return_str='USER ERROR' then
          begin
            ShowMessage('不存在此用户名！');
          end
        else if Return_str<>'Error' then
          begin
            ZendFile_String:= TStringStream.Create(Base64ToStr(Return_str));
            ZendFile.LoadFromStream(ZendFile_String);
            ZendFile.SaveToFile(Edit2.Text);
            ShowMessage('Zend Decode 完成！');
          end
        else
          begin
            ShowMessage('服务器维护或 PHP 版本不为4.x！');
          end;

      finally

      end;

    end;




end;

procedure TMainForm.Button4Click(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.Button5Click(Sender: TObject);
begin
  ShellExecute(0, 'open', 'http://www.mmscn.org', nil, nil, SW_SHOWNORMAL);
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  SoapClient := GetdezendPortType;
end;

end.