mschmitt

#!/usr/bin/perl -w
use diagnostics;
use strict;
use POSIX qw(setsid);
use Crypt::Passwd::XS;
use Tk;

# Fork off.
if (1){
	fork() && exit;

mschmitt

#!/bin/sh

# Aktuelle IP
IP=`lynx --dump --source http://www.ipv4.dyn.f00.net/ip.php` 
IP6=2001:db8::1234:5678

KEY='dynupdate-meinkey:UGVuaXMhCg=='
HOST='meinhost.dyn.meinedomain.de'

nsupdate -y $KEY <<Ende

mschmitt

#!/usr/bin/perl -w
use strict;
use diagnostics;
#use File::Navigate; (bundled below)

my $nav = File::Navigate->new($ARGV[0]);

my @connects = @{$nav->find(qr/sshd\[\d+\]: Connection from .+ port \d/)};

foreach (@connects){

mschmitt

// Arduino Leonardo: Send key when a button is pressed.

void setup() {
  pinMode(12, INPUT_PULLUP);
  Keyboard.begin();
}

void loop() {
  //if the button is pressed
  if(digitalRead(12)==LOW){

mschmitt

#!/usr/bin/perl -w
use strict;
use Getopt::Std;

# Deliberately corrupt a JPEG file.
#
# ./j0rrupt0r.pl -i nice.jpg -o corrupt.jpg

# Initial fraction of the image that won't be considered
# for corruption (1/fraction)

mschmitt

#!/bin/bash

# /usr/local/bin/ssh-agent-bootstrap
#
# To run ssh-agent as an application user in the background
#
# Sourced from the user's ~/.bash_profile:
# . /usr/local/bin/ssh-agent-bootstrap
#
# In application startup, add:

mschmitt

// ==UserScript==
// @name        Kommentare auf Newsseiten ausblenden
// @namespace   https://gist.github.com/mschmitt/cebf0ee4e56a746cb856/raw/KommentareAufNewsseitenAusblenden.user.js
// @description Kommentare auf Newsseiten ausblenden
// @include     /^https?:\/\/(www\.|)spiegel\.de\/.*/
// @include     /^https?:\/\/(www\.|)tagesschau\.de\/.*/
// @include     /^https?:\/\/(www\.|)heise\.de\/.*/
// @version     1
// @grant       GM_addStyle
// ==/UserScript==

mschmitt

#!/usr/bin/perl -w
use strict;
use diagnostics;
use pQuery;
use LWP::Simple;
use JSON;
use Getopt::Std;

# A script to download a user's pics from twitpic before the shutdown 
# in September 2014. 

mschmitt

gzip -dcf /var/log/mail.info* |
perl -ne '/TLS connection established (to|from) (.+): (.+) with cipher/&&printf"%s %s %s\n",$1,$2,$3;' |
grep -v TLS

mschmitt

#!/bin/bash

umask 077
if [ "XX$1" == "XX" ]
then
	echo "No file specified."
	exit 1
fi
if [ ! -e $1 ]
then