Hallo,
Redirects, welche gerne in XXX-Foren benutzt werden, um die geklauten Zugangsdaten zu Erotikseiten länger am Leben zu erhalten, entfernt man bspw. so:
Delphi-Quellcode:
Procedure TForm1.Button1Click(Sender: TObject);
Begin
ShowMessage(DeleteRedirect('http://anonym.to/?', 'http://anonym.to/?http://www.uploadfile.info/uploads/eb69f0e4da.jpg'));
End;
Function TForm1.DeleteRedirect(sRedir, sUrl: String): String;
Begin
Result := StringReplace(sUrl, sRedir, '', [rfIgnoreCase, rfReplaceAll]);
End;
Der Eingangstext => nur ein Beispiel
