Opened by nour at 2007-01-09 11:26
User since
2006-11-15
108 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-11-15
108 Artikel
BenutzerIn
Hallo ,
Ich habe die folende Prozedur geschrieben , die mir die MD% berechnet :
nun jetzt die " get_MD5 umd die Berchnung meines Md5 aufrufen.
wie kann ich das machen ?
Danke
--- Modedit Gwendragon
Bitte auch am Ende eines Codes das schließende [/CODE] hinzufügen!
---\n\n
<!--EDIT|GwenDragon|1168340777-->
Ich habe die folende Prozedur geschrieben , die mir die MD% berechnet :
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
sub get_MD5
{
my $md5=Digest::MD5->new;
my $id;
my $filename;
$filename=shift;
if (open(FF, $filename))
{
binmode(FF);
$md5=Digest::MD5->reset;
$id = $md5->addfile(*FF)->hexdigest;
close(FF);
return $id;
$md5=Digest::MD5->reset;
} else
{
return "";
}
nun jetzt die " get_MD5 umd die Berchnung meines Md5 aufrufen.
wie kann ich das machen ?
Danke
--- Modedit Gwendragon
Bitte auch am Ende eines Codes das schließende [/CODE] hinzufügen!
---\n\n
<!--EDIT|GwenDragon|1168340777-->