Thread Was mache ich mit RegistryCooker.pm? (16 answers)
Opened by bianca at 2020-05-19 08:55

bianca
 2020-05-19 11:13
#191802 #191802
User since
2009-09-13
6977 Artikel
BenutzerIn

user image
2020-05-19T09:01:02 GwenDragon
Ich vermute, da kann dein Programm nicht auf das binäre XS des Moduls zugreifen.
Und wie lädst du das Modul Digest::Keccak?

OK dann doch den Abschnitt komplett:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

$modul = 1;
$get = "-";
eval "use Crypt::Digest::Keccak512 0.067; 1;" or $modul = $@;
if ($modul eq "1") {
        $get = "";
        my $ret = 0;
        $code = <<'CODEABSCHNITT';
my $ergebnis = Crypt::Digest::Keccak512::keccak512_hex('Dies ist ein schoener Sommertag!');
return (
        $ergebnis
                eq
        '01073c008692a2c9378cf0fea47fd17d6ffc52c7e89c11486f76e95ed8e136b9a19cd862367f31128a616aaf440f6ef9e1bd77189818c043380f7e2d9f987284'
        ? "\x01"
        : $ergebnis
);
CODEABSCHNITT
    $ret = eval $code;
    if ($@) { $get = $@; $modul = 0; }
    elsif ($ret ne "\x01") { $get = "liefert nicht das gewünschte Ergebnis sondern<br>$ret"; $modul = 0; }
    if ($get eq "") { $get = "bestanden"; }
}
10 print "Hallo"
20 goto 10

View full thread Was mache ich mit RegistryCooker.pm?