hai... ada yang bisa enkripsi g?... aku ada tugas nich bikin enkripsi cipher substitusi homofonik dengan delphi tolongin yaaaaa.... by nelu ([email protected])

@nelu: hai.. hi juga, boleh kenalan ngga??, ntar copy darat ya @nelu: ada yg bisa enkripsi g? banyak keliatannya diforum ini @nelu: aku ada tugas nich bikin enkripsi cipher substitusi homofonik dengan delphi tolongin yaaaaa.... Tolongin yg mananya?, buat codingnya, buat logikanya, buat dan buatnya?

[kayak nya jaman skrg konsultasi [tanya menanya] lewat YM / IM udah gak aman dech......] ujung2 nya di copas ke forum ini......... hiks...pengin nangis...tp apa yg mo ditangisi....

@mas_kofa: [kayak nya jaman skrg konsultasi [tanya menanya] lewat YM / IM udah gak aman dech......] ujung2 nya di copas ke forum ini......... hiks...pengin nangis...tp apa yg mo ditangisi....

OOT: gak aman gimana nech? memangnya data perusahaannya di show di forum kah? klo ga mau di copas ke forum harusnya buat perjanjian dulu klo mo ngasih2(what ever lah) am si tukang copas ke forum, tak usah di tangisi ambil hikmah az bro. SOLUSI: klo curhat mendingan pindah ke thread Aba(d)ikan: Tempat (wc) umum orang ngaco dan o-on xixiixiix

ya maaf dah masuk2 n nulis di forum ini coz bingung mw minta bantuan tpi g tw masuk d forum p y dah asal masuk n nulis di forum ini... maaap...

@mas_kofa: [kayak nya jaman skrg konsultasi [tanya menanya] lewat YM / IM udah gak aman dech......] ujung2 nya di copas ke forum ini......... hiks...pengin nangis...tp apa yg mo ditangisi....

bro, klo dikau melihat postinganku itu diatas, itu bukan copas dr YM, tp aku merujuk ke pertanyaan si penanya, lgian klo mo copas tanpa seijin yg bersangkutan itu bahaya bro. Sama hal dg orang yg mo jiplak hasil karya kita ato mungkin lebih parah lg ya :)

sudah sudah... back to topic..

coba ke link ini dulu... kayanya agak jelas aglorithmanya.... http://haryanto.staff.gunadarma.ac.id/Downloads/files/7283/5.Algoritma+Kriptografi+Klasik+(bag+2).ppt

Sandi: array of char = ' !@#$%^&*()_abcdefghijklmnopqrstuvwxyz:;''~`",.<>/?-=\ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890'; var ab,i, j, k,y,l,x: integer; kalimat: string; tmp1, tmp2, tmp3: array of string; begin z:=0; RichEdit1.Lines.Strings[0]; Form2.richedit1.Lines.Clear; if ComboBox1.ItemIndex=0 then begin for ab:=0 to RichEdit1.Lines.Count-1 do begin kalimat:= RichEdit1.Lines.Strings[ab]; //; k:= Length(kalimat); SetLength(tmp1, k); SetLength(tmp2, k); SetLength(tmp3, k); for i:= 0 to k-1 do begin tmp1[i]:= copy(kalimat, i+1, 1); tmp3[i]:=copy(Edit1.Text,y+1, 1); inc(y); if y=Length(Edit1.Text) then y:=0; end; for i:= 0 to k-1 do begin for j:= 0 to 85 do if tmp1[i] = Sandi[j] then begin for l:=0 to 85 do begin if tmp3[i] =Sandi[l] then x:=j; end; tmp2[i]:= Sandi[(j+x) mod 89]; break; end; for j:= 86 to 88 do if tmp1[i] = Sandi[j] then begin tmp2[i]:= Sandi[j-86]; break; end; end; kalimat:= ''; for i:= 0 to k-1 do kalimat:= kalimat+tmp2[i]; ni lsting enkpsi alfabet majemuk yang aq tnykan, ada yang bisa bantuin aq betulin listing ni g? coz msh salah...

waaah gak ngerti neng, mungkin dibawah ane yang tau... :lol: :lol: :lol: