• Здраво и добредојдовте на форумот на IT.mk.

    Доколку сеуште не сте дел од најголемата заедница на ИТ професионалци и ентузијасти во Македонија, можете бесплатно да се - процесот нема да ви одземе повеќе од 2-3 минути, а за полесна регистрација овозможивме и регистрирање со Facebook и Steam.

[PERL] MessageDigest.pl

  • Ја почнал/а темата
  • #1

LiquidWorm

Администратор
26 март 2007
2,667
183
www.zeroscience.mk
Едноставно користење на модулите за 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

pwnz0r1lla
8 март 2007
1,550
52
www.it.com.mk
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... :)
 

S

pwnz0r1lla
8 март 2007
1,550
52
www.it.com.mk
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";

:)
 

Нови мислења

Последни Теми

Статистика

Теми
43,498
Мислења
821,868
Членови
28,042
Најнов член
Puffy
На врв Дно