Arsip: kriptografi

 
user image
more 10 years ago

tara

halo.... mau tanya neh ada yg ngerti gak buat program untuk encrypt n decrypt (kriptografi)? yg pke kriptografinya vigenere .., ada yang tau nggak gmn buat codingny? aq udah cari tpi ngak tau n juga tidak terlalu paham script delphi..mklum msh newbie,,hehehe,, :D
user image
more 10 years ago

n3o_cybertech

klo g terlalu pham script delphi y bljar dlu dr awal. klo langsung minta coding yang jadi mana mungkin bisa???
user image
more 10 years ago

tara

ya maksudny beri contoh gtu...klo dasar2 delphi sih ngerti...kn klo ada scriptny bsa dipelajari...! begitu kk... :)
user image
more 10 years ago

mawhutz

kayaknya di Jedi ada Vigenere...coba aja dibuka2...
user image
more 10 years ago

artemis

tugas ya ? dulu juga di kasih tugas bikin viginere. Di wiki juga ada, disitu juga dah jelas. Huruf2 di representasikan dengan angka. Misal A direpresentasikan dengan angka '0' begitu juga dengan key nya. Untuk encrypt nya seingat aku lebih mudah coding nya daripada yang decrypt. Yang decrypt kalau ga salah ada sedikit coding tambahan. Ntar juga tau, coba aja dulu ya ^^
user image
more 10 years ago

tara

to mawhutz: jedi th apaan y?hehehe... ya sih aq udh cri2 referensi vigenere n udah paham logika kriptonya cma bngung gmn mw mulai nulis script d delphi....maklum blum kuat bener d syntax2 delphi...tlg pncerahany dng ksh clue/bntuan (sedikit aja dpp) biar aq kembangkan sndri...thx
user image
more 10 years ago

artemis

Mmmm.. pertama2 definisikan setiap huruf adalah angka dulu. Proses nya, untuk setiap huruf di 'kalimat' dan setiap huruf di 'key' di masukin ke fungsi EnVigenere() atau ke DeViginere. Misal huruf pertama di kalimat adalah 'k' dan dan huruf pertama di key adalah 'y'. keduanya masukin ke dalam fungsi. Coba aja liat tabel viginere nya..
user image
more 10 years ago

mawhutz

http://jvcl.sourceforge.net
user image
more 10 years ago

bo3l4q

const Codes64 = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/'; function GeneratePWDSecutityString: string; var i, x: integer; s1, s2: string; begin s1 := Codes64; s2 := ''; for i := 0 to 15 do begin x := Random(Length(s1)); x := Length(s1) - x; s2 := s2 + s1[x]; s1 := Copy(s1, 1,x - 1) + Copy(s1, x + 1,Length(s1)); end; Result := s2; end; function MakeRNDString(Chars: string; Count: Integer): string; var i, x: integer; begin Result := ''; for i := 0 to Count - 1 do begin x := Length(chars) - Random(Length(chars)); Result := Result + chars[x]; chars := Copy(chars, 1,x - 1) + Copy(chars, x + 1,Length(chars)); end; end; function EncodePWDEx(Data, SecurityString: string; MinV: Integer = 0; MaxV: Integer = 5): string; var i, x: integer; s1, s2, ss: string; begin if minV > MaxV then begin i := minv; minv := maxv; maxv := i; end; if MinV < 0 then MinV := 0; if MaxV > 100 then MaxV := 100; Result := ''; if Length(SecurityString) < 16 then Exit; for i := 1 to Length(SecurityString) do begin s1 := Copy(SecurityString, i + 1,Length(securitystring)); if Pos(SecurityString[i], s1) > 0 then Exit; if Pos(SecurityString[i], Codes64) <= 0 then Exit; end; s1 := Codes64; s2 := ''; for i := 1 to Length(SecurityString) do begin x := Pos(SecurityString[i], s1); if x > 0 then s1 := Copy(s1, 1,x - 1) + Copy(s1, x + 1,Length(s1)); end; ss := securitystring; for i := 1 to Length(Data) do begin s2 := s2 + ss[Ord(Data[i]) mod 16 + 1]; ss := Copy(ss, Length(ss), 1) + Copy(ss, 1,Length(ss) - 1); s2 := s2 + ss[Ord(Data[i]) div 16 + 1]; ss := Copy(ss, Length(ss), 1) + Copy(ss, 1,Length(ss) - 1); end; Result := MakeRNDString(s1, Random(MaxV - MinV) + minV + 1); for i := 1 to Length(s2) do Result := Result + s2[i] + MakeRNDString(s1, Random(MaxV - MinV) + minV); end; function DecodePWDEx(Data, SecurityString: string): string; var i, x, x2: integer; s1, s2, ss: string; begin Result :=#1; if Length(SecurityString) < 16 then Exit; for i := 1 to Length(SecurityString) do begin s1 := Copy(SecurityString, i + 1,Length(securitystring)); if Pos(SecurityString[i], s1) > 0 then Exit; if Pos(SecurityString[i], Codes64) <= 0 then Exit; end; s1 := Codes64; s2 := ''; ss := securitystring; for i := 1 to Length(Data) do if Pos(Data[i], ss) > 0 then s2 := s2 + Data[i]; Data := s2; s2 := ''; if Length(Data) mod 2 <> 0 then Exit; for i := 0 to Length(Data) div 2 - 1 do begin x := Pos(Data[i 2 + 1], ss) - 1; if x < 0 then Exit; ss := Copy(ss, Length(ss), 1) + Copy(ss, 1,Length(ss) - 1); x2 := Pos(Data[i 2 + 2], ss) - 1; if x2 < 0 then Exit; x := x + x2 * 16; s2 := s2 + chr(x); ss := Copy(ss, Length(ss), 1) + Copy(ss, 1,Length(ss) - 1); end; Result := s2; end;
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com