ShellCode
#1
السلام عليكم 
ربما تساعد بعض الاخوة بالتوفيق.
[صورة مرفقة: LUe1q80.png]

PHP كود :
procedure TMainForm.Button1Click(SenderTObject);
var
 
 iinteger;
 
 MyHexMyBytestring;
begin
  MyHex 
:= Memo1.Text;
 
 if MyHex <> '' then
  begin
    for i 
:= 1 to Length(MyHex) do
 
   begin
      if i mod 2 
0 then
      begin
        MyByte 
:= MyByte MyHex[1] + MyHex[i] + ',$';
 
     end;
 
   end;
 
   insert('$'MyByte1);
 
   SetLength(MyByteLength(MyByte) - 2);
 
   Memo2.Text := MyByte;
 
 end;
end
:: من يملك المعلومة يملك الميدان :: 
[-] كل من 2 users say قال شكرا ل AX302 على المشاركة المفيدة
  • bassem_43, invocker
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف