, ip omstilling (lang /kort), f.eks.:, 34753784563 i stedet for 193.234.22.12, anvendes af de forskellige ansøgninger om irc (dcc algoritme), konverterer et longip til en shortip, funktion shortip (denne: string): string;, var i undersøgelsesperioden, int64;           a, b, c, d: byte; begynder,          up: = strtoint64 (s),          a: = (ip - ff000000) shr 24,          b: = (ip - 00ff0000) shr 16,          c: = (ip - 0000ff00 shr 8) og,          d: = (undersøgelsesperioden og $mio ff),          resultat: = format (%.%.%.% d '[a, b, c, d]);,;, omdanne et shortip til en longip, funktion longip (undersøgelsesperioden: string): string., var ipaddr: system [1.- 4] af ord;,           temperatur: snor,           res: dword;,           jeg: heltal, begynder,          temperatur: = ip +.,,,          for jeg: = 1 til 4,          begynder,                  prøve,                          ipaddr [i]: = strtoint (kopi (temperatur, 1, producentorganisationer (., temperatur) - 1),                          slette (temperatur, 1, producentorganisationer (., temperatur),                          hvis (ipaddr [i] > 255),                                  gøre undtagelse. skabe ('),                  bortset fra,                         //denck up,                         resultat: = ugyldige ip - adresse. ",                         udpassage,                 ;,         ;,          res: = (ipaddr [1] sømhaj shb 24) + ipaddr [1] +,                 (ipaddr [2] sømhaj shb 16) + ipaddr [2] +,                 (ipaddr [3] sømhaj shb 8) + ipaddr [3] +,                 (ipaddr [4]),          resultat: = format (% e, [res]);,,,,