#####################################################################################################
##                                                                                                 ##
##   Achtung - hash ist eine globale Variable - deshalb keine Variable ''hash'' nennen !!!         ##
##                                                                                                 ##
##                                                                                                 ##
##                                                                                                 ##
#####################################################################################################

Hash := function(s)

          
        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 40 /tmp/kash-hash.out");
        Exec("cat xaa > /tmp/hash.out");
        Exec("echo \\\"\\; >> /tmp/hash.out");
        Exec("chmod og+rw /tmp/kash-hash.*");
        Read("/tmp/hash.out");
        return hash;
end;



#####################################################################################################
##                                                                                                 ##
##   Hier sollen die OAEP-Funktion,der PseudoBitGenerator und RSA hin                              ##
##                                                                                                 ##
##                                                                                                 ##
##                                                                                                 ##
##                                                                                                 ##
#####################################################################################################

OAEP := function(    )


      local a,b;




end; # of OAEP


PseudoBitGenerator := function( )


  local a,b;



end; #of PseudoBitGenerator


RSA := function( )


  local a,b;



end; # of RSA