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"
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
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