#!/usr/bin/perl
use strict;
use warnings;

my $pass="DasIstNur1Test";
my $crypt;

srand(1234);
$crypt.=chr(ord($_)^int(rand(10))) for(split('',$pass));

print "$pass=>$crypt\n";

$pass='';

srand(1234);
$pass.=chr(ord($_)^int(rand(10))) for(split('',$crypt));

print "$crypt=>$pass\n";