导航

心动吧DELPHI网络书

自发研究:须要多维思想而且要想不可能为可能的人才能做到

« Ring3下注入DLL的另类方法,能过杀软和游戏NP(源码)多线程: 不使用同步工具, 手动协调线程依次执行 »

XP/2003下Delphi最简单的方法开放3389

 

program Open3389;

{$APPTYPE CONSOLE}

uses
SysUtils, Registry, Windows;

var
reg:TRegistry;

procedure Help;
begin
writeln();
writeln(======Win XP&2003 Open3389 by lanyu====== );
Writeln(Useag +ExtractFileName(Paramstr(0))+ [/n]);
end;

begin
{ TODO -oUser -cConsole Main : Insert code here }
if ParamCount>2 then
begin
help;
exit;
end;
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey(SYSTEM\CurrentControlSet\Control\Terminal Server,true);
if ParamCount=1 then
begin
if Paramstr(1)=/n then
begin
try
reg.WriteBool(fDenyTSConnections,true);
Writeln(Close 3389 successfully);
except
Writeln(Close 3389 fail);
end;
end
else
begin
Help;
Exit;
end;
end
else
begin
try
reg.WriteBool(fDenyTSConnections,false);
writeln(Open 3389 successfully);
except
writeln(Open 3389 fail);
end;
end;
reg.Free;

end.

 

原创文章如转载,请注明:转载自心动吧DELPHI网络书 [ http://www.abcxd.com/delphi/ ]

本文链接地址:http://www.abcxd.com/delphi/abcxddelphi/DELPHIHACKER/Delphi-xp-2003-3389.html

  • 相关文章:

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

热文排行使用

本年排行使用

本月排行使用

网站分类

搜索内容

最新评论及回复

最近发表

所属分类下的文章

日历

Copyright ⊙ 2004-2009 心动吧 UrL:ABCXD.CoM All RiGhts Reserved