Coding | darksecurity.de

sposition.pl - String Positioning

xor-base64.pl - encrypt/decrypt a string with XOR and base64

Perl - xortool

Gaußsche Summenformel

Caesar-Verschlüsselung

Shellscript - Nagios Plugins - UCARP

Posted by Stefan Schurtz on Wednesday, December 28. 2011

The Script will find the line number and positions of the @ symbols in pos.txt.

# cat pos.txt

00000000000000000000000@00000000000000000000000000
0000000000000000@000000000000000000000000000000000
00000000000000000000000000000000000000000@0@000000
000000000000000000000@0000000000000000000000000000
00000000000000000000000000@000@0000000000000000000

# ./sposition.pl
1-23, 2-16, 3-41, 3-43, 4-21, 5-26, 5-30,

Here is the code

Continue reading "sposition.pl - String Positioning"

Posted by Stefan Schurtz on Sunday, December 25. 2011

Here is a little tool written in perl, which XOR a string against a key and outputs the result base64 encoded and vice versa.

Encrypt

./xor-base64.pl -e foobar -k deadbeef
[+] Cleartext: foobar
[+] Key: deadbeef
[+] Hex: 020a0e060317
[+] Ciphertext: AgoOBgMX

Decrypt

./xor-base64.pl -d AgoOBgMX -k deadbeef
[+] Ciphertext: AgoOBgMX
[+] Hex: 020a0e060317
[+] Key: deadbeef
[+] Cleartext: foobar

And here is the code

Continue reading "xor-base64.pl - encrypt/decrypt a string with XOR and base64"

Posted by on Thursday, May 26. 2011

Heute hab ich in Perl ein kleines Tool geschrieben, mit welchem man eine Datei bzw. deren Inhalt zeichenweise XOR verschlüsseln kann.

Dazu übergibt man dem Tool die Originaldatei, Zieldatei und natürlich den Schlüssel. Nun wendet das Tool das erste Zeichen des Schlüssels auf das erste Zeichen der Originaldatei an, danach das zweite Zeichen des Schlüssels auf das zweite Zeichen der Datei usw.

Verschlüsselung

./xortool originaldatei.txt verschlüsseltedatei.txt 1234

Entschlüsselung

./xortool verschlüsseltedatei.txt unverschlüsseltedatei.txt 1234

Hier der Code:

Continue reading "Perl - xortool"

Posted by on Saturday, May 14. 2011

Nachdem ich bei einer kleinen Hilfestellung für eine Challenge festgestellt hab, dass ich den damals verwendeten Code nicht wiederfinde, hab ich mich dran gesetzt und den zur Lösung benötigten "kleinen Gauß" in C (mit GMP – The GNU Multiple Precision Arithmetic Library ) und Perl implementiert.

Der Code in C bzw. Perl sieht wie folgt aus:

Continue reading "Gaußsche Summenformel"

Posted by on Monday, July 27. 2009

Caesar-Verschlüsselung

Hier ein kleines, von mir, in C geschriebens Programm mit welchem man die Caesar-Verschlüsselung ausprobieren kann ;)

Version 0.1

caesar_chiper.c

December '23

Posted by on Thursday, February 26. 2009

UCARP-Master

#!/bin/sh

virtuelle_ip=192.168.0.1
interface=eth1:1

/sbin/ifconfig $interface | grep $virtuelle_ip &> /dev/null

        if [ $? = 1 ]; then
                echo "CRITICAL – Virtual IP $ip on master"
                exit 1
        else
                /sbin/ifconfig $interface | grep $virtuelle_ip | cut -f 2 -d ":" | while read output;
        do
                ip=$(echo $output | awk ‘{print $1}’ )
                echo "OK – Virtual IP on master"
                exit 0
        done
fi

UCARP-Slave

#!/bin/sh

virtuelle_ip=192.168.0.1
interface=eth1:1

/sbin/ifconfig $interface | grep $virtuelle_ip &> /dev/null

        if [ $? = 1 ]; then
                echo "OK – No Virtual IP on slave"
                exit 0
        else
                /sbin/ifconfig $interface | grep $virtuelle_ip | cut -f 2 -d ":" | while read output;
        do
                ip=$(echo $output | awk ‘{print $1}’ )
                echo "CRITICAL – Virtual IP $ip on slave"
                exit 1
        done
fi

Download: ucarp_master.sh ucarp_slave.sh