Arsip: Enskripsi n Deskripsi

 
user image
more 18 years ago

lord_kimm

Saya mau minta tolong ada yang bisa ngasih contoh gak, tentang enskripsi+deskripsi (yang sederhana2 ajah) dan enskripsi+deskripsi dengan menggunakan beberapa Algoritma ?. Sekalian neeh, misalkan di database kita ada record yang di enskripsi terus kita pengen pas ditampilin di DBGrid udah ke deskripsi, gimana tuh caranya? Trims
user image
more 18 years ago

ZeAL

emm... cara paling gamang kalo gak salah namanya caesar method.. contoh : A jadi D, B jadi J, C jadi O, D jadi X, dst..dst.. kalo mo di decrypt ya tinggal dibalikin caranya... btw, kalo di database.. pake aja fasilitas password yang udah disediain.. gak perlu di decrypt manual.. Tapi kalo misalnya manual, emmm... kayaknya DBGrid gak cocok.. pake StringGrid ajah... bener2 manual..
user image
more 18 years ago

arman

Cara paling mudah adalah pergeseran, misalnya: A -> C, B -> D, C -> E, dst tapi terlalu mudah ditebak. Cara yang masih mudah tapi lebih sulit ditebak: anda tentukan satu deretan angka, misalnya +1, -5, +3, +2, -4 Untuk setiap karakter secara berurutan, geser dengan angka-angka tersebut, kalau sudah sampai ujung, ulangi dari awal. Mengapa menjadi lebih tidak mudah ditebak? 1. Lebih tidak teratur dibanding pergeseran yang tetap 2. Tidak terjadi pemetaan 1 ke 1, bisa saja karakter yang berbeda secara kebetulan dipetakan ke karakter yang sama. Untuk decrypt, lakukan proses sebaliknya. Salam, arman@kupalima.com
user image
more 18 years ago

xerion

ada cara lain neh... const // karakter asli orig_char = 'abcdefghijklmnopqrstuvwxyz'; // karakter hasil encrypt mod_char = '123456789zxcvbnmasdfghjklq'; // tambah tambah aja kalo mau ... // fungsi untuk men-encrypt string s function encrypt(s:string):string; var i,j : integer; tmp : string; begin for i := 1 to length(s) do begin J := pos(s[i],orig_char); tmp := tmp + mod_char[j]; end; result := tmp; end; function decrypt(s:string):string; begin for i := 1 to length(s) do begin J := pos(s[i],mod_char); tmp := tmp + orig_char[j]; end; result := tmp; end; ara laen ada seperti result := chr(ord(s) + 5); yah macam seperti itu lah ...
user image
more 17 years ago

rehatta

ada yg bisa tologn saya??? gimana cara buat file-file atw prog yang sudah di burn d CD nggak bisa di kopi ke HD komp tapi buatnya pake delphi 7. maksih/kamsia/haturnuhun akang sareng teteh rey
user image
more 17 years ago

n3o_cybertech

buat aja program di delphi di-Autorun di CD. ntar programmnya ada tulisan dengan ukuran 45 "JANGAN KOPI DATA-DATANYA, AWAS LOE KALO KOPI GUE HAJAR!!!", gitu...ada saran yang laen temen2 ?????????????
user image
more 17 years ago

xerion

saran laen ? hajar pake golok, pasti pada takut ! cuakakak :mrgreen: hmm, mungkin buat suatu program yang monitor clipboard untuk string file yang berupa path ke CD. biasanya orang copy lewat explorer kan ? kalau ketemu string seperti itu, langsung pakai EmptyClipboard() ... kalau ingin yg lebih advance, yah pakai .................................................................. :mrgreen:
user image
more 17 years ago

NiceDream

@ZeAL: btw, kalo di database.. pake aja fasilitas password yang udah disediain.. gak perlu di decrypt manual.. Tapi kalo misalnya manual, emmm... kayaknya DBGrid gak cocok.. pake StringGrid ajah... bener2 manual..
setingan mana aja seh bwt password yang da disediain kl pake database misal saya databasenya pake MS Access atau SQL Server
user image
more 17 years ago

DelphiExpert

@NiceDream: bukan setingan tetapi lebih tepatnya fungsi internal bawaan DB engine yg bisa digunakan dalam SQL statement, misal function MD5(Value), function Password(Value) dll...
user image
more 17 years ago

ricky06

wah itu mah cukup mudah klo dah bisa mah...heeee nich saya kasih saya juga baru bikin project bt seluruh INA pk delphi...baru pegang delphi lagi
more ...
  • Pages:
  • 1
  • 2
Share to

AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com