first commit (2010-01-09)

This commit is contained in:
José David Guillén 2021-09-01 17:38:08 +02:00
commit 67c478f6f3
21 changed files with 1041 additions and 0 deletions

177
Body.htm Normal file
View File

@ -0,0 +1,177 @@
<!-- main.htm -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Inform&aacute;tica D.J. programadores :: w w w . i n f d j . c o m ::</title>
<LINK REL="SHORTCUT ICON" HREF="http://www.infdj.com/images/infdj.ico">
<link rel=stylesheet href="addons/infdj.css">
<SCRIPT src="addons/cb.js"></SCRIPT>
<SCRIPT>baseA = "";</SCRIPT>
<SCRIPT src="addons/menu_bar/sniffer.js"></SCRIPT>
<SCRIPT src="addons/menu_bar/custom.js"></SCRIPT>
<SCRIPT src="addons/menu_bar/style.js"></SCRIPT>
<SCRIPT>
numNew=32;var level=0; </SCRIPT>
</head>
<body bgcolor="#FFFFFF" text="#FFFFFF" topmargin="0" leftmargin="0"
ondragstart="return false" onselectstart="return false" oncontextmenu="return false">
<!-- THE WAIT SCREEEN!!! -->
<div ID="waitDiv" style="position:absolute;left:380;top:280;visibility:hidden">
<center><table border=0 cellpadding=0 cellspacing=0 width="250"><tr><td bgcolor="#000000"><table cellpadding=2 cellspacing=1 border=0 width="100%"><tr><td bgcolor="#48409A"><center><font color="#F9E78C" face="Verdana, Arial, Helvetica, sans-serif" size="3"><b>Cargando la página...</b></font><br> <img src="images/await.gif" border="0" width="200" height="20"><br><font size="2" color="#F9E78C" face="Verdana, Arial, Helvetica, sans-serif">Espere por favor...</font></center></td></tr></table></td></tr></table></center>
</div>
<script>
<!--
var DHTML = (document.getElementById || document.all || document.layers);
function ap_getObj(name) {
if (document.getElementById) {
return document.getElementById(name).style;
} else if (document.all) {
return document.all[name].style;
} else if (document.layers) {
return document.layers[name];
}
}
function ap_showWaitMessage(div,flag) {
if (!DHTML)
return;
var x = ap_getObj(div);
x.visibility = (flag) ? 'visible':'hidden'
if(! document.getElementById)
if(document.layers)
x.left=280/2;
// return true;
}
ap_showWaitMessage('waitDiv', 1);
//-->
</SCRIPT>
<!-- END -->
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="769" background="images/bg.jpg">
<tr>
<td background="images/ln.gif" valign="top"><img src="images/lb.gif" width="1" height="77"><br><img src="images/ln.gif" width="1" height="500"></td>
<td valign="top" width="777">
<!-- begin header.htm -->
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr bgcolor="#FFFFFF">
<td width="10">&nbsp;</td>
<td width="76"><img src="images/bm_logo_sup.gif" width="76" height="77"></td>
<td width="186" valign="top" width="186"><a href="/index.php"><img src="images/txt_infdj.gif" width="186" height="37" border="0"></a></td>
<td align="center" style="text-align='center'">[ESPACIO RESERVADO]</td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr bgcolor="#FFFFFF">
<td width="10"><img src="images/bm_med.gif" width="10" height="29"></td>
<td width="76"><img src="images/bm_logo_med.gif" width="76" height="29"></td>
<td width="130" background="images/bm_crist_med.gif" class="cristal"><img src="images/bm_med.gif" align="absmiddle" width="10" height="29"><img src="images/bm_crist_izq.gif" align="absmiddle" width="10" height="29">22-Mar-2003</td>
<td background="images/bm_med.gif"><img src="images/bm_crist_der.gif" width="10" height="29" align="absmiddle"><img src="sep.gif" name="anchor" alt="" border=0 width=5 height=20 align="absmiddle"></td>
</tr>
<tr>
<td width="10"><img src="images/bm_minf.gif" width="10" height="30"></td>
<td width="76"><img src="images/bm_logo_inf.gif" width="76" height="30"></td>
<td width="130"><img src="images/bm_minf.gif" align="absmiddle" width="10" height="30"><img src="images/bm_crist_izqinf.gif" align="absmiddle" width="10" height="30"></td>
<td background="images/bm_minf.gif"><img src="images/bm_crist_derinf.gif" align="absmiddle" width="10"
height="30">:: Website parcialmente activa ¡probando módulos!</td>
</tr>
</table>
<!-- end header.htm -->
<table border="0" cellpadding="5" cellspacing="0" width="100%">
<tr>
<td width="167" valign="top">
<!-- begin leftnav.htm -->
<p><br><br></p>
<img src="images/sep.gif" width="5" height="5">
<script language="javascript" src="addons/box_noticias.js"></script>
<img src="images/sep.gif" width="5" height="5">
<script language="javascript" src="addons/box_ident.js"></script> <img src="images/sep.gif" width="5" height="5">
<script language="javascript" src="addons/box_enlaces.js"></script>
<img src="images/sep.gif" width="5" height="5">
<table border=0 cellpadding=0 cellspacing=0 width="167">
<tr><td width="5">
<img src="images/box/box_supizq.gif" width="5" height="17"></td>
<td background="images/box/box_supmini.gif"><img src="images/box/txt_minichat.gif"></td>
<td width="9"><img src="images/box/box_supder.gif" width="9" height="17"></td>
</tr>
<tr><td width="5" background="images/box/box_medizq.gif">
<img src="images/box/box_medizq.gif" width="5" height="17"></td>
<td bgcolor="#2067BE" class="box">
<iframe SRC="miniChat.php" NAME="miniChat" WIDTH="153" HEIGHT="120" ALIGN="center" frameborder=0 scrolling=no>:: Su navegador no soporta IFrames, si desea visualizar estas páginas correctamente, le recomendamos que actualice su navegador.</iframe>
</td>
<td background="images/box/box_medder.gif">
<img src="images/box/box_medder.gif" width="9" height="19"></td>
</tr>
<tr><td width="5">
<img src="images/box/box_infizq.gif" width="5" height="19"></td>
<td valign="top" background="images/box/box_infmed.gif" class="box">
<img src="images/box/box_infmed0.gif" align="top" width="87" height="19">
<a href="javascript:refrescaMiniChat();" class="box">Actualizar</a>'
</td><td><img src="images/box/box_infder.gif" width="9" height="19"></td>
</tr></table>
<img src="/cgi-bin/Count.cgi?df=index&amp;dd=led&amp;ft=0&sh=F" align="absmiddle" alt="Desde el 00.05.02">
<!-- end leftnav.htm -->
</td>
<td valign="top">
<table border="0" cellpadding="0" width="100%">
<tr>
<td align="center" valign="top" width="50%">
<table border=0 cellpadding=0 cellspacing=0 width="285"><tr><td width="5"><img src="images/box/box_supizq.gif" width="5" height="17"></td><td background="images/box/box_supmini.gif">HP Laserjet 1000W 243.57 €</td><td width="9"><img src="images/box/box_supder.gif" width="9" height="17"></td></tr><tr><td width="5" background="images/box/box_medizq.gif"><img src="images/box/box_medizq.gif" width="5" height="17"></td><td bgcolor="#FFFFFF" style="color:#000000;"><div style="visibility: visible; position: relative; width: 100%; height: 150px;overflow:auto;"><center><img src="prod/getImg.php?idf=231" height="130" width="116" border=0></center></div></td><td background="images/box/box_medder.gif"><img src="images/box/box_medder.gif" width="9" height="19"></td></tr><tr><td width="5"><img src="images/box/box_infizq.gif" width="5" height="19"></td><td valign="top" background="images/box/box_infmed.gif" class="box"><img src="images/box/cbox_infmed0.gif" align="top" width="4" height="19"><img src="images/box/cbox_infmed1.gif" align="top" width="185" height="19"><img src="images/box/cbox_infmed2.gif" align="top" width="9" height="19"><a href="javascript:aCesta(231,1,'243.57',17301760)">comprar</a></td><td><img src="images/box/box_infder.gif" width="9" height="19"></td></tr></table> </td>
<td align="center" valign="top" width="50%">
<table border=0 cellpadding=0 cellspacing=0 width="285"><tr><td width="5"><img src="images/box/box_supizq.gif" width="5" height="17"></td><td background="images/box/box_supmini.gif">Regrabadora 4Kus 48x12x48 Bu 54.26 €</td><td width="9"><img src="images/box/box_supder.gif" width="9" height="17"></td></tr><tr><td width="5" background="images/box/box_medizq.gif"><img src="images/box/box_medizq.gif" width="5" height="17"></td><td bgcolor="#FFFFFF" style="color:#000000;"><div style="visibility: visible; position: relative; width: 100%; height: 150px;overflow:auto;"><center><img src="prod/getImg.php?idf=391" height="130" width="216" border=0></center></div></td><td background="images/box/box_medder.gif"><img src="images/box/box_medder.gif" width="9" height="19"></td></tr><tr><td width="5"><img src="images/box/box_infizq.gif" width="5" height="19"></td><td valign="top" background="images/box/box_infmed.gif" class="box"><img src="images/box/cbox_infmed0.gif" align="top" width="4" height="19"><img src="images/box/cbox_infmed1.gif" align="top" width="185" height="19"><img src="images/box/cbox_infmed2.gif" align="top" width="9" height="19"><a href="javascript:aCesta(391,1,'54.26',17040128)">comprar</a></td><td><img src="images/box/box_infder.gif" width="9" height="19"></td></tr></table> </td>
</tr><tr>
<td align="center" valign="top" width="50%">
<table border=0 cellpadding=0 cellspacing=0 width="285"><tr><td width="5"><img src="images/box/box_supizq.gif" width="5" height="17"></td><td background="images/box/box_supmini.gif">Noticia destacada</td><td width="9"><img src="images/box/box_supder.gif" width="9" height="17"></td></tr><tr><td width="5" background="images/box/box_medizq.gif"><img src="images/box/box_medizq.gif" width="5" height="17"></td><td bgcolor="#FFFFFF" style="color:#000000;"><div style="visibility: visible; position: relative; width: 100%; height: 150px;overflow:auto;"><center><font size="+1">GSmart Mini 2</font><br>
<img src="publi/ene03/gs2.jpg" align=right>
<br>*1600x1200 pixel (interpolated)
<br>Alimentacion USB
<br>WebCam Mode
<br>TWAIN-compatible</center></div></td><td background="images/box/box_medder.gif"><img src="images/box/box_medder.gif" width="9" height="19"></td></tr><tr><td width="5"><img src="images/box/box_infizq.gif" width="5" height="19"></td><td valign="top" background="images/box/box_infmed.gif" class="box"><img src="images/box/cbox_infmed0.gif" align="top" width="4" height="19"><img src="images/box/cbox_infmed1.gif" align="top" width="185" height="19"><img src="images/box/cbox_infmed2.gif" align="top" width="9" height="19"><a href='publi\ene03
' target='_blank' class='box'>+ info</a></td><td><img src="images/box/box_infder.gif" width="9" height="19"></td></tr></table> </td>
<td align="center" valign="top" width="50%">
<table border=0 cellpadding=0 cellspacing=0 width="285"><tr><td width="5"><img src="images/box/box_supizq.gif" width="5" height="17"></td><td background="images/box/box_supmini.gif">Epson Stylus C62 PP y USB 87.41 €</td><td width="9"><img src="images/box/box_supder.gif" width="9" height="17"></td></tr><tr><td width="5" background="images/box/box_medizq.gif"><img src="images/box/box_medizq.gif" width="5" height="17"></td><td bgcolor="#FFFFFF" style="color:#000000;"><div style="visibility: visible; position: relative; width: 100%; height: 150px;overflow:auto;"><center><img src="prod/getImg.php?idf=235" height="130" width="128" border=0></center></div></td><td background="images/box/box_medder.gif"><img src="images/box/box_medder.gif" width="9" height="19"></td></tr><tr><td width="5"><img src="images/box/box_infizq.gif" width="5" height="19"></td><td valign="top" background="images/box/box_infmed.gif" class="box"><img src="images/box/cbox_infmed0.gif" align="top" width="4" height="19"><img src="images/box/cbox_infmed1.gif" align="top" width="185" height="19"><img src="images/box/cbox_infmed2.gif" align="top" width="9" height="19"><a href="javascript:aCesta(235,1,'87.41',17302016)">comprar</a></td><td><img src="images/box/box_infder.gif" width="9" height="19"></td></tr></table> </td>
</tr>
</table>
<br>
<br><table border=0 cellpadding=0 cellspacing=0 width="575"><tr><td width="5"><img src="images/box/box_supizq.gif" width="5" height="17"></td><td background="images/box/box_supmini.gif">Noticias del sector</td><td width="9"><img src="images/box/box_supder.gif" width="9" height="17"></td></tr><tr><td width="5" background="images/box/box_medizq.gif"><img src="images/box/box_medizq.gif" width="5" height="17"></td><td bgcolor="#FFFFFF" style="color:#000000;"><iframe SRC="imente.htm" NAME="not_sec" WIDTH="565" HEIGHT="200" ALIGN="center" frameborder=0><div style="visibility: visible; position: relative; width: 100%; height: 200px;overflow: auto;"><script src="http://afiliados.imente.com/code.cgi?infdjcom"></script></div></iframe></td><td background="images/box/box_medder.gif"><img src="images/box/box_medder.gif" width="9" height="19"></td></tr><tr><td width="5"><img src="images/box/box_infizq.gif" width="5" height="19"></td><td valign="top" background="images/box/box_infmed.gif" class="box"><img src="images/box/cbox_infmed0.gif" align="top" width="4" height="19"><img src="images/box/cbox_infmed1.gif" align="top" width="475" height="19"><img src="images/box/cbox_infmed2.gif" align="top" width="9" height="19"></td><td><img src="images/box/box_infder.gif" width="9" height="19"></td></tr></table> </td>
</tr>
</table>
<p><br></p>
</td>
<td background="images/ln.gif" valign="top"><img src="images/lb.gif" width="1" height="77"><br><img src="images/sep.gif" width="1" height="1"></td>
</tr>
<tr>
<td bgcolor="#000000"><img src="images/sep.gif" width="1" height="1"></td>
<td align="right" valign="top" bgcolor="#000000" class="litt" style="text-align:right;margin-right:5.0pt">:: copyright © 1999 - 2002 <a href="http://jd.infdj.com" class="litt">JDsoft</a> ::</td>
<td bgcolor="#000000"><img src="images/sep.gif" width="1" height="1"></td>
</tr>
</table>
</center></div>
<!-- WAIT SCRIPT!!!! -->
<script language="javascript" type="text/javascript">
<!--
ap_showWaitMessage('waitDiv', 0);
//-->
</SCRIPT>
<!-- END -->
<script language="javascript1.2" src="addons/menu_bar/menu.js"></script>
<p><br></p>
</body>
</html>

0
Body.txt Normal file
View File

214
ExtNC.cpp Normal file
View File

@ -0,0 +1,214 @@
//---------------------------------------------------------------------------
#include <time.h>
#include <vcl.h>
#pragma hdrstop
#include "ExtNC.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SHDocVw_OCX"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
ComboBox3->ItemIndex=0;
Panel1->Height = 44;
ToSend->ColWidths[0]=150;
ToSend->ColWidths[1]=450;
ToSend->Cells[0][0] = "Host";
ToSend->Cells[1][0] = "";
ToSend->Cells[0][1] = "Referer";
ToSend->Cells[1][1] = "";
ToSend->Cells[0][2] = "Cookie";
ToSend->Cells[1][2] = "";
ToSend->Cells[0][3] = "Accept";
ToSend->Cells[1][3] = "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, */*";
ToSend->Cells[0][4] = "Accept-Language";
ToSend->Cells[1][4] = "es,es;q=0.5";
ToSend->Cells[0][5] = "Accept-Charset";
ToSend->Cells[1][5] = "iso-8859-1,*,utf-8";
ToSend->Cells[0][6] = "Content-Type";
ToSend->Cells[1][6] = "application/x-www-form-urlencoded";
ToSend->Cells[0][7] = "Accept-Encoding";
ToSend->Cells[1][7] = "gzip, deflate";
ToSend->Cells[0][8] = "User-Agent";
ToSend->Cells[1][8] = "Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; .NET CLR 1.0.3705)";
ToSend->Cells[0][9] = "Proxy-Connection";
ToSend->Cells[1][9] = "Keep-Alive";
ToSend->Cells[0][10] = "Pragma";
ToSend->Cells[1][10] = "no-cache";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::GenerarCabeceraClick(TObject *Sender)
{
AnsiString Method[] = { "GET","HEAD","OPTIONS","TRACE","PUT","POST","DELETE" };
// Obtenemos el Host de la URL
AnsiString Host;
Host = Url->Text;
if ( Host.Pos("http://") > 0 )
Host = Host.SubString( 8, Host.Length()-7 );
if ( Host.Pos( "/" ) > 0 )
Host = Host.SubString( 1, Host.Pos( "/" ) );
// Componemos la cabecera que va a ser enviada...
Memo3->Clear();
Memo3->Lines->Add(Method[ComboBox3->ItemIndex]+" "+Url->Text+" "+ProtocolVersion->Text);
// Si esta vacia, ponemos el HOST
if ( ToSend->Cells[1][0].IsEmpty() )
ToSend->Cells[1][0] = Host;
// Componemos la cabecera que debemos enviar.
for ( int i=0; i<ToSend->RowCount; i++ )
if ( !ToSend->Cells[1][i].IsEmpty() )
Memo3->Lines->Add( ToSend->Cells[0][i] + ": " + ToSend->Cells[1][i] );
// Metodo POST
if ( ComboBox3->ItemIndex==5 )
{
Memo3->Lines->Add( "Content-Length: " +AnsiString( Post->Text.Length() ) );
Memo3->Lines->Add( "" );
Memo3->Lines->Add( Post->Text );
}
Memo3->Lines->Add( "" );
Memo3->Lines->Add( "" );
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox3Change(TObject *Sender)
{
if ( ComboBox3->ItemIndex==5 )
Panel1->Height = 80;
else
Panel1->Height = 44;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
GenerarCabeceraClick(0);
EnviarCabecera();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
EnviarCabecera();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::EnviarCabecera(void)
{
AnsiString buf;
ClientSocket = new TClientSocket( this );
ClientSocket->OnConnect = SocketConnect;
// ClientSocket->OnDisconnect = SocketDisconnect;
// ClientSocket->OnError = SocketError;
ClientSocket->ClientType = ctBlocking;
ClientSocket->Host = ToSend->Cells[1][0];
ClientSocket->Port = 80;
ClientSocket->Active = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SocketConnect(TObject *Sender,
TCustomWinSocket *Socket)
{
time_t first, second;
TDateTime start;
TWinSocketStream *pStream;
bool eond;
int num_bytes_read;
char buff[500];
// create a TWinSocketStream for reading and writing
pStream = new TWinSocketStream( Socket, 20000 );
try
{
// fetch and process commands until the connection or thread is terminated
if ( ClientSocket->Active )
{
try
{
// Enviamos todos los datos de cabecera
for ( int i=0; i<Memo3->Lines->Count; i++ )
{
strncpy( buff, Memo3->Lines->Strings[i].c_str(), 499 );
pStream->Write( buff, strlen(buff) );
pStream->Write( "\n", 1 );
}
Memo2->Clear();
if ( pStream->WaitForData(10000) )
{
eond = false;
first = time(NULL); /* Gets system
time */
while( !eond && ClientSocket->Active && difftime(time(NULL),first) < 20 )
{
try {
buff[0]='\0';
num_bytes_read = 0;
num_bytes_read = pStream->Read( buff, 499 );
eond = (num_bytes_read==0);
} catch(...) {
eond = true;
}
buff[num_bytes_read]='\0';
Memo2->Lines->Text = Memo2->Lines->Text+AnsiString(buff);
}
}
}
catch (Exception &E)
{
if (!E.ClassNameIs("EAbort"))
{
// nothing
}
}
}
}
__finally
{
delete pStream;
Socket->Close();
}
int numCRLF=1;
Memo1->Clear();
for (int i=0; numCRLF > 0 && i<Memo2->Lines->Count; i++ )
{
if ( Memo2->Lines->Strings[0].IsEmpty() ) numCRLF--;
Memo1->Lines->Add(Memo2->Lines->Strings[0]);
Memo2->Lines->Delete(0);
}
Memo2->Lines->SaveToFile(ExtractFilePath(Application->ExeName)+"output.htm");
wchar_t *wbuff;
int ancho_buff = AnsiString(ExtractFilePath(Application->ExeName)+"output.htm").WideCharBufSize();
wbuff = new wchar_t[ancho_buff];
AnsiString(ExtractFilePath(Application->ExeName)+"output.htm").WideChar(wbuff,ancho_buff);
CppWebBrowser1->Navigate(wbuff, NULL, NULL, NULL, NULL );
delete buff;
}

298
ExtNC.dfm Normal file
View File

@ -0,0 +1,298 @@
object Form1: TForm1
Left = 243
Top = 116
Width = 640
Height = 480
Caption = 'Extended NC for HTTP'
Color = clBtnFace
Constraints.MinHeight = 480
Constraints.MinWidth = 640
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 16
object StatusBar1: TStatusBar
Left = 0
Top = 434
Width = 632
Height = 19
Panels = <>
SimplePanel = False
end
object PageControl1: TPageControl
Left = 0
Top = 80
Width = 632
Height = 354
ActivePage = TabSheet1
Align = alClient
TabOrder = 1
TabPosition = tpBottom
object TabSheet1: TTabSheet
Caption = 'General'
object SpeedButton2: TSpeedButton
Left = 456
Top = 88
Width = 23
Height = 22
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F0000000800C0000800C00001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888800008888888888888888888800008888888888888888888800008888
8877888888888888000088880077788887778888000088870B07778887777788
000088700BB07778000777780000800BBBBB07770BB0077700000BBBBBBBB077
0BBBB07700000BBBBBBBB0780BBBB07700000BBBBBBB00000BBBB07700000BB0
0BB03333000BB077000000030B03333333300078000003330033333333333088
0000800333333333333008880000888000000000000888880000888888888888
8888888800008888888888888888888800008888888888888888888800008888
88888888888888880000}
end
object ToSend: TStringGrid
Left = 0
Top = 0
Width = 624
Height = 105
Align = alClient
ColCount = 2
FixedCols = 0
RowCount = 15
FixedRows = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
TabOrder = 0
end
object Panel2: TPanel
Left = 0
Top = 105
Width = 624
Height = 218
Align = alBottom
BorderStyle = bsSingle
TabOrder = 1
object Label2: TLabel
Left = 2
Top = 16
Width = 180
Height = 18
Caption = 'Cabecera a enviar:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Courier New'
Font.Style = [fsBold]
ParentFont = False
end
object Memo3: TMemo
Left = 1
Top = 35
Width = 618
Height = 178
Align = alBottom
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
ScrollBars = ssVertical
TabOrder = 0
WordWrap = False
end
object GenerarCabecera: TBitBtn
Left = 432
Top = 8
Width = 113
Height = 25
Caption = 'Cabecera'
TabOrder = 1
OnClick = GenerarCabeceraClick
Glyph.Data = {
16010000424D1601000000000000760000002800000010000000140000000100
040000000000A0000000800C0000800C00001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888888888888888888888888888888888888888777778888888888000007
77888888880AAAA007788888880AAAAA20778888880AAAA2A27788888800000A
2207888887888870020788880788888770078880077777700207880A0000000A
220780AAAAAAAAA2A2780AAAAAAAAAAA208880AAAAAAAAA00888880A00000008
8888888007888888888888880888888888888888888888888888}
end
object BitBtn3: TBitBtn
Left = 552
Top = 8
Width = 65
Height = 25
Caption = 'Send'
TabOrder = 2
OnClick = BitBtn3Click
Glyph.Data = {
16010000424D1601000000000000760000002800000010000000140000000100
040000000000A0000000800C0000800C00001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888888888888888888888888888888888888888777778888888888000007
77888888880AAAA007788888880AAAAA20778888880AAAA2A27788888800000A
2207888887888870020788880788888770078880077777700207880A0000000A
220780AAAAAAAAA2A2780AAAAAAAAAAA208880AAAAAAAAA00888880A00000008
8888888007888888888888880888888888888888888888888888}
end
end
end
object TabSheet2: TTabSheet
Caption = 'HTML'
ImageIndex = 1
object Splitter1: TSplitter
Left = 0
Top = 113
Width = 624
Height = 3
Cursor = crVSplit
Align = alTop
end
object Memo2: TMemo
Left = 0
Top = 116
Width = 624
Height = 207
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
ReadOnly = True
ScrollBars = ssBoth
TabOrder = 0
WordWrap = False
end
object Memo1: TMemo
Left = 0
Top = 0
Width = 624
Height = 113
Align = alTop
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
ScrollBars = ssVertical
TabOrder = 1
WordWrap = False
end
end
object TabSheet3: TTabSheet
Caption = 'Preview'
ImageIndex = 2
object CppWebBrowser1: TCppWebBrowser
Left = 0
Top = 0
Width = 624
Height = 323
TabStop = True
Align = alClient
TabOrder = 0
ControlData = {
4C0000007E400000622100000000000000000000000000000000000000000000
000000004C000000000000000000000001000000E0D057007335CF11AE690800
2B2E12620A000000000000004C0000000114020000000000C000000000000046
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000100000000000000000000000000000000000000}
end
end
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 632
Height = 80
Align = alTop
BorderStyle = bsSingle
TabOrder = 2
object Label1: TLabel
Left = 8
Top = 56
Width = 100
Height = 18
Caption = 'Post Data:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Courier New'
Font.Style = [fsBold]
ParentFont = False
end
object BitBtn1: TBitBtn
Left = 584
Top = 8
Width = 41
Height = 25
Caption = 'Ir'
TabOrder = 0
OnClick = BitBtn1Click
Glyph.Data = {
16010000424D1601000000000000760000002800000010000000140000000100
040000000000A0000000800C0000800C00001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888888888888888888888888888888888888888777778888888888000007
77888888880AAAA007788888880AAAAA20778888880AAAA2A27788888800000A
2207888887888870020788880788888770078880077777700207880A0000000A
220780AAAAAAAAA2A2780AAAAAAAAAAA208880AAAAAAAAA00888880A00000008
8888888007888888888888880888888888888888888888888888}
end
object ComboBox3: TComboBox
Left = 2
Top = 8
Width = 105
Height = 24
ItemHeight = 16
TabOrder = 1
Text = 'HTTP Get'
OnChange = ComboBox3Change
Items.Strings = (
'HTTP Get'
'HTTP Head'
'HTTP Options'
'HTTP Trace'
'HTTP Put'
'HTTP Post'
'HTTP Delete')
end
object Url: TEdit
Left = 106
Top = 8
Width = 412
Height = 24
TabOrder = 2
Text = 'http://jd.infdj.com'
end
object ProtocolVersion: TEdit
Left = 518
Top = 8
Width = 65
Height = 24
TabOrder = 3
Text = 'HTTP/1.1'
end
object Post: TEdit
Left = 106
Top = 48
Width = 412
Height = 24
TabOrder = 4
end
end
object OpenDialog1: TOpenDialog
Left = 410
Top = 130
end
end

62
ExtNC.h Normal file
View File

@ -0,0 +1,62 @@
//---------------------------------------------------------------------------
#ifndef ExtNCH
#define ExtNCH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
#include <NMHttp.hpp>
#include <Psock.hpp>
#include <Buttons.hpp>
#include <Dialogs.hpp>
#include <Grids.hpp>
#include "SHDocVw_OCX.h"
#include <OleCtrls.hpp>
#include <ScktComp.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TStatusBar *StatusBar1;
TPageControl *PageControl1;
TPanel *Panel1;
TTabSheet *TabSheet1;
TTabSheet *TabSheet2;
TTabSheet *TabSheet3;
TMemo *Memo2;
TSplitter *Splitter1;
TMemo *Memo1;
TBitBtn *BitBtn1;
TOpenDialog *OpenDialog1;
TSpeedButton *SpeedButton2;
TStringGrid *ToSend;
TComboBox *ComboBox3;
TEdit *Url;
TEdit *ProtocolVersion;
TPanel *Panel2;
TMemo *Memo3;
TLabel *Label2;
TBitBtn *GenerarCabecera;
TBitBtn *BitBtn3;
TEdit *Post;
TLabel *Label1;
TCppWebBrowser *CppWebBrowser1;
void __fastcall GenerarCabeceraClick(TObject *Sender);
void __fastcall ComboBox3Change(TObject *Sender);
void __fastcall BitBtn1Click(TObject *Sender);
void __fastcall BitBtn3Click(TObject *Sender);
private: // User declarations
TClientSocket *ClientSocket;
void __fastcall SocketConnect(TObject *Sender, TCustomWinSocket *Socket);
void __fastcall EnviarCabecera(void);
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

107
ExtendedNC.bpr Normal file
View File

@ -0,0 +1,107 @@
<?xml version='1.0' encoding='utf-8' ?>
<!-- C++Builder XML Project -->
<PROJECT>
<MACROS>
<VERSION value="BCB.05.03"/>
<PROJECT value="ExtendedNC.exe"/>
<OBJFILES value="ExtendedNC.obj ExtNC.obj"/>
<RESFILES value="ExtendedNC.res"/>
<IDLFILES value=""/>
<IDLGENFILES value=""/>
<DEFFILE value=""/>
<RESDEPEN value="$(RESFILES) ExtNC.dfm"/>
<LIBFILES value=""/>
<LIBRARIES value="bcbie50.lib VCLX50.lib NMFAST50.lib VCL50.lib"/>
<SPARELIBS value="VCL50.lib NMFAST50.lib VCLX50.lib bcbie50.lib"/>
<PACKAGES value="VCL50.bpi VCLX50.bpi VCLDB50.bpi QRPT50.bpi VCLBDE50.bpi VCLIE50.bpi
INETDB50.bpi INET50.bpi NMFAST50.bpi dclocx50.bpi CabForCB.bpi
CoolPack.bpi PhantomPack.bpi VCLMID50.bpi WEBMID50.bpi VCLDBX50.bpi
TEEQR50.bpi asgc5.bpi RAS_Tools.bpi ZCommonCB5.bpi ZDbwareCB5.bpi
ZMySqlCB5.bpi ZDb2SqlCB5.bpi ZIbSqlCB5.bpi ZMsSqlCB5.bpi ZOraSqlCB5.bpi
ZPgSqlCB5.bpi TEEUI50.bpi TEEDB50.bpi TEE50.bpi DSS50.bpi bcbsmp50.bpi
VCLADO50.bpi ibsmp50.bpi bcbie50.bpi bcb2kaxserver50.bpi VCLIB50.bpi
JDsoft.bpi"/>
<PATHCPP value=".;"/>
<PATHPAS value=".;"/>
<PATHRC value=".;"/>
<PATHASM value=".;"/>
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
<RELEASELIBPATH value="$(BCB)\lib\release"/>
<LINKER value="tlink32"/>
<USERDEFINES value=""/>
<SYSDEFINES value="NO_STRICT"/>
<MAINSOURCE value="ExtendedNC.cpp"/>
<INCLUDEPATH value="$(BCB)\include;$(BCB)\include\vcl"/>
<LIBPATH value="$(BCB)\Projects\Lib;..\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib"/>
<WARNINGS value="-w-par"/>
</MACROS>
<OPTIONS>
<IDLCFLAGS value="-I$(BCB)\include -I$(BCB)\include\vcl -src_suffix cpp -boa"/>
<CFLAG1 value="-O2 -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -a8 -b- -k- -vi -c -tW -tWM"/>
<PFLAGS value="-$Y- -$L- -$D- -v -JPHNE -M"/>
<RFLAGS value=""/>
<AFLAGS value="/mx /w2 /zn"/>
<LFLAGS value="-D&quot;&quot; -aa -Tpe -x -Gn"/>
</OPTIONS>
<LINKER>
<ALLOBJ value="c0w32.obj sysinit.obj $(OBJFILES)"/>
<ALLRES value="$(RESFILES)"/>
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib"/>
</LINKER>
<IDEOPTIONS>
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=3082
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[Excluded Packages]
C:\Mis documentos\Fuentes de Programacion\C++ Builder\CAP\LM2000_vcl\LM2000_vcl.bpl=Funciones para el Manejo del LM2000
[Debugging]
DebugSourceDirs=$(BCB)\source\vcl
[Parameters]
RunParams=
HostApplication=
RemoteHost=
RemotePath=
RemoteDebug=0
[Compiler]
ShowInfoMsgs=0
LinkDebugVcl=0
LinkCGLIB=0
[CORBA]
AddServerUnit=1
AddClientUnit=1
PrecompiledHeaders=1
[Language]
ActiveLang=
ProjectLang=
RootDir=
</IDEOPTIONS>
</PROJECT>

22
ExtendedNC.cpp Normal file
View File

@ -0,0 +1,22 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("ExtendedNC.res");
USEFORM("ExtNC.cpp", Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------

BIN
ExtendedNC.exe Normal file

Binary file not shown.

BIN
ExtendedNC.res Normal file

Binary file not shown.

View File

@ -0,0 +1,6 @@
[DEFAULT]
BASEURL=http://archives.indenial.com/hypermail/bugtraq/2001/May2001/0135.html
[InternetShortcut]
URL=http://archives.indenial.com/hypermail/bugtraq/2001/May2001/0135.html
Modified=806E8B43A7FEC20124

BIN
nc.exe Normal file

Binary file not shown.

0
output.htm Normal file
View File

17
sonda2.txt Normal file
View File

@ -0,0 +1,17 @@
POST http://uni14.ogame.com.es/game/index.php?ajax=1&page=flottenversand&session=91fcfd64f83e HTTP/1.1
Host: uni14.ogame.com.es
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.8.0.1) Gecko/20060111 Firefox/2.0.0.5
Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
Accept-Language: es-es,es;q=0.5
Accept-Encoding: deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Proxy-Connection: keep-alive
Content-Type: application/x-www-form-urlencoded
Referer: http://uni14.ogame.com.es/game/index.php?page=galaxy&no_header=1&session=91fcfd64f83e
Content-Length: 125
Cookie: PHPSESSID=a466948266adb64669629a6517072550
Pragma: no-cache
Cache-Control: no-cache
session=91fcfd64f83e&order=6&galaxy=2&system=332&planet=12&planettype=1&shipcount=2&speed=10&reply=short&rndval=1190493308921

16
sondeo.txt Normal file
View File

@ -0,0 +1,16 @@
POST http://uni14.ogame.com.es/game/index.php?ajax=1&page=flottenversand&session=91fcfd64f83e HTTP/1.1
Host: uni14.ogame.com.es
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.8.1.6) Gecko/20070725 Firefox/2.0.0.6
Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
Accept-Language: es-es,es;q=0.8,en-us;q=0.5,en;q=0.3
Accept-Encoding: deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Proxy-Connection: keep-alive
Content-Type: application/x-www-form-urlencoded
Referer: http://uni14.ogame.com.es/game/index.php?page=galaxy&session=91fcfd64f83e&no_header=1
Content-Length: 125
Pragma: no-cache
Cache-Control: no-cache
session=91fcfd64f83e&order=6&galaxy=2&system=334&planet=12&planettype=1&shipcount=2&speed=10&reply=short&rndval=1190486618781

10
tmp/001.txt Normal file
View File

@ -0,0 +1,10 @@
GET http://www.ogame.com.es/ HTTP/1.1
Host: www.ogame.com.es
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.8.1.6) Gecko/20070725 Firefox/2.0.0.6
Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
Accept-Language: es-es,es;q=0.8,en-us;q=0.5,en;q=0.3
Accept-Encoding: deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Proxy-Connection: keep-alive

57
tmp/002.txt Normal file
View File

@ -0,0 +1,57 @@
HTTP/1.1 200 OK
Date: Sat, 22 Sep 2007 21:11:36 GMT
Server: Apache
Vary: Accept-Encoding
Content-Length: 1533
Connection: close
Content-Type: text/html
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict //EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html>
<head>
<meta name="author" content="Gameforge Productions GmbH" />
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1" />
<meta name="keywords" content="OGame, Browsergame, Onlinegame, Browsergames, Browsergame, Spiel, Spiele, Onlinespiel, Onlinespiele" />
<meta name="description" content="OGame - Top Browsergame im Weltraum. Kommandiere deine Flotten." />
<meta name="robots" content="index, follow" />
<meta name="language" content="es" />
<meta name="distribution" content="global" />
<meta name="audience" content="all" />
<meta name="author-mail" content="info@ogame.de" />
<meta name="publisher" content="Gameforge Productions GmbH" />
<meta name="copyright" content="(c) 2007 by Gameforge Productions GmbH" />
<meta http-equiv="expires" content="0" />
<meta http-equiv="pragma" content="no-cache" />
<link rel="shortcut icon" href="favicon.ico" type="image/x-icon" />
<title>OGame.com.es</title>
</head>
<frameset rows="*,0,0" frameborder="no" border="0" framespacing="0">
<frame name="mainframe" src="ttp://www.ogame.com.es/" frameborder="0" scrolling="auto" noresize>
</frameset>
</html>
<script>
frame = document.getElementsByName['mainframe'][0];
if ( typeof( window.innerWidth ) == 'number' ){
if (window.innerWidth <= 800){
frame.scrollbars.visible=true;
}
}else {
if (document.body.clientWidth <= 800){
frame.scrollbars.visible=true;
}
}
</script>

14
tmp/010.txt Normal file
View File

@ -0,0 +1,14 @@
POST http://uni14.ogame.com.es/game/reg/login2.php HTTP/1.1
Host: uni14.ogame.com.es
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.8.1.6) Gecko/20070725 Firefox/2.0.0.6
Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
Accept-Language: es-es,es;q=0.8,en-us;q=0.5,en;q=0.3
Accept-Encoding: deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Proxy-Connection: keep-alive
Referer: http://www.ogame.com.es/home.php
Content-Type: application/x-www-form-urlencoded
Content-Length: 83
v=2&universe=uni14.ogame.com.es&login=lupenlll&pass=cambiando&button.x=9&button.y=5

14
tmp/011.txt Normal file
View File

@ -0,0 +1,14 @@
HTTP/1.1 200 OK
Date: Sat, 22 Sep 2007 21:15:13 GMT
Server: Apache
Set-Cookie: PHPSESSID=d5f8ce2697e858d716181f174af61e9b; path=/
Expires: Thu, 19 Nov 1981 08:52:00 GMT
Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0
Pragma: no-cache
Set-Cookie: U_es14:lupenlll=U_es14%3Alupenlll; expires=Sun, 23 Sep 2007 21:15:13 GMT; path=/
Vary: Accept-Encoding
Content-Length: 101
Connection: close
Content-Type: text/html; charset=iso-8859-1
<meta http-equiv='refresh' content='0; URL=/game/index.php?page=overview&session=e57798f6ac12&lgn=1'>

11
tmp/012.txt Normal file
View File

@ -0,0 +1,11 @@
GET http://uni14.ogame.com.es/game/index.php?page=overview&session=e57798f6ac12&lgn=1 HTTP/1.1
Host: uni14.ogame.com.es
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.8.1.6) Gecko/20070725 Firefox/2.0.0.6
Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
Accept-Language: es-es,es;q=0.8,en-us;q=0.5,en;q=0.3
Accept-Encoding: deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Proxy-Connection: keep-alive
Referer: http://uni14.ogame.com.es/game/reg/login2.php
Content-Type: application/x-www-form-urlencoded

16
tmp/013.txt Normal file
View File

@ -0,0 +1,16 @@
HTTP/1.1 400 Bad Request
Date: Sat, 22 Sep 2007 21:17:57 GMT
Server: Apache
Vary: Accept-Encoding
Content-Length: 226
Connection: close
Content-Type: text/html; charset=iso-8859-1
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html><head>
<title>400 Bad Request</title>
</head><body>
<h1>Bad Request</h1>
<p>Your browser sent a request that this server could not understand.<br />
</p>
</body></html>

BIN
tmp/nc.exe Normal file

Binary file not shown.