Perl


Here is a Perl module I wrote providing a Business::OnlinePayment interface for PayPal. It uses Business::PayPal::API for doing PayPal DirectPayments (using credit cards) so it’s transparent for the end-user that will not even now that we use PayPal. It should be used with Freeside (Open-source billing software and outsourced billing services for ISPs) but I used it only with the paypal sandbox so it might need some adjustements.
(more…)

Here is a little, but very efficient, script that feed bogofilter with ham (non-spam). Every mail coming from someone in any address book of the IMP webmail will be considered as ham (check that you add automatically people in address books when sending mail to those people from the webmail). For the spam you can use the “report as spam” functionnality in IMP. (more…)

En cherchant à extraire les mots de passe d’un serveur IMail, je suis tombé la dessus :

http://seclists.org/lists/bugtraq/1999/Mar/0010.html

Ça fait peur mais en même temps on peut considerer que c’est bien joué de la part des auteurs de IMail qui nous permettent ainsi de changer de serveur.

On peut extraire les mots de passe depuis la base de registre HKEY_LOCAL_MACHINE\SOFTWARE\Ipswitch\IMail\Domains\yourdomain\users\

Un bout de code Perl pour illustrer ça :

my $mail = "test";
my $password = "BDD4EAE2EDD4E8";
my @hex_mail = unpack("C*", $mail);
my ($i, @decrypted_password, @hex_password);
while ($password) {
\ \ push @hex_password, hex(substr($password, 0, 2, ''));
}
foreach (@hex_password) {
\ \ push @decrypted_password, ($_ - $hex_mail[$i++ % length($mail)]);
}
print pack("C*", @decrypted_password). "\\n";

Nzbperl est un équivalent du grabeur de news Grabit sous unix en mode console :
http://noisybox.net/computers/nzbperl/
Les geeks trouveront les screenshots sympa. Cerise sur le gateau, il est codé en Perl. Pour créer les fameux fichiers nzb rendez vous sur binsearch.info.