hi,

ich würde gerne wissen wie ich so einen link:

http://anonym.to/?http://www.uploadf...eb69f0e4da.jpg

in so einen zerlege: http://www.uploadfile.info/uploads/eb69f0e4da.jpg

oder auch sowas soll richtig zerlegt werden: http://anonym.to/?http://anonym.to/?...eb69f0e4da.jpg

Kann mir da einer helfen???

Soll ich mit der "InternetCrackURL" oder mit Pos, Delete und Copy arbeiten?

BSP- Code wäre optimal^^.

vielen dank im voraus!

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:

markieren

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

ja danke das hilft mir schon sehr!!!
...nur das einzige prob. ist das ich nur einen redirektor "anonym.to" ignorieren kann...wie könnte ich ander dienste usw ignorieren....muß ich alle möglichen redirektoren ....bekannte diesnte in einem array packen und dan entsprechend bearbeiten??

Geht das auch dynamischer??^^

Zitat von Metal_Snake2:

wie könnte ich ander dienste usw ignorieren....muß ich alle möglichen redirektoren ....bekannte diesnte in einem array packen und dan entsprechend bearbeiten??

Das wäre ein Weg.

Zitat von Metal_Snake2:

Geht das auch dynamischer??^^

Klar.
Du könntest Deine URL von hinten durchgehen, bis Du beim ersten 'http://' oder 'www.' angelangt bist und alles, was davor steht, löschen.

Edit:
Eine nette, und vor allem performante, LastPos-Variante gibt es hier
Dort die InlineASM-Variante. Die andere tuts aber sicherlich auch.

Hallo,

eine Verwendung von InternetCrackUrl() findest du hier: klick

Grüße vom marabu

hab zu danken, die "lastpos" variante scheint die eleganteste zu sein.