- Ја почнал/а темата
- #1
LiquidWorm
Администратор
Едноставно користење на модулите за MD5 (128 бита) и SHA1 (160 бита) алгоритмите...
Линкови за download: Digest::MD5 / Digest::ЅHA1
[hl='Perl']
#!/usr/bin/perl -w
use Digest::MD5 qw(md5_hex);
use Digest::SHA1 qw(sha1_hex);
if (@ARGV !=1)
{
print "Usage: perl $0 <word to encrypt>\n";
exit;
}
($var) = @ARGV;
print "\n$var (MD5)" . " : " . md5_hex("$var")."\n";
print "$var (SHA1)" . " : " . sha1_hex("$var")."\n";
#it.com.mk
################# Primer #####################
# [email protected]:~/scripts/perl$ perl MessageDigest.pl it.com.mk
# it.com.mk (MD5) : 94da3733a9ce5a16588da1a96f48acd4
# it.com.mk (SHA1) : d6856a28c45dc85321a18c0681e51715748d393f
# [email protected]:~/scripts/perl$
[/hl]
)
Линкови за download: Digest::MD5 / Digest::ЅHA1
[hl='Perl']
#!/usr/bin/perl -w
use Digest::MD5 qw(md5_hex);
use Digest::SHA1 qw(sha1_hex);
if (@ARGV !=1)
{
print "Usage: perl $0 <word to encrypt>\n";
exit;
}
($var) = @ARGV;
print "\n$var (MD5)" . " : " . md5_hex("$var")."\n";
print "$var (SHA1)" . " : " . sha1_hex("$var")."\n";
#it.com.mk
################# Primer #####################
# [email protected]:~/scripts/perl$ perl MessageDigest.pl it.com.mk
# it.com.mk (MD5) : 94da3733a9ce5a16588da1a96f48acd4
# it.com.mk (SHA1) : d6856a28c45dc85321a18c0681e51715748d393f
# [email protected]:~/scripts/perl$
[/hl]