求助spoof

spoof是一欺骗软件。我打个比方，比如说A站与B站建立了一种合作关系，A站的注册会员可以免费欣赏B站的部分或全部内容，那么我就可以利用一些软件来欺骗B站，让B站错认为我是来自A站的合法会员，这样，我就成功的进入了B站。这种欺骗方式就是spoof。

步骤一：
1、下载zspoof应用文件。
2、解压后zspoof目录中会生成3个文件：readme.txt \\ spoof.txt \\ spoof.exe
3、双击spoof.exe文件后，会出现一个对话运行框。
4、对话运行框上面一共有5个按扭分别是：
   Add many \\ Add \\ Edit \\ Delete \\和最右边的spoof。
步骤二：
1、点击Add按纽后，会出现三个文本框分别是：
Description \\ Target Url \\ Referall
Description:按你喜欢的类别可以起名字，比如：lolita、mature、anal等等；
Target Url ：我们要欺骗的地址，或者说目标地。
Referall：必须来自可以进入 Target Url.
如果tar=ref,那么后两项所填内容一样。
2、上述内容填写完毕后，当然就按OK键了。
3、在spoof键旁边有一个下拉菜单键，点击选择后就会出现你刚填写网站的名字。
4、最后，点击spoof，就会弹出一个浏览器窗口，内容嘛，是你想要的吗？
以下是简单源码，出自该程序官方网站
unit Unit1;

interface

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

type
TForm1 = class(TForm)
  TargetURLEdit: TEdit;
  RefererEdit: TEdit;
  Button1: TButton;
  Label1: TLabel;
  Label2: TLabel;
  procedure Button1Click(Sender: TObject);
private
  { Private declarations }
public
  { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
Flags, Headers, TargetFrameName, PostData: oleVariant;
url,ref: string;
webbrowser: TWebBrowser;
begin
        // add 'SHDocVw' to uses list of the unit

        Try
        webbrowser := TWebBrowser.Create(nil);
        Flags := 1;
        TargetFrameName := '';
        PostData := '';
        Url:=TargetURLEdit.text;
        Ref:=RefererEdit.text;

        Headers := 'Referer: ' + Ref+#10+#13;


        webbrowser.Navigate( url,
                             Flags,
                             TargetFrameName,
                             PostData,
                             Headers );
        finally
        webbrowser.Free;
        end;
   end;
end.



我试过这个软件，但不知道怎么找Referall，请大家指点：）