DNS & BIND Kochbuch

9.10 Abfragen und dynamische Updates per Programmierung mit TSIG sichern

Problem

Sie möchten TSIG verwenden, um eine Abfrage oder ein dynamisches Update in Perl zu signieren.

Lösung

Nachdem Sie mit Net::DNS die zu sendende Abfrage oder das Update erzeugt haben, verwenden Sie die Methode sign_tsig, um die Abfrage oder das Update mit Hilfe dieses Schlüssels zu signieren. sign_tsig nimmt einen Schlüsselnamen und die base-64-Codierung der Daten des Schlüssels als Argumente entgegen. Um zum Beispiel das Update in dem Skript aus Rezept 9.9 zu signieren, könnten Sie diese Zeile des Skripts:

my $reply = $res->send($update);

durch die folgenden Zeilen ersetzen:

$update->sign_tsig("update.key", "oyyvQvT0BTIcw7vvqvIJaQ=="); my $reply = $res->send($update); ...