Skip to content

Instantly share code, notes, and snippets.

View mmmunk's full-sized avatar

Thomas Munk mmmunk

0 followers · 1 following
View GitHub Profile
@mmmunk
mmmunk / RunAsAdmin_OpretFlyt.cmd
Created September 21, 2016 13:26
Opret Flyt-mappe
@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
pause
@mmmunk
mmmunk / Python_Tornado_MySQL_Demo.py
Created September 22, 2016 05:57
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>
<html>
<head>
<meta charset="UTF-8">
@mmmunk
mmmunk / freestanding_hello.c
Created September 26, 2016 09:30
Freestanding MinGW
// Freestanding with MinGW:
// http://nullprogram.com/blog/2016/01/31/
// http://nullprogram.com/blog/2016/02/28/
// https://support.microsoft.com/da-dk/kb/99456
#include <windows.h>
int WINAPI mainCRTStartup(void)
{
char msg[] = "Hello, world!\n";
@mmmunk
mmmunk / setup-static-png-jpeg-libraries.txt
Last active November 11, 2016 08:22
Guidelines for setting up libpng and libjpeg for embedding
For alle: Start med cd til roden af projekt-mappe
----- ZLIB -----
# wget -P ./download/ http://zlib.net/zlib-1.2.8.tar.gz
- Slet eksisterende zlib dir
- Udpak i zlib dir således at strukturen er: ./zlib/zlib.h
# cd zlib
@mmmunk
mmmunk / valpwd.sh
Created December 2, 2016 10:26
Script for validating a Linux password. Method SHA-512 (Type ID 6 - first shadow col) expected.
#!/bin/bash
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
else
exit 1
@mmmunk
mmmunk / generate-text.py
Created January 6, 2017 13:18
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
mmmunk / RunProcessAndCaptureOutput.pas
Last active May 14, 2018 11:28
Delphi procedure to run an external command line program and capture and display the output.
procedure RunProcessAndCaptureOutput(const CmdLine: string; Memo: TMemo; HideLinesCount: Integer = 0);
var
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;
@mmmunk
mmmunk / RefCountObject.pas
Created September 21, 2018 07:41
type
TRefCountObject = class(TObject)
protected
ExtraReferencesCount: Integer; { Default 0 }
public
procedure Free;
function GetReference: TRefCountObject;
end;
procedure TRefCountObject.Free;
@mmmunk
mmmunk / RubberExample.cs
Last active February 13, 2019 13:46
C# .NET apps without Visual Studio
using System;
using System.Drawing;
using System.Windows.Forms;
public class RubberExample : Form {
bool mouseDown = false;
Point mouseDownPoint = Point.Empty;
Point mousePoint = Point.Empty;
@mmmunk
mmmunk / helper.c
Created February 19, 2019 10:49
Example of creating and using a Windows DLL with MinGW
// x86_64-w64-mingw32-gcc -Wall -shared -O2 -s -o helper.dll helper.c
#include <stdio.h>
#include <string.h>
__declspec(dllexport) __stdcall int proc_sql_modify(char *sql, int size) {
strcpy(sql, "NEW SQL HERE");
return 0;
}