Arsip: Kriptografi Dengan Delphi (Asimetri)

more 15 years ago
Hartono
Dear Milis
Mau tanya apakah temen2 ada yang punya aplikasi program kriptografi (Enkripsi-Dekripsi) dengan algoritma Asimetri. Algoritma seperti halnya algortima RSA. Yang dibangkitakan dari 2 bilangan prima yang sedomain, kemudian dicari nilai e,n, dan d nya yg merupakan kunci pribadi dan kunci publiknya. Tx informasi sblmnya.
Salam
Hartono

more 15 years ago
Indra
Saya Punya Contohnya Pak, tp Algoritma Asimetri :
program Crypt;
{$APPTYPE CONSOLE}
uses Windows;
var key, text, longkey, hasil : string;
i : integer;
toto, c : char;
F : TextFile;
begin
writeln('Masukkan kunci enkripsi:');
readln(key);
writeln('Masukkan plaintext:');
readln(text);
for i := 0 to (length(text) div length(key)) do
longkey := longkey + key;
for i := 1 to length(text) do begin
toto := chr((ord(text[i]) XOR ord(longkey[i]))); // XOR algorithm
hasil := hasil + toto;
end;
writeln('Hasil enkripsi dalam bentuk chipertext adalah :');
writeln(hasil);
write('Hasil enkripsi akan disimpan dalam file *.txt [Y/N]? ');
read(c);
if c in ['Y','y'] then begin
AssignFile(F,'Hasil.txt');
Rewrite(F);
Writeln(F,Hasil);
CloseFile(F);
end;
end.

more 15 years ago
deLogic
Ada komponen yang isinya kumpulan enkripsi-dekripsi, kalo gak salah namanya Delphi Encryption Compendium Part I-III buatan Hagen Reddmann, mungkin bisa dijadikan pertimbangan, berikut cuplikan file readme-nya:
[code:1:6e0be83179]
Copyright: Hagen Reddmann mailto:HaReddmann@AOL.COM
Author: Hagen Reddmann
Remarks: freeware, shareware
Description: Delphi Encryption Compendium Part I-III
D2-D5, BCB3-4
DEC Part I -----------------------------------------------
Status: Freeware, Version 3.0
Description: Includes variuos basicly Algorithm:
5 Checksum: CRC32, XOR32bit, XOR16bit, CRC16-CCITT, CRC16-Standard
23 Hash: MD4, MD5, SHA (other Name SHS), SHA1,
RipeMD128, RipeMD160, RipeMD256, RipeMD320,
Haval (128, 160, 192, 224, 256) with Rounds,
Snefru, Square, Tiger
Sapphire II (128, 160, 192, 224, 256, 288, 320)
40 Cipher: Gost, Cast128, Cast256, Blowfish, IDEA
Mars, Misty 1, RC2, RC4, RC5, RC6, FROG, Rijndael,
SAFER, SAFER-K40, SAFER-SK40,SAFER-K64, SAFER-SK64,
SAFER-K128, SAFER-SK128, TEA, TEAN, Skipjack, SCOP,
Q128, 3Way, Twofish, Shark, Square, Single DES, Double DES,
Triple DES, Double DES16, Triple DES16, TripleDES24,
DESX, NewDES, Diamond II, Diamond II Lite, Sapphire II
2 RNG: Standard Random Generator, Linear Feedback Shift Register RNG with
variable Period from 2^64-1 to 2^2032-1.
6 Text Formats: Hexadecimal, MIME Base 64, Plain, RFC1760 Six Word, UU Coding, XX Coding
others: Low Level API to access outside from Delphi and BCB
Fast implementation (i.E. THash_MD4 > 27Mb/sec, TCipher_Blowfish > 8.0 Mb/sec)
Stringformat Management, includes:
HEX, MIME Base 64, RFC1760 Six Word, UU and XX Coding String converting and Samples
Designtime Manager Components for Hash's and Cipher's
Full and easy objectorientated
RNG's can be cryptographicaly secure
Standard Cipher Modes:
CBC - Cipher Block Chaining
CTS - Cipher Text Stealing
CFB - Cipher Feedback
OFB - Output Feedback
ECB - Electronic Code Book
CBCMAC - CBC Message Authentication Code
CTSMAC - CTS Message Authentication Code
CFBMAC - CFB Message Authentication Code
High optimized Assembler Core
Progress Gauge Support in all Cipher's, Hash's, CheckSums's
Self Test Support for all Cipher's, Hash's, CheckSums's to test of
any illegal or incorrect Modification's
Detailed and full DEMO
variable HMAC's - Hash Message Authentication Code Support for all THash_XXX Classes,
supports RFC2104 Standard HMAC's
automatically Compression Support
Chaining from all THash_XXX, TRandom_XXX, TCipher_XXXX and TCompress_XXX Classes
En/Decryption/Scrambling/Wipe with all TProtection Classes,
this includes all Hash's, Cipher's, Random's and Compress's Classes
Internet RFC2289/RFC1760/RFC2444 One Time Password Routines as Component
many more...
Installation: install \DEC\Source\DECReg.pas in Your Palette
DEC Part II ------incomming, not included-----------------------------------------
Status: Shareware, Version Beta
Description: Asymmetric (Public Key) Encryption, Digital Signatures
Blum Blum Shub RNG, mathematical Big Number Library,
Steganography
DEC Part III -----incomming, not included-----------------------------------------
Status: Shareware, Version Beta
Description: Variuos Objects and Classes to use Part I and II
TSecureRegINI Object, encapsulate the TINIFile and TRegINIFile class to
en/decode defined Entries
* TOneTimePassword, Component for a secure One Time Password
-------------------------------------------------------------------------------------------
[/code:1:6e0be83179]

more 15 years ago
deLogic
kaloyang DEC Part I free, tapi yang Part II dan Part III, itu shareware...

more 15 years ago
kifmesoft
Ikut melengkapi ... ;)
TurboPower LockBox
----------------------------
Komponen dan juga contoh programnya ada banyak,
RSA nya juga lengkap, Dokumtasi PDF dan Help nya juga bagus...
sayang kalo gak dicoba ... :)
http://sourceforge.net/projects/tplockbox/

more 15 years ago
Hartono
Dear deLogic
Komponen Delphi Encryption Compendium Part I-III buatan Hagen Reddmann aksesnya dari situs apa?
Tak search kok gak ketemu
Tx. Sebelumnya
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- DBExpress-Oracle TSQLStoredProcedure error ...bug ?
by mastoto in Lain-lain more 13 years ago - Membuat Setup File
by Thunder in Reporting more 13 years ago - Menentukan Jumlah Yang Difilter Pada Query ?
by umarbakri in Hal umum tentang Pascal Indonesia more 13 years ago - Master-detail di Fastreport v3
by khairul in Reporting more 12 years ago - kalendar dalam tahun
by vera in Tip n Trik Pemrograman more 12 years ago - Mendeklarasikan Tanggal dan Konstanta Lainnya
by umarbakri in MsSQL more 14 years ago - kesulitan fastreports preview
by dannyong1999 in Enginering more 15 years ago - device driver
by odomsangjelemagoblog in Tip n Trik Pemrograman more 13 years ago - [HELPP ]Tanya cara set Regional Option dari script dong
by MingMing in Tip n Trik Pemrograman more 14 years ago - Aplikasi Penjadwalan Perkuliahan / Tugas AKhir
by syntax_error in Bedah Kasus more 12 years ago