Skip to content

sposition.pl - String Positioning

Posted by Stefan Schurtz on
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"

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

Posted by Stefan Schurtz on
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"

Perl - xortool

Posted by on
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"

Gaußsche Summenformel

Posted by on

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"

Shellscript - Nagios Plugins - UCARP

Posted by on

 
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

Imprint | Contact | Privacy Statement