Skip to content

Instantly share code, notes, and snippets.

View s1037989's full-sized avatar

Stefan Adams s1037989

14 followers · 21 following
View GitHub Profile
@s1037989
s1037989 / Util.pm
Last active June 8, 2026 22:12
Mojo::Log singleton in a Util package
# $ MOJO_LOG_LEVEL=info perl -Ilib -Mojo -MUtil=sq -E 'BEGIN { $Util::log = app->log; } a("/:n" => sub { $_->render(text => sq) })->start' get /5
# 36
# $ MOJO_LOG_LEVEL=trace perl -Ilib -Mojo -MUtil=sq -E 'BEGIN { $Util::log = app->log; } a("/:n" => sub { $_->render(text => sq) })->start' get /5
# [2026-06-08 17:10:33.96373] [87592] [trace] 6^2 = 36
# 36
package Util;
use Mojo::Base -strict, -signatures;
use Exporter qw(import);
@s1037989
s1037989 / gist:81908c0922daf08a81ea04a6d765d681
Created June 4, 2026 02:39
#!/usr/bin/env perl
use v5.40;
use strict;
use warnings;
use Fcntl qw(SEEK_CUR);
use IO::Uncompress::Gunzip qw(gunzip $GunzipError);
use IO::Uncompress::Bunzip2 qw(bunzip2 $Bunzip2Error);
use IO::Uncompress::UnXz qw(unxz $UnXzError);
use Time::Piece qw(localtime);
@s1037989
s1037989 / bytecut.c
Created May 8, 2026 17:06
Efficiently read large binary chunks from stdin and print only the bytes in the ranges specified by the -b argument, similar to how cut works
// bytecut.c
// cc -O2 -Wall -Wextra -o bytecut bytecut.c
// $ head -c1024 /dev/urandom | bytecut -b 1-4,9- | wc -c
// 1020
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
@s1037989
s1037989 / gist:86eaf9061211c0a53940b0d1e00c4e66
Created May 7, 2026 09:01
perl pack / unpack
Perl’s pack and unpack templates define how binary data is converted to and from Perl scalars. Below are practical examples for the most commonly used templates.
Basic Integer Templates
Signed / Unsigned 8-bit
c — signed char
my $bin = pack('c', -5);
my $num = unpack('c', $bin);
print "$num\n"; # -5
@s1037989
s1037989 / bindiff.pl
Last active May 5, 2026 02:32
A minimal Perl program that compares two binary files byte-for-byte, groups differing bytes into ranges, and prints each differing range in hexdump-like form for both files.
#!/usr/bin/env perl
# chmod +x bindiff.pl
# ./bindiff.pl old.bin new.bin
# Difference range: 0x00000010 - 0x0000001f
# old.bin:
# 00000010 41 42 43 00 ff 10 20 7e |ABC... ~|
# new.bin:
# 00000010 41 42 44 00 fe 10 21 7e |ABD...!~|
@s1037989
s1037989 / gist:f86df81c6d2cfb229e9907c2cfd7b9d3
Last active April 13, 2026 01:51
package OFP::Asset;
use Mojo::Base -strict, -signatures;
use Mojo::Collection qw(c);
use Mojo::File;
has [qw(fat oat)];
has [qw(core sup partner sil1 sil2 sil3)];
has warnings => sub { Mojo::Collection->new };
@s1037989
s1037989 / Makefile
Created February 5, 2026 02:36
DRM C app
CC ?= cc
CFLAGS ?= -O2 -Wall -Wextra
# Change if you want a stricter install path
LICENSE_PATH ?= /tmp/demo_license.txt
CFLAGS += -DLICENSE_PATH=\"$(LICENSE_PATH)\"
SECRET ?= DEMO-ONLY-SECRET-CHANGE-ME-KEEP-PRIVATE
EXPIRES ?= 2030-12-31
BIND_TYPE ?= hostname
BIND_VALUE ?= $$(hostname)
@s1037989
s1037989 / repo-si.pl
Last active November 12, 2025 10:46
repository software inventory generator
#!/usr/bin/env perl
use Mojo::Base -strict, -signatures;
use Mojo::File qw(path);
use Mojo::Collection qw(c);
use Mojo::ByteStream qw(b);
use Mojo::Util qw(getopt trim decamelize);
use constant DEFAULT_THRESHOLD => 0.60;
# ---- CLI -------------------------------------------------------------
@s1037989
s1037989 / nessus-si.ps1
Last active November 12, 2025 10:46
windows software inventory generator
<#
.SYNOPSIS
Collect extensive Windows host inventory & security-relevant configuration.
.DESCRIPTION
Produces JSON + HTML report containing:
- system / OS info
- installed apps (registry, winget/choco/Get-Package)
- installed updates/hotfixes
- services, processes, listening ports
- firewall rules
@s1037989
s1037989 / gist:233aac66589be102bb3351ce7a4987f0
Created November 6, 2025 01:11
bash random number generator
# Source - https://stackoverflow.com/questions/1194882/how-to-generate-random-number-in-bash
# Posted by s1037989
# Retrieved 2025-11-05, License - CC BY-SA 4.0
rand() {
perl -E '$ARGV[0]||=""; $ARGV[0]=int($ARGV[0])||length($ARGV[0]); say join "", int(rand(9)+1)*($ARGV[0]?1:0), map { int(rand(10)) } (0..($ARGV[0]||0)-2)' $1
}