#*****************************************************************#
  # ROBOTER:                                                        #
  # MD5-Funktion erzeugt aus einem Text eine 32-stellige Hexa-      #
  # dezimalzahl. Überprüfung ob ein Quelltext verändert wurde.      #
  #*****************************************************************#
  
  # Modul Digest einbinden

  use Digest::MD5;

  use includedatei;

  $checksumme = includedatei->checksum($seite);

  
  #*****************************************************************#
  # Subroutine                                                      #
  #*****************************************************************#  
  
  sub checksum()
  {
    ($self, $text) = @_;

    # Prüfziffer erzeugen

    $md5 = new Digest::MD5;
    $md5->reset();
    $md5->add($text);

    # Ergebnis wird in Variable gespeichert

    $pruef = $md5->hexdigest();

    return $pruef;
  }