[PERL] MessageDigest.pl

[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]

)

 

[S]

Definitivno korisni... Perl si e Perl be, za sve kje najdesh modul

print " (SHA1)" . " : " . sha1_hex("")."n";

Umm... Verojatno bi mozhel da koristish escape char "\" vo sredinata

print " (SHA1) :".sha1_hex()."n";

Just a thought...

 

[LiquidWorm]

noted

 

[S]

wtf? Zaebava

tagot. Sakaf da kazham

print " (SHA1) \:".sha1_hex()."\n";

...


edit: :S Moja greshka. Neznam od kade pomislif deka ':' e specijalen znak. Verojatno zashto ti taka si go upotrebil. Kriptograf! ...
Znachi se na se glupa zabeleshka :ua: ... Kako i da e: print " (SHA1) :".sha1_hex()."\n";

 

[Pepsi Man]

за што поточно служи ова?

 

[S]

за што поточно служи ова?

Едноставно користење на модулите за MD5 (128 бита) и SHA1 (160 бита) алгоритмите...

...