programming-examples/perl/String/crypt a string.pl

5 lines
75 B
Perl
Raw Normal View History

2019-11-15 12:59:38 +01:00
$text = "Hello";
$encrypted = crypt $text, "AB";
print $encrypted;