Asimetrik yani açık anahtarlı şifrelemenin uygulaması olarak bugün bir program kodu yazdım. Program MATLAB üzerinde çalışıyor. İyi günlerde kullanın.

ANAHTAR ÜRETİCİ

function [gizli_anahtar,acik_anahtar]=anahtar_uretici(bit);

asal_olustur=primes(bit);
p_ve_q=round(rand(1,2)*length(asal_olustur));
p=asal_olustur(p_ve_q(1));
q=asal_olustur(p_ve_q(2));
n=p*q;
t=(p-1)*(q-1);
t_nin_yarisi=[1:t/2];
for ii=1:t/2;
e=floor(rand(1,1)*length(t_nin_yarisi-1))+1;
if gcd(e,t)==1;
break;
end
end

for d=1:9999999;
if mod(e*d,t)==1;
break;
end
end
acik_anahtar=([e n]);
gizli_anahtar=([d n]);

ŞİFRELEYİCİ

function kodlanmis=kodlayici(e,n,yazi);

double(yazi);

kodlanmis=1;
for ii=1:e;
kodlanmis=kodlanmis.*yazi;
kodlanmis=mod(kodlanmis,n);
end
disp(kodlanmis)

ÇÖZÜCÜ

function acik_ileti=cozucu2(d,n,kod)

x=1;
for jj=1:d;
x=x.*kod;
x=mod(x,n);
end

acik_ileti=char(x);

Kaynak: Mehmet Öner Yalçın