Delphi Şifreleme Kodu - Turkish Hacking Sabotage | Türkiyenin En Büyük Hack Ve Security Sitesi

		Turkish Hacking Sabotage \| Türkiyenin En Büyük Hack Ve Security Sitesi > PROGRAMLAMA > Programlama > Delphi
Delphi Şifreleme Kodu

Konu Bilgileri
	Konu Başlığı Delphi Şifreleme Kodu	Konudaki Cevap Sayısı 0
	Şuan Bu Konuyu Görüntüleyenler	Görüntülenme Sayısı 0

Seçenekler

Arama

Stil

Delphi Şifreleme Kodu

(#1)

SpyEvil is Offline

[10]Yeni Üye

>Mesaj Sayısı: 22

>Açtığı Konu: 18

Level: 3 [ â™¥ BÃ©-YÃªu â™¥

]
Paylaşım: 0 / 60

Güç: 7 / 132

Tecrübe: 41%

Üyelik tarihi: Dec 2007

Kullanıcı No: 196259

Nerden: İstanbul

Rep Puani: 100

Rep Derecesi : SpyEvil will become famous soon enough

Delphi Şifreleme Kodu - 01-07-2008

Şimdi aklıma geldi 10 dk. da yazıverdim . Önce form üzerine iki adet Edit nesnesi ve iki adet button ekliyoruz.

Edit1 - Metin Alanı
Edit2 - Şifre Alanı
Button1 - Şifreleme Buttonu
Button2 - Çözümleme Buttonu

Şimdi Button1 üstüne çift tıklayıp fonksiyonu aşağıdakiyle değiştirin.

Kod:

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c: char;
sonuc:string;
i,k:integer;
begin
k:=1;
for i := 1 to strlen(pchar(edit1.text)) do
begin
a:=edit1.Text[i];
b:=edit2.Text[k];
c:=chr(( ord(a) + ord(b) ) mod 256);
sonuc:=sonuc + c;
end;
edit1.text:=sonuc;
end;

Daha sonra Button2 üzerine çift tıklayıp aşağıdaki kodla değiştirin.

Kod:

procedure TForm1.Button2Click(Sender: TObject);
var
a,b,c: char;
sonuc:string;
i,k,t:integer;
begin
k:=1;
for i := 1 to strlen(pchar(edit1.text)) do
begin
a:=edit1.Text[i];
b:=edit2.Text[k];
t:=ord(a) - ord(b);
if t<0 then t := t + 256;
c:=chr(t);
sonuc:=sonuc + c;
end;
edit1.text:=sonuc;
end;

İşlem bu kadar ekran görüntüsü aşağıdaki gibidir.

Not: ord fonksiyonu karakterin ascii kodunu elde etmemizi sağlar.

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Seçenekler	Arama
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder	Arama: Gelişmiş arama yap
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Yetkileriniz
Yeni Mesaj yazma yetkiniz aktif değil dir. Mesajlara Cevap verme yetkiniz aktif değil dir. Eklenti ekleme yetkiniz aktif değil dir. Kendi Mesajınızı değiştirme yetkiniz aktif değil dir. vB Kodları Açık Smileler Açık [IMG] Kodları Açık HTML-KodlarıKapalı Trackbacks are Kapalı Pingbacks are Kapalı Refbacks are Kapalı

Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 11:44 AM .