Soldier of FORTRAN mainframed

Mainframe hacker extraordinaire

mainframed / topsecret_stig.txt

Last active August 27, 2024 23:52

	#!/bin/sh
	set -x
	/bin/tsocmd "TSS LIST(SDT) CERTMAP(ALL)" > 01_certmap.txt
	/bin/tsocmd "TSS LIST(ACIDS) DATA(ADMIN, BASIC)" > 02_acids_admin-basic.txt
	/bin/tsocmd "TSS LIST(ACIDS) DATA(BASIC)" > 03_acids_basic.txt
	/bin/tsocmd "TSS MODIFY STATUS" > 04_modify_status.txt
	/bin/tsocmd "TSS WHOHAS OPERCMDS(MVS)" > 05_opercmds_mvs.txt
	/bin/tsocmd "TSS WHOHAS DSN(SYS1.PARMLIB)" > 06_whohas_sys1.parmlib.txt
	/bin/tsocmd "TSS WHOHAS DSN(SYS1.LINKLIB)" > 07_whohas_sys1.linklib.txt
	/bin/tsocmd "TSS WHOHAS DSN(SYS1.SVCLIB)" > 08_whohas_sys1.svclib.txt

mainframed / TOPSEC.JCL

Last active August 29, 2024 18:04

	//NETSPI JOB (NETSPI),'NETSPI',CLASS=A,MSGCLASS=A,NOTIFY=&SYSUID
	//TSOTSS EXEC PGM=IKJEFT01
	//SYSTSPRT DD SYSOUT=*
	//SYSTSIN DD *
	TSS LIST(ACIDS) TYPE(SCA)
	TSS LIST(ACIDS) DATA(ADMIN)
	TSS WHOHAS FACILITY(APPC)
	TSS LIST(RESOURCES) TYPE(ACTION) MASK(NODSN)
	TSS LIST(RESOURCES) TYPE(ACTION) MASK(EXIT)
	TSS MODIFY(MSUSPEND)

mainframed / CATMAP3J.jcl

Created August 27, 2024 18:39

CATMAP3J testing

	//PHILCATJ JOB (JOB),'CATMAP3J',CLASS=A,MSGCLASS=A,NOTIFY=&SYSUID
	//*
	// EXPORT SYMLIST=*
	// SET LOADMOD=APFCHECK
	// SET LOADLIB=FOO.LOAD.LIB
	//*
	//ASM EXEC PGM=ASMA90,PARM='NODECK,XREF(SHORT)'
	//SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR
	//SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(50,10))
	//SYSUT2 DD UNIT=SYSDA,SPACE=(TRK,(50,10))

mainframed / LUEnum.rexx

Last active September 27, 2023 22:21

	/* REXX */
	parse arg len
	SAY "LISTUSER RACF User Enumeration Tool"
	SAY "VER 1"
	/* License: GPLv3 */

	ALPHANUM = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ123456789'
	DO I=1 to 36
	S1 = RIGHT(LEFT(ALPHANUM,I),1)
	DO J=1 to 36

mainframed / XMITRCV.MVSCE.JCL

Created February 1, 2023 05:13

NJE38 TRANSMIT & RECIEVE

mainframed / BSidesSD.jcl

Created October 25, 2022 14:56

BSidesSD NETSOL EBCDIC ART

mainframed / xdo2horizon.sh

Last active June 24, 2022 23:51

Powershell in Horizon

	#!/bin/bash
	#set -x
	WID=$(xdotool search --class "vmware"\|tail -1)
	echo "[+] Found WID of Horizon client $WID"
	xdotool windowactivate $WID
	POS=$(xdotool getwindowgeometry $WID \| awk -F "[, ]" 'NR==2{print $4 " " $5}')
	GEO=$(xdotool getwindowgeometry $WID \| awk -F "[x]" 'NR==3{print $1 " " $2}')
	GEO=${GEO:13}
	echo "[+] Horizon Client Geometry $GEO"
	echo "[+] Horizon Client Position $POS"

mainframed / conver_machine_carriage_to_md.py

Created August 15, 2021 19:02

Convert ANSI carriage control characters to markdown/text

	#!/usr/bin/env python3

	import sys

	# ANSI carriage control characters
	# Some MVS documents use 0/1/+/- as carriage control. This python will
	# convert them to markdown/text. The standard ANSI characters are:
	#
	# - `space` Single space the line and print.
	# - `0` Double space the line and print.

mainframed / docker usstable

Created August 15, 2021 15:04

Docker USS Table/HLASM

	[+] ANSi to EBCDiC Starting
	[+] Arguments:

	ANSi File: /home/phil/Downloads/docker.ans
	Type: z/OS USSTable (VTAM)
	Jobname: AWESOME
	Dataset: ANSI.ART
	Member: ANSIART
	Cursor: (IC)
	Location: 22,68

mainframed / x3270_nice_screenshots.sh

Created August 15, 2021 14:55

	#!/usr/bin/env bash

	# Download Xresources from https://github.com/mbadolato/iTerm2-Color-Schemes/tree/master/Xresources
	# Then use this USSTABLE: https://github.com/mainframed/usstable/blob/master/demo_screen.jcl

	pro=~/.x3270pro
	# Change delay time if you need to
	SLEEPY=1

	echo "[+] Xresources folder:" $1