Konvertieren Sie der Longip in der Shortip und umgekehrt

Konvertieren Sie der Longip in der Shortip und umgekehrt

Konvertieren Sie der Longip in der Shortip und umgekehrt : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

IP-Konvertierung (lang/kurz)
Beispiel:
34753784563 statt 193.234.22.12

von verschiedenen Anwendungen wie IRC (DCC-Algorithmus) verwendet

Konvertiert ein LongIP in einer ShortIP

Funktion ShortIP (const s: String): string;
Var Ip: int64;
a, b, C, d: Byte;
BEGIN
IP: = StrToInt64(s);
ein: = (IP und $FF000000) SHR 24;
b: = (IP und $00FF0000) SHR 16;
c: = (IP und $0000FF00) SHR 8;
d: = (IP und $000000FF);
Ergebnis: = Format ('% d. % d. % d. %d', [a, b, C, d]);
Ende;

Ein ShortIP in ein LongIP umwandeln

Funktion LongIP(IP: String): String;
Var IPaddr: Array [1..4] des Wortes;
Temp: String;
Res: DWord;
Ich: Ganzzahl;

BEGIN
Temp: = IP + '.';
For I: = 1 bis 4 zu tun
BEGIN
Versuchen Sie
IPaddr [i]: = strtoint(copy(Temp,1,pos('.',Temp) - 1));
Delete(Temp,1,POS('.',Temp));

Wenn (IPaddr [i] > 255) dann
Erhöhen der Exception.Create (');
Außer
Überprüfen Sie die IP-Adresse
Ergebnis: = 'Ungültige IP-Adresse.';
Ausfahrt;
Ende;
Ende;

Res: = (Ipaddr [1] SHL 24) + Ipaddr [1] +
(Ipaddr [2] SHL 16) + Ipaddr [2] +
(Ipaddr [3] SHL 8) + Ipaddr [3] +
(ipaddr[4]);
Ergebnis: = Format('%u',[res]);
Ende;