MA1 := [ " ", " Hallo Bob,"," wie Verabredet schicke ich Dir den Vertrag per Mail."]; MA2 := [ "Darin ist klar verabredet, dass Du mir mein Auto fuer 1000 Euro abkaufst.","Ist doch ein fairer Preis, oder?", " Gruss, Alice"]; Mail1 := Concatenation(Concatenation(MA1,MA2)); MA2B := [ "Darin ist klar verabredet, dass Du mir mein Auto fuer 10000 Euro abkaufst.","Ist doch ein fairer Preis, oder?", " Gruss, Alice"]; Mail2 := Concatenation(Concatenation(MA1,MA2B)); hash := 1; SHA1 := function(s) ### ### SHA1 verlangt ein String beliebiger Laenge, z.B. SHA1(MailAliceAnBob2) und gibt eine verkuerzte SHA1-Ausgabe aus. ### Vorsicht: hash ist eine globale Variable ### PrintTo("/tmp/kash-hash.in", s); PrintTo("/tmp/kash-hash.out", "hash:=\""); Exec("cat /tmp/kash-hash.in | openssl dgst -sha1 >> /tmp/kash-hash.out"); Exec("split -b 13 /tmp/kash-hash.out"); Exec("cat xaa > /tmp/hash.out"); Exec("echo \\\"\\; >> /tmp/hash.out"); Read("/tmp/hash.out"); return hash; end;