المشاركات : 4
المواضيع 3
الإنتساب : Mar 2014
السمعة :
0
الشكر: 2
تم شكره 0 مرات في 0 مشاركات
السلام عليكم جميعآ أسال الله ان تقونه بخير
بسم الله الرحمان الرحيم
سألت صديقى قال لى اذهب الى vb4arb و اسال الاخوه هنا و ثوف يساعدوك
هل يمكن تغير هذا الكود الى vb.net or C#! a او هل يوجد كود يقوم بما يعله هذا الكود؟
هذه هو الكود لاكن C++
كود :
DWORD K32EnumAddr = (DWORD)GetProcAddress(LoadLibraryA("Kernel32.dll"),"K32EnumProcesses");
//DWORD EnumAddr = (DWORD)GetProcAddress(LoadLibraryA("Psapi.dll"),"EnumProcesses");
DWORD old;
VirtualProtect((LPVOID)K32EnumAddr,sizeof(K32EnumAddr),PAGE_EXECUTE_READWRITE,&old);
//VirtualProtect((LPVOID)EnumAddr,sizeof(EnumAddr),PAGE_EXECUTE_READWRITE,&old);
memcpy((LPVOID)K32EnumAddr,(LPVOID)"\xC2\x0C\x00",3);
//memcpy((LPVOID)EnumAddr,(LPVOID)"\xC2\x0C\x00",3);
return 0;
}
int BYPASS::Driver64()
{
wmemcpy((wchar_t*)0x405D0C24,(const wchar_t*)"X6va01",6);
return 0;
}
المشاركات : 249
المواضيع 20
الإنتساب : Sep 2013
السمعة :
7
الشكر: 175
تم شكره 203 مرات في 78 مشاركات
لتحويل الكود من C# الى vb.net والعكس
الموقع الاول
الموقع الثاني
الموقع الثالث
المشاركات : 315
المواضيع 11
الإنتساب : Jun 2013
السمعة :
20
الشكر: 0
تم شكره 599 مرات في 167 مشاركات
{ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ }
" Mohamed M. Bedair - " Abu Anas
Genius Live , Egypt
المشاركات : 489
المواضيع 3
الإنتساب : Nov 2013
السمعة :
13
الشكر: 4
تم شكره 162 مرات في 59 مشاركات
كود :
Private K32EnumAddr As UInteger = CUInt(GetProcAddress(LoadLibraryA("Kernel32.dll"),"K32EnumProcesses"))
'DWORD EnumAddr = (DWORD)GetProcAddress(LoadLibraryA("Psapi.dll"),"EnumProcesses");
Private old As UInteger
'C++ TO VB CONVERTER TODO TASK: The following statement was not recognized, possibly due to an unrecognized macro:
'C++ TO VB CONVERTER TODO TASK: There is no VB equivalent to 'sizeof':
VirtualProtect((Object*)K32EnumAddr,sizeof(K32EnumAddr),PAGE_EXECUTE_READWRITE,&old)
'VirtualProtect((LPVOID)EnumAddr,sizeof(EnumAddr),PAGE_EXECUTE_READWRITE,&old);
'C++ TO VB CONVERTER TODO TASK: The following statement was not recognized, possibly due to an unrecognized macro:
memcpy((Object*)K32EnumAddr,(Object*)ChrW(&HC2).ToString() & ChrW(&H0C).ToString() & ChrW(&H00).ToString(),3)
'memcpy((LPVOID)EnumAddr,(LPVOID)"\xC2\x0C\x00",3);
Private As Return 0
}
'C++ TO VB CONVERTER WARNING: The original C++ declaration of the following method implementation was not found:
'ORIGINAL LINE: Integer BYPASS::Driver64()
Partial Public Class BYPASS
Public Function Driver64() As Integer
'C++ TO VB CONVERTER TODO TASK: The memory management function 'wmemcpy' has no equivalent in VB:
wmemcpy(CStr(&H405D0C24), CStr("X6va01"), 6)
Return 0
End Function
المشاركات : 167
المواضيع 10
الإنتساب : Feb 2014
السمعة :
6
الشكر: 416
تم شكره 419 مرات في 64 مشاركات
علمونا وش يسوي هذا الكود ...؟
المشاركات : 4
المواضيع 3
الإنتساب : Mar 2014
السمعة :
0
الشكر: 2
تم شكره 0 مرات في 0 مشاركات
(13-03-14, 12:09 AM)amgadtamer كتب :
كود :
Private K32EnumAddr As UInteger = CUInt(GetProcAddress(LoadLibraryA("Kernel32.dll"),"K32EnumProcesses"))
'DWORD EnumAddr = (DWORD)GetProcAddress(LoadLibraryA("Psapi.dll"),"EnumProcesses");
Private old As UInteger
'C++ TO VB CONVERTER TODO TASK: The following statement was not recognized, possibly due to an unrecognized macro:
'C++ TO VB CONVERTER TODO TASK: There is no VB equivalent to 'sizeof':
VirtualProtect((Object*)K32EnumAddr,sizeof(K32EnumAddr),PAGE_EXECUTE_READWRITE,&old)
'VirtualProtect((LPVOID)EnumAddr,sizeof(EnumAddr),PAGE_EXECUTE_READWRITE,&old);
'C++ TO VB CONVERTER TODO TASK: The following statement was not recognized, possibly due to an unrecognized macro:
memcpy((Object*)K32EnumAddr,(Object*)ChrW(&HC2).ToString() & ChrW(&H0C).ToString() & ChrW(&H00).ToString(),3)
'memcpy((LPVOID)EnumAddr,(LPVOID)"\xC2\x0C\x00",3);
Private As Return 0
}
'C++ TO VB CONVERTER WARNING: The original C++ declaration of the following method implementation was not found:
'ORIGINAL LINE: Integer BYPASS::Driver64()
Partial Public Class BYPASS
Public Function Driver64() As Integer
'C++ TO VB CONVERTER TODO TASK: The memory management function 'wmemcpy' has no equivalent in VB:
wmemcpy(CStr(&H405D0C24), CStr("X6va01"), 6)
Return 0
End Function
شكرآ جزيلآ
المشاركات : 137
المواضيع 23
الإنتساب : Mar 2014
السمعة :
0
الشكر: 13
تم شكره 48 مرات في 16 مشاركات
From C++ to VB
بموجب برنامج ترجمه
PHP كود :
Private K32EnumAddr As UInteger = CUInt(GetProcAddress(LoadLibraryA("Kernel32.dll"),"K32EnumProcesses")) 'DWORD EnumAddr = (DWORD)GetProcAddress(LoadLibraryA("Psapi.dll"),"EnumProcesses"); Private old As UInteger 'C++ TO VB CONVERTER TODO TASK: The following statement was not recognized, possibly due to an unrecognized macro: 'C++ TO VB CONVERTER TODO TASK: There is no VB equivalent to 'sizeof': VirtualProtect((Object*)K32EnumAddr,sizeof(K32EnumAddr),PAGE_EXECUTE_READWRITE,&old) 'VirtualProtect((LPVOID)EnumAddr,sizeof(EnumAddr),PAGE_EXECUTE_READWRITE,&old); 'C++ TO VB CONVERTER TODO TASK: The following statement was not recognized, possibly due to an unrecognized macro: memcpy((Object*)K32EnumAddr,(Object*)ChrW(&HC2).ToString() & ChrW(&H0C).ToString() & ChrW(&H00).ToString(),3) 'memcpy((LPVOID)EnumAddr,(LPVOID)"\xC2\x0C\x00",3); Private As Return 0 }
'C++ TO VB CONVERTER WARNING: The original C++ declaration of the following method implementation was not found: 'ORIGINAL LINE: Integer BYPASS::Driver64()
Partial Public Class BYPASS Public Function Driver64() As Integer
'C++ TO VB CONVERTER TODO TASK: The memory management function 'wmemcpy' has no equivalent in VB: wmemcpy(CStr(&H405D0C24), CStr("X6va01"), 6) Return 0 End Function End Class
|