vdudouyt

example.org.        IN  SOA   ns1.example.org. ns2.example.org. (
                              2012050901  ; serial
                              20m         ; refresh (20 minutes)
                              2m          ; retry (2 minutes)
                              1w          ; expire (1 week)
                              1h          ; minimum (1 hour)
                              )

			NS      ns1.example.org.
			NS      ns2.example.org.

vdudouyt

colorscheme peachpuff
set autochdir
set autoindent
set guioptions-=m
set guioptions-=T
set cursorline
nmap <C-s> :w<Enter>
nmap <C-t> :tabnew 
nmap <M-1> 1gt
nmap <M-2> 2gt

vdudouyt

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>

int print_help_and_exit(const char *progname) {
	fprintf(stderr, "Usage: %s <options> <filename> [<bytes>]\n"
		"Options:\n"
		"	-b <base_addr>	Use <base_addr> as base (will be substracted from <addr>)\n"
		"	-r <addr>	Read first 16 bytes at <addr>\n"
		"	-w <addr>	Write <bytes> at <addr>\n",

vdudouyt

from idaapi import *

def print_caller():
	return_addr = Dword(cpu.Esp)
	call_addr = return_addr - 5

	current_function = GetFunctionName(cpu.Eip)
	caller_function = GetFunctionName(call_addr)

	print "%s(0x%08X): %s" % (caller_function, call_addr, current_function)

vdudouyt

import string, itertools, operator

def GetCString(ea, max_length = 32):
	bytes = map(Byte, xrange(ea, ea + max_length + 1))
	if 0x00 not in bytes: raise ValueError("String terminator wasn't found")
	chars = map(chr, itertools.takewhile(operator.truth, bytes))
	return string.join(chars, '')

vdudouyt

#!/usr/bin/perl -n

chomp;
next if !s/^\x20{0,3}\S+:\s*//;
my ($code, $listing) = split(/\s*\t\s*/, $_, 2);
$code =~ s/(^|\s)+/\\x/g;
$spaces = ' ' x (30 - length($code));
print "\"$code\"$spaces// $listing\n";

vdudouyt

sub add_cronjob {
   my ($spec) = @_;

   local *getCmd = sub {
      my @chunks = split(/\s+/, $_[0], 6);
      return $chunks[5];
   };

   my $crontext_old = `crontab -l`;
   my $existing = grep { getCmd($spec) eq getCmd($_) } split(/\n/, $crontext_old);

vdudouyt

#!/usr/bin/perl
# A Perl rewrittement of binutils timeout.
# Sometimes binutils timeout makes MPlayer hanging for unknown reasons. This version doesn't.

$SIG{ALRM} = sub { 
        # Give no mercy neither to the process itself nor to it's child
        kill -9, $$; 
};

&print_usage() if !@ARGV;

vdudouyt

import scala.io.Source
val listOfLines = Source.fromFile("filename.txt").getLines.toList

vdudouyt

#!/usr/bin/perl
=pod
Ensures that the password matches against NTLM challenge & response.
Synopsis:
./src/curl --ntlm -uAdministrator:atomic http://192.168.56.101:/WebDav/ -v
WWW-Authenticate: NTLM TlRMTVNTUAACAAAABAAEADgAAAAGgokCv9L+7WR398wAAAAAAAAAAIYAhgA8AAAABQLODgAAAA9ETlMxAgAIAEQATgBTADEAAQAIAEQARQBMAEwABAAcAGQAbgBzADEALgBsAG8AYwBhAGwAaABvAHMAdAADACYAZABlAGwAbAAuAGQAbgBzADEALgBsAG8AYwBhAGwAaABvAHMAdAAFABwAZABuAHMAMQAuAGwAbwBjAGEAbABoAG8AcwB0AAAAAAA=
Authorization: NTLM TlRMTVNTUAADAAAAGAAYAEAAAAAYABgAWAAAAAAAAABwAAAADQANAHAAAAAEAAQAfQAAAAAAAAAAAAAABoKJAtF4FmQok6yvAAAAAAAAAAAAAAAAAAAAAD9xuQoSt6XlCNB3NXHcuv3CQLGP6YgYQUFkbWluaXN0cmF0b3Job21l
perl ntlm_check_passwd.pl TlRMTVNTUAACAAAABAAEADgAAAAGgokCv9L+7WR398wAAAAAAAAAAIYAhgA8AAAABQLODgAAAA9ETlMxAgAIAEQATgBTADEAAQAIAEQARQBMAEwABAAcAGQAbgBzADEALgBsAG8AYwBhAGwAaABvAHMAdAADACYAZABlAGwAbAAuAGQAbgBzADEALgBsAG8AYwBhAGwAaABvAHMAdAAFABwAZABuAHMAMQAuAGwAbwBjAGEAbABoAG8AcwB0AAAAAAA= TlRMTVNTUAADAAAAGAAYAEAAAAAYABgAWAAAAAAAAABwAAAADQANAHAAAAAEAAQAfQAAAAAAAAAAAAAABoKJA