Hallo, in einem
html/java habe ich folgendes gefunden:
Delphi-Quellcode:
function crypt(f) {
var e = f.T5.value
var klartext = f.T9.value
var n = f.T3.value
var ergebnis = 1
if (klartext < n*1) {
for (i=1;i<=e;i++) {
ergebnis *= klartext
ergebnis %= n
}
f.T10.value = klartext+" hoch "+e+" (mod "+n+") = "+ergebnis
f.T17.value = n
}
else {
hilf = n-1
alert("Nur Zahlen von 0 bis "+hilf+" können verschlüsselt werden !")
}
}
Diese Funktion macht nicht anderes als (ERGEBNISS = Zahl^E mod N); gehört zu einer simplen Verschlüsselung von Zahlen durch die Anwendung von Primzahlen. Dieses wollte ich eigentlich unter Delphi einsetzen (D7 prof.), was aber nicht funzt, weil ZAHL^E als Ergebniss einen EXTENDED-Wert liefert:
ERGEBNISS := Power(Zahl, E) mod N; {ergibt Operanden-Fehler}
Gibt es ein Mathe-Genie hier im Forum, der eine Lösung für D7 aus der Tasche zaubern kann?
