string şifreleme

En Büyük İslami Forum Sitesi/string şifreleme => uses crt; var a:string; i:integer; function sifrele(str:string):string; begin for i:=1 to length(str) do str:=chr(ord(str) xor 5000); sifrele:=str;

Gönderen Konu: string şifreleme  (Okunma sayısı 2719 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı administrator

  • Administrator
  • General
  • *****
  • İleti: 24515
  • Karma: +3/-1
    • Profili Görüntüle
    • Toplist Ekle Site Ekle
string şifreleme
« : Nisan 30, 2009, 12:24:23 ÖS »
uses crt;
var
a:string;
i:integer;

function sifrele(str:string):string;
begin
for i:=1 to length(str) do
str:=chr(ord(str) xor 5000);
sifrele:=str;
end;
function sifreyicoz(str:string):string;
begin
for i:=1 to length(str) do
str:=chr(ord(str) xor 5000);
sifreyicoz:=str;
end;
begin
clrscr;
writeln('sifrelenecek textti giriniz....');
readln(a);
a:=sifrele(a);
writeln('Sifreli hali...............:',a);
a:=sifreyicoz(a);
writeln('Sifresinin cozulmus hali...:',a);
readln;
end.
BilX.Net

 

Related Topics

  Konu / Başlatan Yanıt Son İleti
0 Yanıt
1547 Gösterim
Son İleti Nisan 30, 2009, 06:09:53 ÖÖ
Gönderen: administrator
0 Yanıt
1155 Gösterim
Son İleti Nisan 30, 2009, 06:10:02 ÖÖ
Gönderen: administrator
0 Yanıt
1059 Gösterim
Son İleti Nisan 30, 2009, 06:10:17 ÖÖ
Gönderen: administrator
0 Yanıt
1097 Gösterim
Son İleti Nisan 30, 2009, 06:10:30 ÖÖ
Gönderen: administrator