Hi,
in der Schule machen wir gerade Kryptologie und ich bin mit nem Kumpel in die 2-Mann RSA-Gruppe gekommen, weil wir Mathe LK haben. Das mathematische an der Sache hab ich ja mittlerweile verstanden, aber die Delphi 5 Version und deren Problem mit langen Zahlen etc. macht mir doch zuschaffen
z.B. Krieg ich es nicht hin (33^17) mod 256 zu rechnen
Den Wert für e, N entnehm ich einem Editfeld - sie liegen dann als Integer vor, so auch der Ordinalwert der einzelnen, zu verschlüsselnden Buchstaben.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
| unit mRSACodierer;
interface
uses sysutils, math, dialogs;
type
RSACodierer = class
public
constructor init;
function codiereText(pE: integer; pN: double; pText: string): string;
function codiereZeichen(pZeichen: char): double;
function decodiereText(pN, pD: integer; pCode: string): string;
function decodiereZeichen(pZahl: string): double;
destructor gibFrei;
private
zN, zD: double;
zE: integer;
function potenziere(pBasis: double; pExponent: integer): double;
function potenziere_und_mod(pExponent: integer; pBasis, pDivisor: double): double;
function mod_(pDividend, pDivisor: double): double;
end;
implementation
constructor RSACodierer.init;
begin
end;
function RSACodierer.codiereText(pE: integer; pN: double; pText: string): string;
var lCodierterText: string;
i: integer;
begin
zN := pN;
zE := pE;
lCodierterText := '';
for i := 1 to length(pText) do
begin
lCodierterText := lCodierterText + FloatToStr(self.codiereZeichen(pText[i])) + ' ';
end;
result := lCodierterText;
end;
function RSACodierer.codiereZeichen(pZeichen: char): double;
var pZeichenOrd: integer;
begin
pZeichenOrd := ord(pZeichen);
result := potenziere_und_mod(zE, pZeichenOrd, zN);
end;
function RSACodierer.decodiereText(pN, pD: integer; pCode: string): string;
var lDecodierterText, lCodiertesZeichen: string;
i: integer;
begin
zN := pN;
zD := pD;
lDecodierterText := '';
for i := 1 to length(pCode) do
begin
if pCode[i] <> ' ' then
lCodiertesZeichen := lCodiertesZeichen + pCode[i]
else
begin
lDecodierterText := lDecodierterText + chr(self.decodiereZeichen(lCodiertesZeichen));
lCodiertesZeichen := '';
end;
end;
result := lDecodierterText;
end;
function RSACodierer.decodiereZeichen(pZahl: string): double;
begin
end;
destructor RSACodierer.gibFrei;
begin
end;
function RSACodierer.potenziere(pBasis: double; pExponent: integer): double;
begin
if pExponent = 0 then result := 1 else
if odd(pExponent) then result := pBasis*self.potenziere(pBasis, pExponent-1)
else result := self.potenziere(pBasis*pBasis, pExponent div 2)
end;
function RSACodierer.potenziere_und_mod(pExponent: integer; pBasis, pDivisor: double): double;
var lPotenz: double;
begin
lPotenz := self.potenziere(pBasis, pExponent);
result := self.mod_(lPotenz, pDivisor);
end;
function RSACodierer.mod_(pDividend, pDivisor: double): double;
var lNachKomma: double;
begin
lNachKomma := pDividend/pDivisor - trunc(pDividend/pDivisor);
result := round(lNachKomma*pDivisor);
end;
end. |
Das decodieren ist noch fehlerhaft, basiert ja auch auf dem selben Schema
Aber nur damit das Prinzip deutlich wird bzw. auf welchem Stand ich gerade bin hab ich mal den kompletten Code der Klasse hierhin kopiert.
Würd mich freuen wenn mir jemand sagen könnte wie ich das Problem lösen kann, kriege immer Fehler bei Gleitkommaoperation o.ä. und Integer ist als Typ zu klein für die Riesigenzahlen
Danke im Vorraus
Moderiert von 
Motzi: Code- durch Delphi-Tags ersetzt.
