Convertir longip a shortip y viceversa

Convertir longip a shortip y viceversa

Convertir longip a shortip y viceversa : Multi-millones de consejos para hacer su vida mas facil.

la conversion de IP (long/short)
Ejemplo:
34753784563 en lugar de 193.234.22.12

utilizados por diferentes aplicaciones como el IRC (DCC algoritmo)

Convierte una LongIP a un ShortIP

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

Convertir un ShortIP a un LongIP

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

Begin
Temp := IP '.'
For I:=1 To 4 Do
Begin
Prueba
IPaddr[i] := strtoint(copia(Temp,1,pos('.',Temp) - 1))
Eliminar(temp,1,pos('.',Temp))

Si (IPaddr[i] > 255), a Continuacion,
aumentar la Excepcion.Crear(')
Excepto
// Comprobar la direccion IP
resultado := 'direccion IP no valida.'
Salir
Fin
Fin

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