home *** CD-ROM | disk | FTP | other *** search
/ Power Hacker 2003 / Power_Hacker_2003.iso / Exploit and vulnerability / hoobie / hostscan.cmd < prev    next >
Encoding:
Text File  |  2001-11-06  |  2.4 KB  |  129 lines
  1.  
  2. /* [ http://www.rootshell.com/ ] - Maybe has a use if you run OS/2? */
  3.  
  4.  
  5. /*  OS/2 Rexx-script ; scans hosts by IP-adresses  */
  6.  
  7.  
  8. crlf='0d0a'x
  9. The_End = 0 
  10.  
  11. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  12. call RxFuncAdd 'SockLoadFuncs','rxsock','SockLoadFuncs'
  13.  
  14. SIGNAL on HALT name CLEANUP
  15.  
  16. call SysLoadFuncs
  17. call SockLoadFuncs
  18.  
  19. call SysCls
  20. say ' '
  21. rc = SockVersion()
  22. say ''
  23. say '  SockVersion='rc
  24. rc = SockInit()
  25. say ' '
  26.  
  27. rc = Charout(,'  Enter First IP: ')
  28. pull First_IP .
  29. say ' '
  30. rc = Charout(,'  Enter Last IP : ')
  31. pull Last_IP .
  32. say ' '
  33. rc = Charout(,'  Enter filename: ')
  34. pull filename .
  35. if filename = '' then filename = 'hostscan.dmp'
  36.  
  37.  
  38. say ' '
  39. say ' '
  40. say '  scanning hostnames from 'First_IP 'to 'Last_IP '...'
  41. say ' '
  42. rc = lineout(filename, ' ')
  43. rc = lineout(filename, '**********************************************************************')
  44. rc = lineout(filename, 'scan results for 'First_IP 'until 'Last_IP '...')
  45. rc = lineout(filename, ' ')
  46.  
  47. parse value First_IP with D1 '.' C1 '.'B1 '.'A1 
  48. parse value Last_IP with D2 '.' C2 '.'B2 '.'A2 
  49.  
  50.  
  51. do forever
  52. First_IP = D1'.'C1'.'B1'.'A1
  53. say ''
  54. rc = charout(,First_IP' :')
  55. rc = lineout(filename, ' ')
  56. rc = charout(filename,First_IP' :')
  57. rc = SockGetHostByAddr(First_IP, 'host.!')
  58.     if (rc = 0) then do
  59.         c = charout(,' ** Unable to resolve name ** ')
  60.         c = charout(filename,' ** Unable to resolve name ** ')
  61.     end
  62.  
  63. if rc <> 0 then do
  64. rc = charout(,host.!name)
  65. rc = charout(filename,host.!name)
  66.         if host.!alias.0 > 1 then do bla = 1 to host.!alias.0
  67.            rc= charout(,' | 'host.!alias.bla)
  68.            rc= charout(filename,' | 'host.!alias.bla)
  69.         end /* do bla */
  70. end
  71. If The_End = 1 then leave
  72. call ipcounter
  73.  
  74. end /* do forever */
  75.  
  76.  
  77. SIGNAL ENDE
  78.  
  79. ipcounter:
  80. A1 = A1 + 1
  81.     if A1 = 256 then do
  82.        A1 = 0
  83.        B1 = B1 + 1
  84.     end /* do */
  85.  
  86.     if B1 = 256 then do
  87.        B1 = 0
  88.        C1 = C1 +1
  89.     end /* do */
  90.  
  91.     if C1 = 256 then do
  92.        C1 = 0
  93.        D1 = D1 +1
  94.     end /* do */
  95.  
  96. If D1 = D2 then do
  97.    If C1 = C2 then do
  98.       If B1 = B2 then do
  99.          If A1 = A2 then do
  100.             The_End = 1
  101.          end /* do */
  102.       nop
  103.       end /* do */
  104.    nop
  105.    end /* do */
  106. nop
  107. end /* do */
  108.        
  109. return 0
  110.  
  111. /* Begin Error-routines */
  112.  
  113. ENDE:
  114. rc = charout(filename)
  115. say ''
  116. say ''
  117. say ''
  118. say '  Results are in 'filename
  119. say ''
  120. say ''
  121.  
  122. exit 0
  123.  
  124. CLEANUP:
  125. say 'CLEANUP'
  126. rc = charout(filename)
  127. say "Done !"
  128. exit 0
  129.