IP konvertere (lang /kort) Eksempel: 34753784563 stedet for 193.234.22.12
brukes av ulike programmer som IRC (DCC algoritme)
Konverterer en LongIP til en ShortIP
Funksjon shortIP (konst s: string): string; Var Ip: int64; a, b, c, d: Byte; Begynn IP: = StrToInt64 (s); a: = (IP AND $ FF000000) SHR 24; b: = (IP AND $ 00FF0000) SHR 16; c: = (IP AND $ 0000FF00) SHR 8; d: = (IP AND $ 000000FF); Resultat: = Format ('...% D% d% d% d', [a, b, c, d]); Enden, Konverter en ShortIP til en LongIP
Funksjon LongIP (IP: String): String; Var IPaddr: array [1..4] i Word; Temp: string; Res: DWORD; Jeg: integer;
Begynn Temp: = IP +; '.' For jeg: = 1 til 4 Må begynne Prøv IPaddr [i]: = strtoint ('.' Eksemplar (Temp, 1, pos (, Temp) - 1)); Slett (temp, 1, pos (, Temp). '');
Hvis (IPaddr [i] > 255) Deretter heve Exception.Create (''); Unntatt //Kontroller IP-resultat: = 'Ugyldig IP-adresse.'; Exit; Ende; End;
Res: = (IPaddr [1] SHL 24) + IPaddr [1] + (IPaddr [2] SHL 16) + IPaddr [2] + (IPaddr [3] SHL 8) + IPaddr [3] + (IPaddr [4]); Resultat: = Format ('% u', [res]); Slutten;