Convertir longip à shortip et vice versa


IP de conversion (long/court)
Exemple:
34753784563 au lieu de 193.234.22.12

utilisé par différentes applications comme l'IRC (DCC algorithme)

Convertit une LongIP à un ShortIP

la Fonction shortIP(const s: string): string
Var Ip : int64
a, b, c, d : Byte
Begin
IP := StrToInt64(s)
a := (IP ET $FF000000) SHR 24
b := (IP ET $00FF0000) SHR 16
c := (IP ET $0000FF00) SHR 8
d := (IP ET $000000FF)
Result := Format ('%d.%d.%d.%d', [a, b, c, d])
Fin

Convertir un ShortIP à un LongIP

la Fonction LongIP(IP : String) : String
Var IPaddr : array[1..4] de Mot
Temp : string
Res : DWord
I : integer

Begin
Temp := IP '.'
For I:=1 to 4 Do
Begin

IPaddr[i] := strtoint(copie(Temp,1,pos('.',Temp) - 1))
Supprimer(temp,1,pos('.',Temp))

Si (IPaddr[i] > 255)
raise Exception.Créer(')
Sauf
// Vérification de l'adresse IP
result := 'adresse IP non Valide.'
Sortie
Fin
Fin

Res := (ipaddr[1] SHL 24) ipaddr[1]
(ipaddr[2] SHL 16) ipaddr[2]
(ipaddr[3] SHL 8) ipaddr[3]
(ipaddr[4])
Result := Format ('%u', [res])
Fin









Convertir longip a shortip et vice versa


Convertir longip a shortip et vice versa : Plusieurs milliers de conseils pour vous faciliter la vie.


IP de conversion (long/court)
Exemple:
34753784563 au lieu de 193.234.22.12

utilise par differentes applications comme l'IRC (DCC algorithme)

Convertit une LongIP a un ShortIP

la Fonction shortIP(const s: string): string
Var Ip : int64
a, b, c, d : Byte
Begin
IP := StrToInt64(s)
a := (IP ET $FF000000) SHR 24
b := (IP ET $00FF0000) SHR 16
c := (IP ET $0000FF00) SHR 8
d := (IP ET $000000FF)
Result := Format ('%d.%d.%d.%d', [a, b, c, d])
Fin

Convertir un ShortIP a un LongIP

la Fonction LongIP(IP : String) : String
Var IPaddr : array[1..4] de Mot
Temp : string
Res : DWord
I : integer

Begin
Temp := IP '.'
For I:=1 to 4 Do
Begin

IPaddr[i] := strtoint(copie(Temp,1,pos('.',Temp) - 1))
Supprimer(temp,1,pos('.',Temp))

Si (IPaddr[i] > 255)
raise Exception.Creer(')
Sauf
// Verification de l'adresse IP
result := 'adresse IP non Valide.'
Sortie
Fin
Fin

Res := (ipaddr[1] SHL 24) ipaddr[1]
(ipaddr[2] SHL 16) ipaddr[2]
(ipaddr[3] SHL 8) ipaddr[3]
(ipaddr[4])
Result := Format ('%u', [res])
Fin


Convertir longip à shortip et vice versa

Convertir longip à shortip et vice versa : Plusieurs milliers de conseils pour vous faciliter la vie.
Recommander aux amis
  • gplus
  • pinterest

Messages récents

Commentaire

Laisser un commentaire

évaluation