Verschlüsselung / Entschlüsselung Perl Modul

[Vinzenz Mai]

Hallo,

[code lang=perl]#!/usr/bin/perl
###########################################################################

Text synchron verschlüsseln

sub kryptn{
        my ($txt, $key) = @_; # $key ist eine Referenz auf @key
        my $len = scalar @$key;
        my $i = 0;
        my $crypt = join "",
                map { $i = ($i + 1) % $len;
                        chr((ord($_) + $$key[$i]) % 256) } split //, $txt;
        return($crypt);
}
###########################################################################

Verschlüsselung aufheben

sub entkryptn{
        my ($crypt, $key) = @_; # $key ist eine Referenz auf @key
        my $len = scalar @$key;
        my $i = 0;
        my $orig = join "",
        map { $i = ($i + 1) % $len;
                chr((ord($_) - $$key[$i] + 256) % 256) }
                        split //, $crypt;
         return($orig);
}

Ich bin nicht so fit in Codierungsgeschichten,

deswegen solltest Du von diesem ausgewiesenen Müll einfach Abstand halten. Perl hat doch sicher eine AES-Implementierung aufzuweisen.

Lesetipp: http://aktuell.de.selfhtml.org/weblog/php-verschluesselung-100-euro-wette. Dieser Algorithmus ist kein bisschen sicherer als der dort geknackte. Finger weg!

Freundliche Grüße

Vinzenz