� >ServerName
N� ========================================================================
+�    Name: ServerName (part of Netplex)
(A� Purpose: Try to find out the machine�s fully qualified name
2#�  Author: � David Thomas, 1997
<!� Version: 0.02 (10 Mar 1997)
FN� ========================================================================
P:�E%511:A%=E%+256:�0:A$="":��B$:�A$=""�B$<>"."A$=�2(B$)
Z&�A$<>""�B$=".":�A$=""���1(&46000)�
d�M%=�A$,"."):S%=�A$,".",M%+1):G%=�A$,".",S%+1):X%=��A$,M%-1):Z%=��A$,M%+1,S%-M%):U%=��A$,S%+1,G%-S%):Q%=��A$,G%+1):�1("CGI$ServerName",�4(Q%<<24�U%<<16�Z%<<8�X%)):�
no�Inet$EtherIPAddr,Inet$EcoIPAddr,Inet$SerialIPAddr,Inet$LocalAddr,Inet$LocalIP,Inet$Address,VTiIP$Address,.
x'ݤ3(P%)�A$:ș&4D941,1,P%�,P%,A$:=A$
���1(C$,D$)ș36,C$,D$,�D$:�
�;ݤ2(C$)�Z%:ș&20023,C$,E%,256,,3�,,Z%:�Z%=�=""�E%?Z%=13
�=$E%
�Dݤ1(D%)�C%:ș56,D%��&20000,E%,256�,,C%:E%?(C%-1)=13:=$E%<>"User"
�Lݤ4(B%)�F%,W%:�N%�!A%=B%:ș&66001,,A%,4,2�,F%;W%�ș&66000,,�0(B%)�,F%;W%
��F%=��W%�1�=�0(B%)
�=�3(!F%)
�O��0�C%:ș&41218�H%:ș56,&46001,A%,256�,,C%:A%?(C%-1)=13:N%=�$A%,4)="Addr":�
�Gݤ0(J%)=�(J%�255)+"."+�(J%>>8�255)+"."+�(J%>>16�255)+"."+�(J%>>>24)
�

00000000  0d 00 0a 11 f4 20 3e 53  65 72 76 65 72 4e 61 6d  |..... >ServerNam|
00000010  65 0d 00 14 4e f4 20 3d  3d 3d 3d 3d 3d 3d 3d 3d  |e...N. =========|
00000020  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000050  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 0d  |===============.|
00000060  00 1e 2b f4 20 20 20 20  4e 61 6d 65 3a 20 53 65  |..+.    Name: Se|
00000070  72 76 65 72 4e 61 6d 65  20 28 70 61 72 74 20 6f  |rverName (part o|
00000080  66 20 4e 65 74 70 6c 65  78 29 0d 00 28 41 f4 20  |f Netplex)..(A. |
00000090  50 75 72 70 6f 73 65 3a  20 54 72 79 20 74 6f 20  |Purpose: Try to |
000000a0  66 69 6e 64 20 6f 75 74  20 74 68 65 20 6d 61 63  |find out the mac|
000000b0  68 69 6e 65 91 73 20 66  75 6c 6c 79 20 71 75 61  |hine.s fully qua|
000000c0  6c 69 66 69 65 64 20 6e  61 6d 65 0d 00 32 23 f4  |lified name..2#.|
000000d0  20 20 41 75 74 68 6f 72  3a 20 a9 20 44 61 76 69  |  Author: . Davi|
000000e0  64 20 54 68 6f 6d 61 73  2c 20 31 39 39 37 0d 00  |d Thomas, 1997..|
000000f0  3c 21 f4 20 56 65 72 73  69 6f 6e 3a 20 30 2e 30  |<!. Version: 0.0|
00000100  32 20 28 31 30 20 4d 61  72 20 31 39 39 37 29 0d  |2 (10 Mar 1997).|
00000110  00 46 4e f4 20 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |.FN. ===========|
00000120  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000150  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 0d 00 50  |=============..P|
00000160  3a de 45 25 35 31 31 3a  41 25 3d 45 25 2b 32 35  |:.E%511:A%=E%+25|
00000170  36 3a f2 30 3a 41 24 3d  22 22 3a f5 f3 42 24 3a  |6:.0:A$="":..B$:|
00000180  e7 41 24 3d 22 22 80 42  24 3c 3e 22 2e 22 41 24  |.A$="".B$<>"."A$|
00000190  3d a4 32 28 42 24 29 0d  00 5a 26 fd 41 24 3c 3e  |=.2(B$)..Z&.A$<>|
000001a0  22 22 84 42 24 3d 22 2e  22 3a e7 41 24 3d 22 22  |"".B$=".":.A$=""|
000001b0  84 ac a4 31 28 26 34 36  30 30 30 29 e0 0d 00 64  |...1(&46000)...d|
000001c0  a7 4d 25 3d a7 41 24 2c  22 2e 22 29 3a 53 25 3d  |.M%=.A$,"."):S%=|
000001d0  a7 41 24 2c 22 2e 22 2c  4d 25 2b 31 29 3a 47 25  |.A$,".",M%+1):G%|
000001e0  3d a7 41 24 2c 22 2e 22  2c 53 25 2b 31 29 3a 58  |=.A$,".",S%+1):X|
000001f0  25 3d bb c0 41 24 2c 4d  25 2d 31 29 3a 5a 25 3d  |%=..A$,M%-1):Z%=|
00000200  bb c1 41 24 2c 4d 25 2b  31 2c 53 25 2d 4d 25 29  |..A$,M%+1,S%-M%)|
00000210  3a 55 25 3d bb c1 41 24  2c 53 25 2b 31 2c 47 25  |:U%=..A$,S%+1,G%|
00000220  2d 53 25 29 3a 51 25 3d  bb c1 41 24 2c 47 25 2b  |-S%):Q%=..A$,G%+|
00000230  31 29 3a f2 31 28 22 43  47 49 24 53 65 72 76 65  |1):.1("CGI$Serve|
00000240  72 4e 61 6d 65 22 2c a4  34 28 51 25 3c 3c 32 34  |rName",.4(Q%<<24|
00000250  84 55 25 3c 3c 31 36 84  5a 25 3c 3c 38 84 58 25  |.U%<<16.Z%<<8.X%|
00000260  29 29 3a e0 0d 00 6e 6f  dc 49 6e 65 74 24 45 74  |)):...no.Inet$Et|
00000270  68 65 72 49 50 41 64 64  72 2c 49 6e 65 74 24 45  |herIPAddr,Inet$E|
00000280  63 6f 49 50 41 64 64 72  2c 49 6e 65 74 24 53 65  |coIPAddr,Inet$Se|
00000290  72 69 61 6c 49 50 41 64  64 72 2c 49 6e 65 74 24  |rialIPAddr,Inet$|
000002a0  4c 6f 63 61 6c 41 64 64  72 2c 49 6e 65 74 24 4c  |LocalAddr,Inet$L|
000002b0  6f 63 61 6c 49 50 2c 49  6e 65 74 24 41 64 64 72  |ocalIP,Inet$Addr|
000002c0  65 73 73 2c 56 54 69 49  50 24 41 64 64 72 65 73  |ess,VTiIP$Addres|
000002d0  73 2c 2e 0d 00 78 27 dd  a4 33 28 50 25 29 ea 41  |s,...x'..3(P%).A|
000002e0  24 3a c8 99 26 34 44 39  34 31 2c 31 2c 50 25 b8  |$:..&4D941,1,P%.|
000002f0  2c 50 25 2c 41 24 3a 3d  41 24 0d 00 82 1e dd f2  |,P%,A$:=A$......|
00000300  31 28 43 24 2c 44 24 29  c8 99 33 36 2c 43 24 2c  |1(C$,D$)..36,C$,|
00000310  44 24 2c a9 44 24 3a e1  0d 00 8c 3b dd a4 32 28  |D$,.D$:....;..2(|
00000320  43 24 29 ea 5a 25 3a c8  99 26 32 30 30 32 33 2c  |C$).Z%:..&20023,|
00000330  43 24 2c 45 25 2c 32 35  36 2c 2c 33 b8 2c 2c 5a  |C$,E%,256,,3.,,Z|
00000340  25 3a e7 5a 25 3d a3 3d  22 22 8b 45 25 3f 5a 25  |%:.Z%=.="".E%?Z%|
00000350  3d 31 33 0d 00 96 08 3d  24 45 25 0d 00 a0 44 dd  |=13....=$E%...D.|
00000360  a4 31 28 44 25 29 ea 43  25 3a c8 99 35 36 2c 44  |.1(D%).C%:..56,D|
00000370  25 80 ac 26 32 30 30 30  30 2c 45 25 2c 32 35 36  |%..&20000,E%,256|
00000380  b8 2c 2c 43 25 3a 45 25  3f 28 43 25 2d 31 29 3d  |.,,C%:E%?(C%-1)=|
00000390  31 33 3a 3d 24 45 25 3c  3e 22 55 73 65 72 22 0d  |13:=$E%<>"User".|
000003a0  00 aa 4c dd a4 34 28 42  25 29 ea 46 25 2c 57 25  |..L..4(B%).F%,W%|
000003b0  3a e7 4e 25 8c 21 41 25  3d 42 25 3a c8 99 26 36  |:.N%.!A%=B%:..&6|
000003c0  36 30 30 31 2c 2c 41 25  2c 34 2c 32 b8 2c 46 25  |6001,,A%,4,2.,F%|
000003d0  3b 57 25 8b c8 99 26 36  36 30 30 30 2c 2c a4 30  |;W%...&66000,,.0|
000003e0  28 42 25 29 b8 2c 46 25  3b 57 25 0d 00 b4 16 e7  |(B%).,F%;W%.....|
000003f0  46 25 3d a3 84 57 25 80  31 8c 3d a4 30 28 42 25  |F%=..W%.1.=.0(B%|
00000400  29 0d 00 be 0c 3d a4 33  28 21 46 25 29 0d 00 c8  |)....=.3(!F%)...|
00000410  4f dd f2 30 ea 43 25 3a  c8 99 26 34 31 32 31 38  |O..0.C%:..&41218|
00000420  b8 48 25 3a c8 99 35 36  2c 26 34 36 30 30 31 2c  |.H%:..56,&46001,|
00000430  41 25 2c 32 35 36 b8 2c  2c 43 25 3a 41 25 3f 28  |A%,256.,,C%:A%?(|
00000440  43 25 2d 31 29 3d 31 33  3a 4e 25 3d c2 24 41 25  |C%-1)=13:N%=.$A%|
00000450  2c 34 29 3d 22 41 64 64  72 22 3a e1 0d 00 d2 47  |,4)="Addr":....G|
00000460  dd a4 30 28 4a 25 29 3d  c3 28 4a 25 80 32 35 35  |..0(J%)=.(J%.255|
00000470  29 2b 22 2e 22 2b c3 28  4a 25 3e 3e 38 80 32 35  |)+"."+.(J%>>8.25|
00000480  35 29 2b 22 2e 22 2b c3  28 4a 25 3e 3e 31 36 80  |5)+"."+.(J%>>16.|
00000490  32 35 35 29 2b 22 2e 22  2b c3 28 4a 25 3e 3e 3e  |255)+"."+.(J%>>>|
000004a0  32 34 29 0d ff                                    |24)..|
000004a5