Script Library: 1238 scripts
 

tcpping.r

#! /usr/bin/rebol -qss Rebol [ File: %tcpping.r Date: 06-July-2006 Title: "Rebol TCP Ping" Version: 1.0. Author: "François Jouen" Rights: {Copyright © EPHE 2006} Purpose: {Ping version using TCP} library: [ level: 'beginner platform: 'all type: 'tool domain: [shell tcp] tested-under: all plateforms support: none license: 'BSD see-also: none ] ] ;script security control secure [ net allow shell allow ] ; include our binary image into script img: load 64#{ /9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQH/2wBDAQEB AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEB AQEBAQEBAQEBAQEBAQH/wAARCABWAGQDASIAAhEBAxEB/8QAHQAAAgIDAQEBAAAA AAAAAAAAAAkHCAUGCgMEAv/EAEMQAAEEAwAABQIBBwgGCwAAAAQCAwUGAQcIAAkS ExQRFRYXGFRXlrXUGSM2OHZ3ldEKGjRHh8YhIiQlKESSk5TV1v/EAB0BAAEDBQEA AAAAAAAAAAAAAAkABwgCAwQFBgr/xAA4EQACAwEAAQQBAwICBQ0AAAACAwEEBQYH AAgREhMUFSEJIhcjFjE1N1ZBUWFidXaSlLG0tdTV/9oADAMBAAIRAxEAPwDkd5g5 g1dtTVzNutzM8/Lvz0uDnIMvkEZsYHIzbDbbDY2c/X65W4tbi3FqW4rGFYbwhCLD /mM6H/QrT+0bv8N43Ty99dXi2c9DykBWZQ2GYuNlEJnlspBropaFBOZFMsMgsSFE Izh4dKWST2nFulBsISp4sZt20UwPWKx8ddu2zoeqMEOIbS7Nb51Dh/CckCsPPIiI 65SE8W2JgtggrEfEmPNCq9/2lIUj1Si5fovbdncvhJ67qfFNLo4oIDSoa3Uc8jc/ XyEsNDsxuiOhNyQ+DmvFaXyP90L+PUA+3H3HXu66wORo+V7WEG/oLzG4uV0bsgKY 2WLR+mtVqpUhrRC5ADFsK+RKPt8wXqlP5jOh/wBCtP7Ru/w3g/MZ0P8AoVp/aN3+ G8W8Et2jpAgoOF6Aol1kRHVsOQ+rqjuzakw6+hk4hLQ49F1TMhLQ+zGH5GOekWIt z4+HVHtiOoKzLMLQoS3x5MtUJ214j69eLHQ75+UTWVi1TKUyXrNXo9wMzIwFvJYn U4Ihb5FKEZko+HdeeYLdTjMW0uUTuMTrfbP0fSY3J4lbP0Nrobzs7GBXGdcOZfu1 865rNQrfbhLwBkc/PuWRNumtTIQS1mTZBZc50NH3Pcny+v2XSanW4vP4NVdzXtX+ rzk26NdtynnqJuPOvOzJtuXqldaV55uNjo+q5gWSK6vzGdD/AKFaf2jd/hvGbD8v TVUgO2YBU9iHCPev2igzpQkd323FNOe2+zHraX6HULbX6VZ9LiFIV9FJzjDKoeQp NQiGpoWBakWGHfbBnZ1hP3e2TUe6Xj11mNey/iBiASHBCSJ9WUuDtttRT0efM4QQ z62bZFlYq6C1lfbZS4EvERUcOlnDtfqY6MjNkJeUyLIpkpoj1OjSbnyxCA0OlRX2 t9CENvkPiTxuISTuZxpKF/kkE0oL6jPxAzLDMRn7lMCMDE/aSgxmVf3zHdvuB8zW LK6+X0fTCplyKYW9ToLaPysGJJ4Lp15c8ZrqA7Dyca5QCjrOWF8pqguIzy3ddgkO CvUvYi3WvR6lByZsgPn1oS4n2zAAyRHvoleML9p9ftuYU056XULQnVnuE9GjPOjk RtuYIYdcZfYesBDTzLzS8odadaWKlbbra0qQ42tKVIWnKVYxnGceHAWS0nRWxgq+ iSdBDslWZAFey1gtmMnyT5dmKlWwlMu4fdyRhkJ1j1jDkJeZdOdyyC16NbTahLqD JwNorUQXb687JLXB5US0uXZAy44aFW5QJ006Pl23Q2PfGHWemUZEy23nIhZD8Peb 4g8awRgvmcgWCZhENpDIkQRBfT7LL7QUgUEP+XMsmCEBI4kfWroe47zUaK1u50nQ PpuqU7bWZ/Q3VPUiyTEzZivcP8JpXZSaXRNwIqCan23KrtFpKf8AzGdD/oVp/aN3 +G8H5jOh/wBCtP7Ru/w3hhZ9IBkRHp2kSTsxBi5ATJhFoymxQaiWvU+6cK2wwOWC xlOVKOCVlnGcEoRh4aOLkPGs2AjUcPNWyGb2NcB2KTf7prKw2qf573g3QmLnRbK3 U5qJGvFGp+xK68puUdYdW++aIOHHmR78i6ISa0F4aTvLHgLxpo5GT2ORSz7+9S0t HKTQ5HpuhizQyH0K2hbNvOY+smomu/TorkrrK0sJ/wAKg/xu/G/3j3Y9wflKhraP EdH1OtXwbNKlsjY6qjj2c65oVrNupVdU2tXPsm51elYYI11uGRAZ+0w9P5aNfmM6 H/QrT+0bv8N4PzGdD/oVp/aN3+G8W1FuOj5Zppyu9Nc5zS3iHB0jlbOAoryfbEcM U+6raQlEHZHyhLbLbjr6MulvtiNJWQ2S2xJ0brG2z2HfwsmtXV1n2/WLQb5RL8fn 3Muen246m2ScOe+iWSHF+yO57bIhj7npZDKWzpqvYe061ARPVeJqLjGTGntb2Rga P0GRginM3LefoCISQiclWiAIoAvgp+PW6vUPdhnSX6nN8xksPj5sVc/otCp/MwIz FygizVKDmY+ki6YZ8xISUF8zzCX6BDqt7utYj3CXgK3bbHAgvGracMdDh5gyPGcL cYZHZcJcZHQp9bI7DSncrU2y0jOEJPG1b4iZSD3dt+Jm42Qh5UHZl5ZNjJQMiPkA 3vxLJL9ooIttkkdz0KSr0PNoV6VJV9PpnGcniIhsQ0zbWYptZhkyu1JixLEHMkpi mBJAxRrkSWYkQkMwQzMTE+iI4xWTx8o7v5f1h5tErf5hkHfqSqql/wCYCgSFv5ZP 8gkMSJ/MTETHx66c/JYoXk7M8XSuyu83eWcbgVvO6R4TW6bzHLtr9SrdZpcnDMx2 uzbCokqFQSfK5W4FV3RpgkpsA1Z7zgQ2XM1TtnyS9bpIRzDzxWtpTMGpxttjlPgS 2WU446OwItv4N2jtRQVZnD3/ALTgjEui4ltuPQBDx8m2UE1lShfI81nrea5DIt0z r+kS1sb3DfAm7PJ1SBPsSA0QlTaSIiaKAdkkipaddbSOknDWG3XEYRhK1Yy8/wAD e8we/tnjvteq4TG8aBp3uY2LeO3Z0+mKvVe2of0Jq8upjMdK2fwUfbTUQ/HxIl8/ IyR5HwgvoMbN3LnQnXVo1hsjTrZwmxYnMwMFabbgZmPifsMVZif4+D9TpyF5jFB6 W3nbOb6zzXv7QZtN1iTtiKf3LS6lQgbFVfxnH1B4iBr9etNiIHyVYJMwhOC0iuKG HyUYyMUakZHPzv6JOsfQ3XFbEfdaRK+YrvBT6cKxlltImjeY1unuDrfHaIdjwXD3 mkZcS8tK3hx1YWRlK2J6T3XqfUPmRzN/2Tfq5UaWRw0urD2SSOSqMJshW/42SYgh nxEk5IlVxoZcjkFlKyEADPmONpGaW6laGx+kKYPsDsCzU14myJ2d2Jedq67I+1Fj AztDsGttL1oScIHlX4KQjMuH1CyDYjJRuPmGnBRyHgPiEsuOTi9svkoe5b7d/JfW jn87FzoNLc6JVc3RSx6scl3+WphzYYyylFl5U6y2PKYK1cSsJImLAmf87+23zt1P jXy5zHiLxF5G8g6NjOxsjn2ZnJbFurdvO6zlWw89BWfOYC6agtaToY9YDTovM2gC mPCE7LIfiewDQ9eZ9EKKS3CVOLbc9odLTzzY6SE5KQKpJM0X9DzCZD6mZcfQ2aU7 gZC0mxCh37bJig4JbjoX41ejxiXXHfhjwYzUathjLj5CsDZLHJIazlz3HffUQ+lJ Dz2PGcR1FJiOsvyMLEvAIQrJiEfIiXcLVlxtlLJr8lKMoRheR1qW6JnLmVODJbRn 0E5+aO6YupXxVOVWAJ+R6fQzHKlnff8Ae+uB/ikKdV7vu+ppSfoKr1+rLaPr9Uue CnO84+Iphoh2hW2G6JKM/nOg0IGVDMCsZo59hYrn8kQH+Z+OfoEDEQMTI783+ll/ UVWefYf7Y1c9RqZZAgux80eIeQJsXnKZYtvjqetybT7a4pSy1E0pthNmw1pGb2AO x75/pfG/2bD/AHpMeNSvTv0nImygkjMk2GEhrMvMQn4rUdMKSsWQQO6yQ65gluWj iSXnsuJKaMddbfyollx9zb/y+3z9Wz3/ALUz/BeMHMdMW4ABBCadEgOMkGDlkzBM myA482+xhAyFYZYUEQEyQy2Yhx0xT77zC8NAodS1mqx5z8UyT2WOi1qYvMGAVjjO vWMGuJmfhk5EDP1WRkUn9BEYk5n+2PnFxf6V/v8AkpxKGT4b8edFYz69jPYnI9zf tztPsJuQDIGaceRDd9m2K1cErrRasNbEKFcrYwoyxU2dHTdX2hWVNC5nXmRp4Vlv HwWbCI4ymXjjRWMqQ0DMoQ1KhslmuSpWcvyvrGIQO827bypthR2pOS/MZ2tLgmyk TrLvDvnYUpGRuWEyMjHUtyOshoICinGhkmljRro4uSHWmMPuN5dcQ36lYSDGdRlt gkllwwz8khYREPiOEUsBxDZDDpOClEz7TjuSRMvYDyy4O20Q2zl5x5khahb2cm9N 6Mo3EXmX6ftd+ChNg7r2h3TtHWEGZFzyU2ytbnqjjFEGCkUxSoxmwnnPIjn68aYN JtE+txlggJtwxEQvcZ2fKdf5B8eavMbyNjPo8b3dTRsAl9ZNHQv7fCNrIfFoFSp9 9efcelRREmFZsh9oWX1l77XfZB7wPDPJ+Sq/lL2493yxt2+N/bbmfVV2C7+Rm53W nJld5X9zR+jxg0q1SbrmwszfP2/GU/LLkw/myccbxqEFbd2cL9SRNQvcGNZRLTfe Ro/dFHmIGTig01yUcmNcE7MKdFsUFMCCRKpaDBU60+QF6cAYaJKj7N6/0a3e8kpM pD8NVeayerBjNz1Unl+Z+dknOFvzg9vqGppDCinZj5Thky3hs8fKZFbxAkakgTWu KTQn+RuYo5ksV6Qgue9MQs2C0Q04ZDTMTr2BipWJlRULy/HycZKR58bIAFoZKDPC LDJabIGebRusLZtU72O2DVDq9A2tWs7cTUJuKtcHFy6MFsJGcdPYj5QYrDcc/NR0 hHCvuNo+YZWnymcKZbFdyGuP6gHW5Gz2NHb8Oq1szj9a1S1NPG3buUWbVHZLIovv 17+Tqqhtt5JQCitVYa9kyuYESGJ1B7Z7N3OsaFTS2KMZlSjZ2wv40WIy5vHXrKXb mH551iO68ULFq5ZJFAfSZEi9cL/dFY1NS+yenKlojFfxpqubs2FD60TVJ5VorSKc DYjmIVuDsK5KYVLxjYiENiG5lDsOspT9CHMYxnwePXu2Fhq52T0vB16JjIKEi9xX YSNh4YAWLi44VuXf9AwMeC0wIIOj659DI7Lbafrn6Jx9fB4JJzmyvouewegUg6yt 3Gy9ldZhixldenRRdBBsGBEzUL4WRiIiRDJRERPx6i5drFSuW6ZFBlUsvrEYxMCZ IaapIYn+YgpCZiJ/mIn+fXTf5FP9SEv++q/fuin+LydIc1zu+pKvKB2XI0yECjSo +dh/YlpmMk8pMakYwtMCiwxUMstkpGUkEuMtFuIaBW6SSmOBHHo35FP9SEv++q/f uin+Gz33YdD1bWJC67JuVZodRivaxIWO2zUfAQwzhDmGRR1nyRA46izSFIGBDbWs o4pxoURl4h1ttQEfMHT9Vx/un8kbvEuNPTo7zcr5RKzKey0rN0yqgCMy/Tv1rVmS bBVBKo5i7QpciBsKUYkN8JdZscRzXI9LhXk5ujn4xEq7YrUraa4tU5bHGnRRYpzK gKWrY5RQlgA4ZEliUU25V4W0dYu6JHQuxBbBsChBcok7jwHIzZlfIXcUbmhqc1n5 tRcgpFEUmvOPjLByctSySiDMEIcSGkOlW/KfSqfsLqmnV+pxAEbUe6dqVCoKSwh9 6uUqs6o0hYo6qAEFoIO+0j2C9TMsGy4blITq0MsoyOyE2E3jy1p+b6H7UufVlD1r tGO5ra5Qa1BUNy36mma/rO1bRJbXhL4xIauirU9G3O01NuGZkBiLVmrAQ7ExFmRq yMOrAUatveVoh61vDtj7rU420fN8wfdnx/uGRcfB+NpHmX3fZ+TGyH+0++37no9n /Z0er3P+r6Dhe0hPU2I9ss+R03kddo9Bo/6UBv0fw6TGnx/kK3XTq0JQslsFaqDY qtrgddqkEaluRH0g171PcL5k6Xx35vcryj3m9nJzMz9szcrtNDNyjXPZciDZpIqa FLIBUx+SWEACuwkSV8tWcAVbNd4MRIyciIasV2qVK0zke3ltL7SCPtzoaUtNOqyw z9H5BJi85ZebeUP7TrKsO5cRHvizNTvlclPxL8PXsJE/bqlMyhXxlAZ+5BifG9+J I9qEG+gxnuJ93LnyGv5tPrGd/wCj06l+VGofqnrf/qi//wA34Nb+lqLrV1rtKUof y/QRQ+F/6wGfoAr+AiIAR+IgYn4j49eeKOg6S7t7N23zuhevOGgNhr9bJZbiBCw4 P1FptyTskxlh7hImNIJYUFMTMD6N8/0vjf7Nh/vSY8a3/uh/4kf8seJn2XcoKuzo gUpSIiykOxDBSDj1B4eaZWYeykRPyIk9ftNrYceT9Hkp9b6/o0nPqUvE/jyufgT7 1+T2E+B+Lftf2L1AfD+Z9n+X92+v2T2fk+z/ANj+nw/d9r/zPo/mvGY9SJtXCm0A kQMgglTpkImB+ZmYCRL4/wCrMzPz/Hrl8rR1Q57mFL5+y5KbdEkWRv5gBbITd9QB Z2RaqWfMxBOABH6/3THzHqK9URsdN7ArMTNR4UvFEkSKSIyUFYPj30uRJeXEvBlt ujOpcyyz68LbVhftNerGfbT9GE8vczaO2Zwt5l+07pQQJa/aU6e77zrKxtSM3FFV WM1TFEzVErQTERJgBOVOBJW4wJWSRnoZoJaBmRGkiAqFqpre+Vyau9fjANewkGWS U97UoGoDJAvshkkOe3hmEDd/n2mljL9JDf8ANvK9XrT9W1NI8uynWPYnBHmq6/p0 d94t16698yGnVWI+YBH/AHSx2eHRCQcd8+UKBjAfnSZwo3zJE0MAb3feMKHHQ46i AfurrVR8i+MQGEWAfxvkdz5/B8A1yNvxstBtBoR+RiFtaKmFBSsHMAJiDOJLH/T+ 8neS+coeVXYfT9pxDs+/4zihXyOsvU/wA5XkxrnV5xtEUJCy2Pq9USJNJME4CGQm VX1fmkIPlfUvU8Ftaco9skND0Hak20tCWmXrdcaXBTGYqpzcQVCSVaYPlZl2EiWC cT5bizQhnjs/V513LcKxu5G9q4usXX5yToViYko292OUeWNGGpfWQU1JiHSZLKJ2 cj7AKzklUeiVkBxy5IchIiZJwlM+8tba1GXrDT/FW94OY1X0HqvV2rKNbOeugauZ QrJZJSh1sSEYmalE2H0wG1KjMGVA6z1sqsH2JoqCZjp2SjY7KmUtseaaaYabYYbb ZZZbQ0yy0hLbTTTacIbbbbRjCG220YwlCE4wlKcYSnGMYxjx5yfJvn7yHy+R5O8V eReSs63Q9Drb2VS0+zy05v7RwzbTjx4ygp0c/T3DG423qY2rc020KBpoNpBeTJqX 6Uua9zuv0PiO5gbJ0+/1ujoRmWOi1TosDNyypVymr9sxNfQv69fTddvA3SvDOXaG tIod8GoOA/zBv673Uv8AfVeP3u94PB5g39d7qX++q8fvd7weDDeMf923j3/uPyf/ AMDn+g57v+3Nn/tXR/8Adu9P78kmn9ybc5fVr3l3VuuqzRx9x2t+7dS71nyCKLXH iA6RiXqVE1LUih75sO8iQBrM9Gnln1rXzMgNmAnp0Z8lLrb1n+LuFOKGapvrvjZs z150BJmtwlFsm867+O3JG6uhV0gys8rchUiJmatXzipatR9hjBKnTLhfoAwkkou/ KBIff8Kt8hjZnSifL+ntbadVrnnuhtdDXsy+9nb2lIQytVYibrOvmw6dpbUxJgTW zNjKaFS9JS+wbHRtfVFkwN1hnZMtk2rBXTruwCK1ube1R8uDVwXTHmTaA2BDVbr3 YHmBNXSN2zs/UhxsgJLG6G2SbZK/UNeUw2dbgTaxTa0PQdUZpjkRYahrO0BNw5BO Nz/ivx7zHS7vZ43K5dfrelv29HY6RyZubL33iIrK69+4T3Z9NkTAHRziq02CAS1L GD95yb3Tbujm0sa1pWSyc9K0Vc5ZQmoIq/kDalUANl0F9jF1n8rQkiFZgHwEbp3X ujunblBrdQiN76a8rdXQU3+GuetW7Zu+Ifr3eWQTYZEpESu0aMfb6VzdNySZuvMR QFFa2XaIaUskDD2m21uVk366hRVhrkTWh4vmwjT8xzZ0HXZyZtcxzvsInBd5uUnN QgJN3v8AUtwPy0lXuuZa0yMUK7+MqtOSd2Li4RqNbqMZEwmFO3n2GDoHUcx0rSmI DZvnUb5qW86VtuZ4r2XNIt24eMImWFNI2bcNX24ikWSe2FCtWqR1xU7ZX9Xwv2xe Va7Bno0BlqXnD9/23PHsa+6zH8wSxVjzFKR9Nf7novF2sqRQWe+uJEbTMGKYfmq9 VrDE2zWwOvalfahEvXyNkTZzLy2ZIEyIrc3L/eO+ou0sPqOf7XAs1EdFy/7l+1Bs Z4beCca1X9Fdm5ktbXYq3NWWIq7eLexujoV7F+hV2Ax9fcy9Vv8AseVye75bR4/e PUTk6bqdl7sTSbkaUOz2zYqgVlQNReofqIW6zj61TRyLLU1rZ0h0qOdfpK21wEXi 6uVk5JcdiXj7HW50VbCWD2GsxhqiRVtlsLcDLGNDZUrC2kutPD5ZeQpvLzK418Mk tfK+3qPBVTd2lmtjduafndf1rbgtItLcFXPMw0FRbZAwskxGW2rGvDM9SCuRKZOL BibAHBbPYINZgaZYZgWPFlz6gtRGkpmvvW6j2K5XyrR7+Y+xnwKYdmXoE8k56Ndq u0ahLhx1s1raWj2HBkRNwh4v7itOVwxMmyhx1E3PG/uK5bsTy+Z6xSuA7i5ZOtTz NO/FrneistGtCa/I9UValW0rbjJkJwNWnhdS803nU8K7mVZ1HDR8q+3XufGGhsdJ l07fc8LNGhJbnP58fueVNRunNqz1PPBZsXMlIofRUWsh+pgjP6eszYTcYFOPbfP9 L43+zYf70mPGt/7of+JH/LHiY9hw1bsN1iIYmLvs1ZjoZlEbGUwOOPWUK2VKv5wg R9t010lr2jXyMtIyy2I0l1WU4Q8rH4qVFVuSXE1Zy9rA7pe40dmbKvdkTb4up8xa cMlgwnyFb66IgUEwsxZ4NLscanWmqT5i3yMVBzAbsrGZiXspcXyh5f4fxe9yt7RO /wBFo1XPxuLwQXpdZrqgpX+oTnk6vWzcz8qjrFv9Bdx+bRdlNK3sVrFlC2M14X8U 955azOao8rz10cvMt1T2Ot1AjP5TKFK7DoB+q0pm3cZ91SvIykaG4+vLrdTLspqv kYl1xlqsEl7TskxA0ug0YWRLmr1dZFdepwR7oOQo+HcnXAzGn5w8qTD+BX48aRsE ohS24aHlDcsBETTrx/eFF2JUevNTb5hPLg0LdbOQi99FdDNYpGnO69hyT63BiQOG 5U8OQdLlouNKkJTe8o5qucloCXs9tiXoacE+Y3bfWOluctBdSaXoXUcTsDuXa1uo Vi3BXt0i6mrUf5aXHVNwzYZJVhrlPkLaPrsFisEUeRfsm2ZU2TtTzAcLNuysPb5E kRvMxewb+3+Q+D7GpesvOP1BZ9s2nf0n3NUIbV0fyJxPrqreqrX0ky3xddsdIsv5 OY6Ksl6sVUsUxVMqjGmY6FVY5+EYZEH13/XdD5X6LB6PqKOVgq5UtaOYw8IosW6q NhKK98eh6xlSnq7q7gVKlpmBVTk8qm7XoWLmXva2Fi9DXK94j8QYXh+ntRl62tu7 HTVMur0GheYdXHMcltmzRHI5oHvpU303aGghe3ebf3G1bNldWxj0tG9kneza+xtN bWho7lfzgebtc046zyeIagbQPbftXK2z7DNCkQQ8npndrnwbtz9tNY0iRFtV3Yrm r78GQfljXNwvgLq5jEJbM8vDsvmpwmzcU7k/OX1cD8413k7q2xJavwQSy5mafh9L 9TJEzKLMz64SnUqt71DmYCvQrJJsxfzHkDobiDUTG447WGLpybuGv+ZvyN0huDYd s7b3f23OSs7R9a6jgJpSbpSNYc7NOVJbMm5T5Gxl2JERSp+s2OQhoEOP1uDX3YeG ipN5G2REzusojeHlYbIk4/REvebbTKrwh2XLT1Ko2zZClIiFWojkXaFmKv1/1JGf 98sMxUDAx2wtIh21qSrhNF1vIt2A+NbbtfH/ABPkbJLD7nmcjpsyfySpOnVBrabG jAHYzrofS9mW5CPp+szrNW1A/Ii6ImY9Pdjb+zz1qLuLo2s6x/bBlXZ8LcIzMiuy g4JFpUTP2hVhTV/b+fp8xE+uEXtqTscx110bI3ClTWuLa/t26ptFBsL4BczT7CxM EDzNeNOinyYuSVFyLJIrMrGvux8oO2zIBLyMS14PG1eYnapO7929cW2apVm1xMT/ AEBs2RlqFcsRP4oqEm9aJDB9fm3IGTmYMk2NKS6Mo2GlpKJOQhBkccSG+y8s8dBk 5lPEyszGzlkrPyM+lmUVGw2munQrLqVlk1kkxhAhQCTDIjOYkimSmZ9a6zYZbsPt OmJdZc2w2YiBiWOMmHMDH8DEkUzER/ER/Een8eTxzBZdw+XXvS5dETtg3l5fNek9 pTdj4p1rr943dVk3Zr2Oo9ohr1rC61yap1tasDca42wJCt3FmHsDrKq9OwBcY+3I htLJsV96u5vjA4KxyemfJ5N5TkSK/Lim7AofmGafP5LgRVlhNBKkLazth6OsOqiG 5RuHTewrVXJCSQuYdsLEaW+sfyPaVfqvyobujn3Z81qbcbu2bYDL4PVIW/T20oiC DqzkTUtxaqLlAwJqFGQ6eNF2elSNG2dVMTEu5WLwALLzsZNO4hscrdo9Z823/p+v W3mLv3mqTbI1hEV3bJEdRd4Qo8hJzzQGrr39vhWtx0YxoSxl2LW5cLRdrxsObcYe 8U0mgmIlp3YerPqqWubXK7oo2vZnj2sf+G7YHM0xqzaXnPyk5Tax3RqF/STb8rY2 t2FS9Zp11nYWLVrejxTsIPKS0dY6s9HTgN4akQE/bMBpYcKxbB0+vmmBvPWG8d7c 83zUzvn0a7rAE09RtpxJE8PHV7f2iDczUBU3qLroLWVRduO27XFbTtVaXDC14KzH CNSr1rInlHom0prnQXmQbzrPJSOLNm2Cz0qa5C2OnWfN22dPSs6FY7mTvHX14RPx jH42kxC4WdQpyAxbqbaz6vca1NHvqIXGVt6IrxmqpeE42haz5dHAkXNSdzve84uj A6D2ZtsSZZYeMmtPUaXqkCzpqmT732aNG2lcolOyrZGqDi9fVKlx0TXLFYF6XrDD g1DlXdtE2rZAQu2fOia1k7rzcEpoW1ymstOP1MhvFZrl461kX3V0+p/ZKFX4OPCT mns3zYM3WoNyrarIXHhWKCWxd2S7h2lvTeBu069tu/F80bLrXS9z1xUAtf6Zo9rt BuuHtUafreQ3DQpwvCApUgFiduuwdmHOCsP3SWWeAIln0ldjC2mmg0rWEfsDj/kc 142dUJFhKA6p6zRNEstyFpxK2MyRteqqRZXWlzBm3LzMm7T2xFpawBhAxcskPPhf kYOogmsKcXGa7o0OjErUqOEI3BV+mSC8O5MIYcKZYVPSsiTIEOTxM1YJ6TlHHSnx pFpKEEsdV448a9L5j088+fGrn8ZkdBiaWt2uqJ/t2iWBtVdWxicbXglF0emx+cOb b1lOTzuA91gm39TYybfNHH3z9555DxHg6uHeTo9D1nQYevjLwMJJ2ZwK+5mFm/vP VW1KcrLrqq6TL1TKgW7Gl+mECrUKdyton8u6ISw2qH33TacOVI3G58l7NrFWgo4h DMvZZaTRIYzXodhTzLknIyke0ey3EjZdJkmffGaHf9amlWD5r29QwOJz+eCfxP0l 5eFxpodK2fG6bSBUOt+TzDSBH7rWrdVaPGQdi21WsSxKl2iOPjQNuwdCjZl4pveM XKCDFRZPH0dUuTbF3eKHMagWIARyNLFPkIxt+QIWdJxaY996SbmFimqFjzRGvTFf Ugwpk8Zbg7cbzdgrebkNsPTuy5vSe+wwAI47cOKu3P0Lc4EWHhQtf6UpqMMSl8bf SlyFC2MLEJ2FUXDnZSOKlB46NYHe73I+KOsX1+p5Y56rHU5Ghj42Z0PPZKG2OsyF YbdMk7eTn1ysN6mg1Oif6/IoJRvUZqQ3JqdI3ROjmRk9mHnvlcTkc3xB1NXQ516d K9p5PW30PXzL7ulTzl2cbYttQoMRwso1Rz9JrbGdYOy+NNmNVqKvXWTW6gTmrue7 fdOXcQvdvlHsaZjdT6O8uvlypKvdt2NP3g4H8otk2XuOHBsW0Yw2H2iuwW+0y9fx cLVBEyp8VLUitlxdklD4srbUjVbLaoHjqUr98uetuYIqv7D/ANH8h7LVZjTtAkNg PQNA3O/tfbBknihbheq0hsGUkdmwEnWsXiZt8kOBarKEG2uBc07nrd1ge21LyunC 3uLuzz0i3PYOm7S81b+Zew4lgUp3FziA4eVBhtnwZ4bRTLm6tYrr23KY+6Q1bEWi LhBos65Q9E5O8xNNt5/l0bG8uDr+yXmC2x0jWdDoqep9idPC1WLlhCbFVNzYppDP Rmk/xDLSNlCMb9+ZrlwjBLLsrX1csyxFlRep3amjVTdoWUXKlgfuizWaDkNGJkZk GLkgL6kJAURPyJiQlEEMxBIGLNRktgyBj8fIlH8/zETEx/ySJDMEJR8iQzBDMxMT Nf8AXKK1fOgbA/z0ZJ6Z8x3jrlMuVe8v+s2FnX3lz6a2HPNNVyyLlJjX9cAplok6 sFtQWYs8QBaVxVrtADYabMXA16SVCSauFjuqOro/WmyKbbYvzkOZeYDFx/W1U1/a jOItCXOXclLhUHIOpXG+RoN3sEeDtmPixJWe1hcIOWkCUzTCZ1qsBDR8p37m6+bs 0l0rXfODm9GaN5WD2bq2U1NK6b2fbKrtG7A67cmK7Wy+hNiS8vKB7UmrZDO0aDha wcNP2Gz39kyQr1cqs7Da8U5mZjfW1d+1KB1loWJufInHsJTIOs1iwsuPVrpzZNUi Rkw8CBS3MS0jI856/XXI0H2piYYJ6AmIiWCcBXo20xRBJGT6o9cEfc9Z2RTOxOk6 nuK+s7S2rXNwXSH2JsUaIGgh7pcQJd8efsI8SGyMOEzJSKH32m2xhsrbUl1Yw7ji 2UHjx7ep1c19130XS6hHfaK1Xds2+Ph435h5/wAMNEm64ln5kmUaeR9FuLz7hRT7 ufr9MrzjGMYPC9L1azjnzXtucZ6hd07Ttaa5t0Kq2zVtRKWZyzMyiCJsWLHIEXiL mBRHGWVRmHGV4Ybc+j2UL9eUYWqc9jeeJs7bVTOpGwubtJ2GuHvAmLFVK7HjDQZK LLZkIiahJyGtUdO12wQ0gOxIQthgJKNm4c9hk2MPFKabdSeDwvS9Q+H5wnTFilqc V0AgLqSE1WEKFqKq7wnbFPQdOICk5E4O2WEOOMjBtr7NCGIi46P2fs8az3SNTBiy cfKjTZR0kRrmzPNS2/uzZgWxNwa61pfAKglb+ptaSI88nWWtbC40oZy8pqb0uWHf rukX6JCkdj5tEHEEPGPw1cj0vDMBHg8Yt2lV0araV1UWKj/pFiuRGKrCwYDCr2QA hixUf9Pw3KbvvVvVTdTuJfUe5LKhMwn7KY1LIgoByGsRYSRDIw2vYSQPrWF/P3RZ Qxdiu0Qehq3LAx1mX8yTZc/JFzE5UIWYljnMOmyUnOTpxxTiUIaQsgol1x53KGm2 2ketefQ02htH0QhKcY7+UMu36vat/iMt/n4PB4cir5R72jWr0qXR2qlOohNWpUq1 6FetVrV1ipFeuhVQFIQhQApKVAK1rEQAREYiGif4K8UWXOs2ePq2LFhrHvsP0dpr nuacsa5zWaRMa1pyRsYZEZmREUzJTMn8oZdv1e1b/EZb/Pwfyhl2/V7Vv8Rlv8/B 4PF//FryN/xXo/8Ahqf/AFvVr/APxD/wTQ/87r//AKP/AEf+v/PPr6JzzDrNbali kXPVFOtECAR93p6zJ22R8/rS2tEoOBu2sbTCSMZYKTZQpBpox1UTIIhp1bTTNoh5 0ZlhhqX1ecFum06qq+tNyaw1lt2Wpfx3artqTJutV25BSwDKWYu4Q14qVljJavbA AbwphVzqz0BJyQmcsy6T3C5h+VPB4bqxEWtbV3HAEae48Leu9KwrBfugJAWhYq1h VULSsBIhd0YRF6+CaoXbFgalWEufj5NHAyaOHlLcjKzQJOfUdcuXRo1yL7/pKrL9 iy9FIDk2JpLaNVDGvYlKze4meED5xnTctbKxsHopqM6uvOvmY0XV0nuKUmWa1rRE WJkVudq2uaW/WaB+UY/1KVMbbmK9K7NkWWhBXLS2y0/guyf+sHdC/qM0z/8AKu// AN/4PB4XrY+kqbv2vM7029sbcVhjoyHmtkW2YtsjFw2CsRceRLFLIUIFk4gotTLC cpbwt99bjmUqXn0YVhCTweDwvS9f/9k= } ; list of the host ports to test liste: [7 9 13 15 16 17 19 21 25 80] ; makes tcp ping to the host ping: does [ i: 0 clear result/text debut: now/time/precise append result/text join "Starting at " [now/time/precise newline] show result np: to-integer length? liste for i 1 np 1 [ n: pick liste i bt/text: join "Ping " [ ipadr/text newline "Port: " n] show bt if error? try [ cnx: false close open to-url join "tcp://" [ipadr/text " :" n] cnx: true append result/text join ipadr/text [ ": " n " : " cnx newline]] [cnx: false append result/text join ipadr/text [ ": " n " : " cnx newline ]] show result ] fin: now/time/precise bt/text: "Ping " append result/text join "TCP Ping done in " fin - debut append result/text newline either found? find result/text "True" [append result/text join "Host " [ipadr/text " is alive"]] [append result/text join "Host " [ipadr/text " seems to be inactive"]] show [result bt] ] mainwin: layout [ origin 5x5 space 5x5 across at 10x10 label 150 "Network Host" left ipadr: field 150 to-string system/network/host-address at 325x10 bt: button "Ping" 100x86 img [ping] space 0x0 at 10x100 result: area 400x300 wrap sl: slider 16x300 [scroll-para result sl] at 325x400 button "Quit" [Quit] ] view center-face MainWin
halt ;; to terminate script if DO'ne from webpage