Skip to content

Instantly share code, notes, and snippets.


Thomas Munk mmmunk

View GitHub Profile
View RunAsAdmin_OpretFlyt.cmd
@echo off
mkdir C:\Flyt
icacls C:\Flyt /grant:r Everyone:(CI)(OI)M
net share Flyt=C:\Flyt /GRANT:Everyone,CHANGE /USERS:2 /CACHE:None
mmmunk /
Created Sep 22, 2016
Demo of web-app using Python, Tornado and MySQL
import time
import tornado.ioloop
import tornado.web
import pymysql
# HTML templates
html_begin = '''<!DOCTYPE html>
<meta charset="UTF-8">
View freestanding_hello.c
// Freestanding with MinGW:
#include <windows.h>
int WINAPI mainCRTStartup(void)
char msg[] = "Hello, world!\n";
mmmunk / setup-static-png-jpeg-libraries.txt
Last active Nov 11, 2016
Guidelines for setting up libpng and libjpeg for embedding
View setup-static-png-jpeg-libraries.txt
For alle: Start med cd til roden af projekt-mappe
----- ZLIB -----
# wget -P ./download/
- Slet eksisterende zlib dir
- Udpak i zlib dir således at strukturen er: ./zlib/zlib.h
# cd zlib
mmmunk /
Created Dec 2, 2016
Script for validating a Linux password. Method SHA-512 (Type ID 6 - first shadow col) expected.
L1=`grep $1 /etc/shadow|cut -d ":" -f 2`
if [ $L1 ]; then
SALT=`echo $L1|cut -d "$" -f 3`
L2=`mkpasswd --salt=$SALT --method=sha-512 $2`
if [ "$L1" == "$L2" ]; then
exit 0
exit 1
mmmunk /
Created Jan 6, 2017
Generate some non-lorem-ipsum random text to use for tests
# fold -s -w 70
import sys
import random
cons = 'bcdfghjklmnpqrstvwxz'
consx = 'hjqvwx'
vows = 'aeiouy'
cvless = 'qxyz'
def generate_word(cap):
mmmunk / RunProcessAndCaptureOutput.pas
Last active May 14, 2018
Delphi procedure to run an external command line program and capture and display the output.
View RunProcessAndCaptureOutput.pas
procedure RunProcessAndCaptureOutput(const CmdLine: string; Memo: TMemo; HideLinesCount: Integer = 0);
SecAttr: TSecurityAttributes;
PipeR, PipeW: THandle;
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
Buffer: packed array[0..4096-1] of AnsiChar;
Count: Cardinal;
S, Leftover: AnsiString;
i, P: Cardinal;
View RefCountObject.pas
TRefCountObject = class(TObject)
ExtraReferencesCount: Integer; { Default 0 }
procedure Free;
function GetReference: TRefCountObject;
procedure TRefCountObject.Free;
View MySQL-Log.sql
-- Log incoming SQL on MySQL server:
set global log_output=FILE;
set global general_log_file="C:/Test/MySQL.log";
set global general_log=1;
-- Turn off:
set global general_log=0;
mmmunk / RubberExample.cs
Last active Feb 13, 2019
C# .NET apps without Visual Studio
View RubberExample.cs
using System;
using System.Drawing;
using System.Windows.Forms;
public class RubberExample : Form {
bool mouseDown = false;
Point mouseDownPoint = Point.Empty;
Point mousePoint = Point.Empty;