MA1 := [ " <EFG29938D2A39a933907@EabeAf093020002000002>", "  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 := Sum(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 := Sum(Concatenation(Concatenation(MA1,MA2B)));



### Nach dem Concatenieren zweier Strings wie z.B. MA1 und MA2B macht KASH3 mit Sum wieder
### einen String daraus (d.h. Datentyp=String)


SHA1Light := function(s)
 
     local HashWert;

        HashWert := Hex(Digest(s,rec(Digest:="SHA1")));
        
        return ( Apply([1..6], i-> HashWert[i]));

end;


a := SHA1Light(Mail1); 
b := SHA1Light(Mail2);