maaf jika udah ada yang seperti ini help me dunkzzzz...... ada dapat tugas nech......... disuruh buat tugas rsa mulai dari a pembangkitan prima p dan q b mencari prima relatif ada gak source buat prima ?? coz waktu download hanya

Program Bilangan_Prima;
uses crt;
var a,b,c,d,e:longint;
begin clrscr;
write('bilangan prima sampai berapa? '); readln(c);
writeln('2':7);
for a:=3 to c do
begin
for b:= 2 to a-1 do
begin
if a mod b = 0 then begin
d:=a ; end else begin e:=a; end;end;
if a=d then
begin
b:= a-1;
end else
writeln(e:7);
end; readln end.

yang menentukan bilangan prima dari 2 sampai ke angka yang diinputkan ??? maklum newbie banget di delphi nech...

aku ga ngerti maksudnya!xixixiix klo u/ mencari bilangan prima source(pascal) diatas dah bener hasilnya! cobain pke delphi console az! nah tinggal di renov az listingnya sesuai keinginan!

@Curutz iyo ik.. dah bener kok pascalnya. tuh. trus mo di ginamain ? pascal di terjemahin ke delphi ..? gitu ?

rasanya Curutz pake delphi tapi yg console itu ya....(jadi mengingat kenangan lama semester 1) diajarinnya pake console di delphi,,,eh trus ketagihan pake application di delphi...

iya, maksudnya mau cari source bilangan prima , kalo yang console buat contoh aja.... rencananya buat pake form application, gak console... teknisnya kurang lebih 1. 2edit yang gunanya untuk ngecek bilangan prima (ini source code yang saya tanyain) kemaren contoh yang pake console hanya pengurutan bilangan aja, dari 2 sampai yang diinputkan, bukan untuk ngecek bilangan yang diinputkan termasuk prima atau bukan ??? 2. bilangan relatif prima (ada contohnya gak) ???????and seperti apa sech relatif prima ???

kalo source diatas kan udah bener..jadi tinggal cara input outputnya aja yg diganti. disesuaikan,bisa dengan Tedit,Tlabel,dkk.....

@CurutZ: maaf jika udah ada yang seperti ini help me dunkzzzz...... ada dapat tugas nech......... disuruh buat tugas rsa mulai dari a pembangkitan prima p dan q b mencari prima relatif ada gak source buat prima ?? coz waktu download hanya

Program Bilangan_Prima;
...
end.

yang menentukan bilangan prima dari 2 sampai ke angka yang diinputkan ??? maklum newbie banget di delphi nech...

Itu adalah cara yang benar (dan sederhana) tapi bilangan prima yang digunakan di RSA biasanya adalah besar dan akan memakan waktu lama untuk menguji prima/tidaknya dengan cara itu. Cara yang digunakan adalah mencari bilangan random kemudian melakukan test probabilistik atas ke-prima-an bilangan tersebut. Dari http://www.di-mgt.com.au/rsa_alg.html terdapat cara berikut:

To generate the primes p and q, generate a random number of bit length b/2 where b is the required bit length of n; set the low bit (this ensures the number is odd) and set the two highest bits (this ensures that the high bit of n is also set); check if prime (use the Rabin-Miller test); if not, increment the number by two and check again. This is p. Repeat for q starting with an integer of length b-b/2. If p<q, swop p and q (this only matters if you intend using the CRT form of the private key). In the extremely unlikely event that p = q, check your random number generator. For greater security, instead of incrementing by 2, generate another random number each time.

Berikut ada implementasi algoritma miller-rabin: http://krenzel.info/?p=83 (tapi bukan dalam delphi). Biasanya juga untuk menangani bilangan besar seperti ini maka digunakan library khusus karena angkanya tidak muat di dalam integer biasa. Ada contoh library seperti ini (meskipun tidak khusus untuk RSA tapi cukuplah untuk tugas kuliah) di http://www.delphiforfun.org/Programs/Library/big_integers.htm ... di sana dalam unit UBigIntsV2 ada method seperti ini:

function Tinteger.IsProbablyPrime: boolean;
  //miller rabin probabilistic primetest with 10 random bases;

Mungkin berguna untuk anda... Bilangan relatif prima : http://mathworld.wolfram.com/RelativelyPrime.html "Two integers are relatively prime if they share no common positive factors" ... Berarti p dan q adalah relatif prima apabila gcd(p,q) = 1. Dimana gcd adalah greatest common divisor (kalau gak salah di sini namanya FPB). Fungsi gcd ini juga ada di unit bigint yang tadi itu.