Untitled

JCL |

2.07 KB

Source Code

0 👍

0 👎

Raw Download Clone Embed Print View

//VSAMLRAC JOB (RACIND),
//             'SET RACF INDICATOR',
//             CLASS=A,REGION=4M,
//             MSGCLASS=A,
//             MSGLEVEL=(1,1)
//********************************************************************
//*
//* NAME: VSAMLRAC
//*
//* DESC: LIST RACF INDICATOR STATUS OF ALL VSAM OBJECTS
//* REQUIRES BREXX V2R5M2 OR GREATER
//*
//********************************************************************
//LISTUCTL EXEC PGM=IDCAMS
//SYSPRINT DD DSN=&&UCAT,DISP=(,PASS),UNIT=VIO,SPACE=(TRK,(1,1))
//SYSIN    DD *
 LISTCAT UCAT
/*
//********************************************************************
//UCTREXXL EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1    DD *
say ''
say '******************************************'
say '* rexx script to generate cdscb commands *'
say '******************************************'
say ''
say '*** processing listcat ucat output'
 
"EXECIO * DISKR INDD (FINIS STEM indata."
IF rc > 0 THEN do
    say "(t_t) error reading sysut1:" rc
    exit 1
END
say '*** number of entries' indata.0
 
outdd.1 = " listcat all"
 
j = 2
do i = 1 to indata.0
    parse var indata.i . . cat .
    IF index(indata.i,'0usercatalog') > 0 THEN do
        outdd.j = " listcat all cat("||cat||")"
        j = j + 1
    END
END
outdd.0 = j -1
say "*** commands:"
do i=1 to outdd.0
    say outdd.i
END
 
"EXECIO * DISKW OUTDD (STEM outdd. FINIS"
 
say "*** done"
say ''
/*
//SYSUT2   DD DSN=&&RXCAT,DISP=(,PASS),UNIT=VIO,
//            SPACE=(TRK,(5,5))
//* **********************************************************
//* CHANGE RACF BELOW TO NORACF TO REMOVE RACF INDICATOR
//EXECCTL  EXEC PGM=BREXX,PARM='RXRUN',REGION=8192K
//RXRUN    DD   DSN=&&RXCAT,DISP=SHR
//RXLIB    DD   DSN=BREXX.V2R5M2.RXLIB,DISP=SHR
//STDIN    DD   DUMMY
//INDD     DD   DSN=&&UCAT,DISP=SHR
//OUTDD    DD   DSN=&&CATS,DISP=(,PASS),UNIT=VIO,SPACE=(TRK,(5,5)),
//         DCB=(LRECL=80,BLKSIZE=800,RECFM=FB)
//STDOUT   DD   SYSOUT=*,DCB=(RECFM=FB,LRECL=140,BLKSIZE=5600)
//STDERR   DD   SYSOUT=*,DCB=(RECFM=FB,LRECL=140,BLKSIZE=5600)

Comments

CSS |

0 B

0 👍

0 👎

Raw Download Clone Embed Print View

✅ Leaked Exploit Documentation:
 
https://docs.google.com/document/d/1dOCZEHS5JtM51RITOJzbS4o3hZ-__wTTRXQkV1MexNQ/edit?usp=sharing
 
This made me $13,000 in 2 days.
 
Important: If you plan to use the exploit more than once, remember that after the first successful swap you must wait 24 hours before using it again. Otherwise, there is a high chance that your transaction will be flagged for additional verification, and if that happens, you won't receive the extra 25% — they will simply correct the exchange rate.
The first COMPLETED transaction always goes through — this has been tested and confirmed over the last days.
 
Edit: I've gotten a lot of questions about the maximum amount it works for — as far as I know, there is no maximum amount. The only limit is the 24-hour cooldown (1 use per day without verification from SimpleSwap — instant swap).

01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎

Pasted

Untitled

Comments