Modulo, modulare Potenzen und Inverse

Prof. Dr. Dörte Haftendorn Okt 2014  www.mahematik-verstehen.de
http://www.mathematik-sehen-und-verstehen.de/02krypto.htm
http://www.mathematik-verstehen.de/krypto/krypto.htm

Manipulate[PowerMod[a,k,m],
Style["Für die einfache Restklassenbestimmung wähle k = 1",14],
Style["Für die Inversenbestimmung wähle k = -1",14],
Style["Sehr große und auch negative Basen, Exponenten oder Modulzahlen sind möglich",10],

(*{Wahl,{"a modulo m","(a hoch k) modulo m" }, ControlType->SetterBar}] ,*)
(*{Wahl,{1,2 }, ControlType->SetterBar}] ,*)
{{a,7,"Basis"}},
{{k,4,"Exponent k"}},
{{m,23,"Modulzahl"}},
Style["Ergebnis:",14,Bold],

FrameLabel->{{None,"Info\nunten"},{"www.mathematik-sehen-und-verstehen.de","Modulo, modulare Potenzen und Inverse"}},
LabelStyle->Directive[RGBColor[0.7,0,0],Large]
]