，IP转换（长/短），例如：，34753784563而不是193.234.22.12，通过不同的应用使用IRC（DCC算法），将longip到shortip，功能shortip（常量的字符串：字符串）；，VAR IP：长整型；，         A，B，C，D：字节；，开始，        IP：= strtoint64（S）；，        ：=（IP和ff000000美元），        SHR 24；B：=（IP和00ff0000美元），        SHR 16；C：=（IP和0000ff00 SHR 8美元）；，        D：=（IP和000000美元，        FF）；结果：=格式（“%d %d %d %d，[A，B，C，D ]）；最后，将shortip，；一longip，功能longip（IP：字符串：字符串）；，无功ipaddr：阵列[ 14。]字；，         温度：柱；，         RES：DWORD；，         我：整数；，开始，        温度：= IP + '。'；，，        我：= 1到4做的，        开始，                尝试，                        ipaddr [我]：= strtoint（复制（温度、1、POS（'。'，温度）- 1））；，                        删除（温度、1、POS（'。'，温度），                        ）；如果（ipaddr [我] >；255）然后，                                提高例外。创造（“”）；，                除了                       /车CK的IP，                       结果：=“无效的IP地址。'；，                       退出；最后，                ；，        端；，        RES：=（ipaddr [ 1 ]黄连24）+ ipaddr [ 1 ] +，               （ipaddr [ 2 ]黄连16）+ ipaddr [ 2 ] +，               （ipaddr [ 3 ]黄连8）+ ipaddr [ 3 ] +，               （ipaddr [ 4 ]）；，        结果：=格式（'%u'，[物]），结束；，，