net use und verschlüsseltes Passwort - #146611 (Allgemeines zu Perl)

Gast wer

2011-03-18 12:40

Das ist mehr verschleiern denn verschlüsseln.
Das einfachste ist eine Sequenz zu erzeugen und die mit XOR über das Passwort zu schicken.

Code (perl): (dl )

#!/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";

Das ist aber für jeden der in den Code schaut zu erkennen.