Verschlüsseln synchron

[hotti]

Tach,

Wie sicher ist denn das, sind hier Experten, die mir den originalen Text da rausbekommen?

zeig den Algorithmus her und man kann darüber Aussagen treffen.

Freilich doch. Im Arschief steht der auch schon seit mind. 2 Jahren, SuFu, benutzen ;-)

Viel Spass damit, Hotte

  
###########################################################################  
# 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(encode_base64($crypt));  
}  
###########################################################################  
# Verschlüsselung aufheben  
sub entkryptn{  
 my ($crypt, $key) = @_; # $key ist eine Referenz auf @key  
 my $len = scalar @$key;  
 my $i = 0;  
 $crypt = decode_base64($crypt);  
 my $orig = join "",  
 map { $i = ($i + 1) % $len;  
  chr((ord($_) - $$key[$i] + 256) % 256) }  
   split //, $crypt;  
  return($orig);  
}  
###########################################################################