da hab ich wieder ein diesmal aber kleines problem
Delphi-Quellcode:
procedure tcodiermaschine.entschluesseln;
var i : integer;
var acode : int64;
begin
// Klartext zu ASCII
for i := 1
to length (klartext)
do
begin
// 1 ASCII- Code der i-ten Buchstaben ermitteln
acode := ord(codetext[i]);
// 2 Durch formel ( M = C^d mod N ) verschlüsseln
acode := IPowMod( a:146, b:23, n:187 );
//(acode - round(exp(23*ln(146))) mod 187);
// 3 Das Zweichen mit dem ASCII- Code acode an der i-ten Stelle im chiffre ablegen
klartext[i] := chr(acode);
end;
end;
wenn ich das so schreibe sagt der mir:
[DCC Fehler] ukrypto.pas(93): E2003 Undefinierter Bezeichner: 'a'
[DCC Fehler] ukrypto.pas(97): E2029 '.' erwartet, aber ';' gefunden
[DCC Fehler] krypto.dpr(5): F2063 Verwendete
Unit 'ukrypto.pas' kann nicht compiliert werden
wie soll ich das sons schreiben????
is doch genau wie die struktur bei IPowMod...
nice greetz
Bblackhawk