Text şifreleme problemi

[carsoft]

text dosyasına yazmak için bir procedure yazdım text dosyasını yazıyorum ama şifrelemeye gelince şifrelemiyor.

Kod: Tümünü seç

function Sifrele(sSomeString : string) : string;
var
i : longint;
s : string;
begin
s := sSomeString;

for i := 1 to Length(sSomeString) do
s[i] := Char(Byte(sSomeString [i]) +i);
Result := s;
end;

yazma kodu

Kod: Tümünü seç

Procedure yaz(fname, satır: pchar) stdcall;
var
    desc: thandle;
    giris: string;
begin
    if not FileExists(fname) then
        desc := FileCreate(fname)
        else
        desc := FileOpen(fname, fmOpenWrite);

    if desc = INVALID_HANDLE_VALUE then exit;

    giris := satır+ #13;

    FileSeek(desc, 0, soFromEnd);
    FileWrite(desc, giris[1], length(giris));
    
    Sifrele(IntToStr(desc)); // çalışmayam kısım burada problem var

    FileClose(desc);
end;

[thelvaci]

text dosyasına yazmak için bir procedure yazdım text dosyasını yazıyorum ama şifrelemeye gelince şifrelemiyor.

Kod: Tümünü seç

function Sifrele(sSomeString : string) : string;
var
i : longint;
s : string;
begin
s := sSomeString;

for i := 1 to Length(sSomeString) do
s[i] := Char(Byte(sSomeString [i]) +i);
Result := s;
end;

yazma kodu

Kod: Tümünü seç

Procedure yaz(fname, satır: pchar) stdcall;
var
    desc: thandle;
    giris: string;
begin
    if not FileExists(fname) then
        desc := FileCreate(fname)
        else
        desc := FileOpen(fname, fmOpenWrite);

    if desc = INVALID_HANDLE_VALUE then exit;

    giris := satır+ #13;

    FileSeek(desc, 0, soFromEnd);
    FileWrite(desc, giris[1], length(giris));
    
    Sifrele(IntToStr(desc)); // çalışmayam kısım burada problem var

    FileClose(desc);
end;

Ne yapmaya çalıştığınızı pek anlamadım açıkçası. Dosyaya birşeyler yazmışsınız ardından da dosyanın handle'ını şifrelemeye çalışmışsınız ama şifrelediğiniz handle'ın fonksiyondan geri dönen değerini almamış ve kullanmamışsınız.!

[carsoft]

evet haklısın şimdi düzelltim teşşekürler