Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Delphi 7 de kolay Şifreleme mantıgı.......  (Okunma sayısı 494 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı tawer

  • Delphi 1 Level 1
  • *
  • İleti: 2
  • Rep: +0/-0
Delphi 7 de kolay Şifreleme mantıgı.......
« : 28 Ekim 2011 16:19:06 »
2 adet fonksiyondan oluşur ve cok basit ..... belki birilerine yardımcı olur
Kod: [Seç]
function VeriSifrele(St: string): string;
var
  i: integer;
  a: byte;
begin
  Result := '';

  for i := length(St) downto 1 do begin
    A := ord(St[i]);
    result := result + char(a-1);
  end;

end;

function SifreyiCoz(St: string): string;
var
  i: integer;
  a: byte;
begin
  Result := '';
  for i := length(St) downto 1 do begin
    A := ord(St[i]);
    result := result + char(a+1);
  end;
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »