Jan-Piet writes about GhettoPush, so I don’t have to. đ
GhettoPush is a UNIX daemon (written in Perl) that will monitor any IMAP server for new message events and generate a push message. Most of the time, I hear the push message come in on the iPhone before I notice the new message on my workstation. Please give it a try and let me know how you like it.
SSH-Launcher is a particularly simple front-end for SSH, written in Perl.
SSH-Launcher uses no configuration dialog at all. An “INI” style configuration file is used to define the SSH sessions and the terminal application that will be used. It’s trivial, but at least it’s well-documented. đ
Click here to download: ssh-launcher-20040207.tar.gz
Requires Perl, Perl Tk and the Config::IniFiles Module.
Ich werkelte einst fĂŒr einen Kunden, der der Meinung war, daĂ Portscans nur was fĂŒr Kriminelle seien. Trotzdem wollten wir aber zwecks Absicherung der Systeme wissen, welche Ports offen waren. Also lieĂen wir 1000 wilde Affen an einen Rechner (könnte zufĂ€lligerweise meiner gewesen sein), die rein zufĂ€llig die folgende Zeichenfolge einhackten:
perl -MIO::Socket::INET -e 'open I,"</etc/services";while(<I>){
(/^\s*($|#)/)&&next;($n,$p,@j)=split/\s+/;($p=~s/\/tcp//)||next;
$s=IO::Socket::INET->new(PeerAddr=>$ARGV[0], PeerPort=>$p,Proto=>'tcp')?
print"$n($p)-->Open\n":next}' <hostname>
Das haben die 1000 wilden Affen aber gut hingekriegt: Rein zufĂ€llig handelt es sich bei dieser AnhĂ€ufung zufĂ€lliger TastendrĂŒcke um einen einfachen TCP-Portscanner in Form eines Perl-Einzeilers. Sich nur aus /etc/services zu bedienen, ist zwar zugegebenermaĂen nicht sehr kreativ, aber immerhin sieht auf diese Weise die Ausgabe mit der Beschreibung zu jedem Port recht angenehm aus.
In der nÀchsten Ausbaustufe könnte man sich auch bei einer services-Datei von nmap bedienen. Aber wie könnte die bloà zufÀllig aufs System gekommen sein?
#!/bin/blog 