Metni Sayı Olarak Şifreleme?

[umutcanster]

arkadaşlar çok basit birşey fakat yapamadım :S ;

mesela kullanıcı edit'e "Selam Merhaba" yazacak butona tıklatıldığında
bu "872326972" gibi sayısal olarak şifrelenmiş gelecek...

decrypt bölümünde ise "872326972" yazıldığında "Selam Merhaba" çıkacak....

şurada önemli olan şey şu...Sayısal şifreleme olacak..sanırım ascii ile olabiliyor fakat yapamadım...

teşekkürlerimle...

[CiTiZEN]

eğer basit birşey ise ansistring veya türevleri ile kolayca yapılır forumda çok konuşuldu

[umutcanster]

örnek alabilir miyim ? teşekkürlerle...

[Battosai]

Yapamadığın şeyin basit olduğunu nasıl anladın: Neyse google da arama yap bir çok string şifreleme fonksiyonu ile karşılaşacaksın. Bu fonksiyonların bir çoğunda karakter tanımlanan bir değişken vardır şifreleme o karakterler ile yapılır...Sen bu tanımdaki sayısal olmayan değerleri silersen sadece rakamsal şifreleme yapmış olursun....

[umutcanster]

maalesef bulamadım bulduklarım hep ansistring ile ilgili.

[Jire]

Yapamadığın şeyin basit olduğunu nasıl anladın: Neyse google da arama yap bir çok string şifreleme fonksiyonu ile karşılaşacaksın. Bu fonksiyonların bir çoğunda karakter tanımlanan bir değişken vardır şifreleme o karakterler ile yapılır...Sen bu tanımdaki sayısal olmayan değerleri silersen sadece rakamsal şifreleme yapmış olursun....

düşünmek basit koda çevirmek zahmetli gelmiş olabilir

[umutcanster]

cevap yokmu arkadaşlar?

[Battosai]

Adresteki fonksiyonlar işini görür tahminimce bir dene bakalım...codes64 sabitindeki karakterleri ayarla öyle dene....
http://www.delphitricks.com/source-code ... words.html

[umutcanster]

teşekkürler fakat
sildikten sonra
encode yapıyorum
"h3› ñUjUd3Ø‹í" acayip şeyler encode ediyor?

[umutcanster]

ayrıca şu ascii kodlarıyla da olabilir edit1 e girilen tüm kelimelerin ascii kodlarını verebilir decode edebilirim ama ;

edit1.onkeypress kısmına ;
label1.caption := IntToStr(ord(key));

yazdığımda sadece ilk kelimenin numarasını yazıyor.... tüm kelimenin nasıl alabilirim...sadece örnek olsun diye yazdım kodları teşekkürler.

[emin_as]

http://www.swissdelphicenter.ch/torry/s ... hp?id=1524

base64 e göre kodlama, işini fazlasıyla görür.
Delphinin bazı versiyonlarında base64 destegi olabilir, ama tam hatırlayamadım.

[umutcanster]

teşekkürler fakat ben sayısal kodlama yapmak istiyorum base64 kodlamayı yapmıştım....

[Lost Soul]

işini görür mü biilmem ama bi ara şöyle bir şifreleme yapmıştım.

Kod: Tümünü seç

type TJustify =(JLeft,Jright,jboth);

Function EncryptString(Value: string):String;
Var
i,j: integer;
t: string;
begin
Randomize;
j:=Random(255);
t:=StrFn.FillAndFix(inttostr(j),'0',3,JRight,False);
for i := 1 to length(Value) do
  begin
  Value[i]:=chr(ord(Value[i]) xor ord (j));
  t:=t+FillAndFix(inttostr(ord(Value[i]) ),'0',3,JRight,False)
  end;
result:=t;
end;

Function DeCryptString(Value: string) : String;
Var
c: char;
t,s: String;
i:integer;
begin
t:=TrimOf( Value[1]+Value[2]+Value[3],'0',jLeft);
s:='';
for I := 3 to Length(Value) do
  if ((i mod 3)=0) and (i<Length(value)) then
    s:=s+chr(strtoint(StrFn.TrimOf((Value[i+1]+Value[i+2]+Value[i+3]),'0',jLeft)) xor strtoint(t));
result:=s;
end;

Function FillAndFix(Value :String;FillingChar:Char;CharCount:integer;Justify :TJustify;TrimOF : Boolean):String;
Begin
if (TrimOf) and (length(Value)>CharCount) then
  begin
  Value:=Copy(Value,1,CharCount);
  Result := Value;
  Exit;
  end;
  if (length(Value)>CharCount) then
    begin
    result:=Value;
    Exit;
    End;
 case Justify of
    JLeft  : Value:=Value+ stringofchar(FillingChar,CharCount-Length(Value));
    JRight : Value:=stringofchar(FillingChar,CharCount-Length(Value))+Value;
    End;
    Result:=Value;
End;
Function TrimOf(value : string;TrimChar:Char;LR:TJustify) : String;
var
i : integer;
Changed : boolean;
Begin
changed:=False;

case LR of
  JLeft:
  For i := 1 to length(Value) do
    if not Changed then
      if value[i]=TrimChar then
        value[i]:=' '
        else
        Changed:=True;
 JRight :
  For i := length(Value) downto 1 do
    if not Changed then
      if value[i]=TrimChar then
        value[i]:=' '
        else
        Changed:=True;
End; //Case
result:=trim(value);
End;

EncryptString : Şifrele
DeCryptString : Şifreyi çöz

[umutcanster]

sayısal olarak şifreleme istiyorum şu ascii kodlarını bütünleşik alsam ama alamıyorum

[Lost Soul]

verdiğim örnekte sonuç string tipinde ama tümüyle rakamları barınırıyor.

eğer tek istediğiniz ascii kodların rakam cinsinden yanyana yazılması ise

Kod: Tümünü seç

type TJustify =(JLeft,Jright,jboth);

Function AcsiiKodlariniYanYanaEkle(Value: string):String;
Var
i: integer;
t: string;
begin
t:='';
for i := 1 to length(Value) do
  t:=t+StrFn.FillAndFix(inttostr(ord(Value[i]) ),'0',3,JRight,False)
result:=t;
end;

Function FillAndFix(Value :String;FillingChar:Char;CharCount:integer;Justify :TJustify;TrimOF : Boolean):String;
Begin
if (TrimOf) and (length(Value)>CharCount) then
  begin
  Value:=Copy(Value,1,CharCount);
  Result := Value;
  Exit;
  end;
  if (length(Value)>CharCount) then
    begin
    result:=Value;
    Exit;
    End;
 case Justify of
    JLeft  : Value:=Value+ stringofchar(FillingChar,CharCount-Length(Value));
    JRight : Value:=stringofchar(FillingChar,CharCount-Length(Value))+Value;
    End;
    Result:=Value;
End;

şeklinde kullanabilirsiniz. FillAndFix fonksiyonunu yazmamdaki amaç iki veya tek basamaklı sonuçların başına 3 basamağa tamamlayan "sıfır"lar eklemek.