Metni Sayı Olarak Şifreleme?

[umutcanster]

maalesef ;

[Error] Unit1.pas(37): Undeclared identifier: 'StrFn'
[Error] Unit1.pas(38): Missing operator or semicolon
[Error] Unit1.pas(40): ';' expected but 'FUNCTION' found



hatalarla karşılaştım

[Lost Soul]

fonksiyonu strn isimli bir class içinde yazmıştım. kaldırmayı unutmuşum

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+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;

düzeltilmiş hali bu.
uses satırından sonra type TJustify =(JLeft,Jright,jboth); eklemeyi unutmayın.

[umutcanster]

özel mesajla durumu ilettim inşallah çalışır hatayı düzelttikten sonra.

[umutcanster]

teşekkürler aslında hata o kadar uzun değil sıralamayı yanlış yapmışım ah benim ahmak kafam

şuanda çalışıyor decode olayınıda tersini yapmaya çalışacağım inşallah çalışır o da şu dertten kurtulurum teşekkürler sonucunu tekrar yazacagım

[umutcanster]

öncelikle lost soul'a çok çok çok teşekkür ederim sayesinde otomasyon programımı bitirmek üzereyim benim gibi başka arkadaşlarda aramasın diye derlediğim kodu koyayım ;

Kod: Tümünü seç

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;













Function DeCryptString(Value: string) : String;
Var
c: char;
t,s: String;
i:integer;
begin
s:='';
for I := 0 to Length(Value) do
  if ((i mod 3)=0) and (i<Length(value)) then
    s:=s+chr(strtoint(TrimOf((Value[i+1]+Value[i+2]+Value[i+3]),'0',jLeft)));
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 AcsiiKodlariniYanYanaEkle(Value: string):String;
Var
i: integer;
t: string;
begin
t:='';
for i := 1 to length(Value) do
  t:=t+FillAndFix(inttostr(ord(Value[i]) ),'0',3,JRight,False);
result:=t;
end;













procedure TForm1.Button1Click(Sender: TObject);
begin
edit3.text:= AcsiiKodlariniYanYanaEkle(edit1.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Label2.Caption:= DeCryptString(edit2.Text);
end;

end.