Using perl Syntax Highlighting
sub Crypt {
my ( $kk, $text ) = @_;
my $i = 0;
my @return;
for ( $i; $i <= length($text); $i++ ) {
my $a = unpack( 'C', substr $text, $i, 1 );
my $b = unpack( 'C', substr $kk, $i, 1 );
push @return, ( pack( 'C', $a ^ $b ) );
}
return @return;
}
my ( $kk, $text ) = @_;
my $i = 0;
my @return;
for ( $i; $i <= length($text); $i++ ) {
my $a = unpack( 'C', substr $text, $i, 1 );
my $b = unpack( 'C', substr $kk, $i, 1 );
push @return, ( pack( 'C', $a ^ $b ) );
}
return @return;
}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Es un encriptador OTP (One-time pad) donde $kk y $text tienen el mismo tamaño.
¿Sería mejor hacer un módulo y usar tie de alguna manera ( como Tie::File ) para controlar el buffer de las dos escalares sin limitar el tamaño?
¿Hay alguna forma de mejorar la parte del for?
Sugerencias o aplausos son bienvenidos
