بعض الاكواد المساعدة في عمل برنامج اختراق

احصائياتى
الردود
3
المشاهدات
413
L!nux

L!nux

:: Super Moderator ::
طاقم الإدارة
معلومات L!nux
إنضم
2 يونيو 2018
المشاركات
49
مستوى التفاعل
14
النقاط
8
نظام التشغيل
mac
بعض الاكواد المساعدة في عمل برنامج اختراق






ندخل مباشرة في الموضوع

اليوم احضرت لكم بعض الاكواد المساعدة في عمل برنامج اختراق


فتح قارئ الاقراص

كود:
mciSendString('Set cdaudio door open wait', nil, 0, handle) ;
غلق قارئ الاقراص

كود:
mciSendString('Set cdaudio door closed wait', nil, 0, handle) ;
اخفاء الماوس

كود:
ShowCursor(False);
اظهار الماوس

كود:
ShowCursor(True);
تعطيل زر إغلاق
كود:
var
  Flag: UINT;
  AppSysMenu: THandle;
begin
  AppSysMenu:=GetSystemMenu(Handle,False);
  Flag:=MF_GRAYED;
  EnableMenuItem(AppSysMenu,SC_CLOSE,MF_BYCOMMAND or Flag);
تعطيل ALT+F4

كود:
if (Key = VK_F4) and (ssAlt in Shift) then Key := 0;
Change Computer Name:
function SetComputerName(AComputerName: string): Boolean;
var
  ComputerName: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
  Size: Cardinal;
begin
  StrPCopy(ComputerName, AComputerName);
  Result := Windows.SetComputerName(ComputerName);
end;
مبادلة أزرار الماوس

كود:
procedure SwapMouseButtons(bValue: Boolean);
begin
  if bValue then
    SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 1, nil, 0)
  else
    SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 0, nil, 0);
end;
إخفاء ايقونات سطح المكتب

كود:
ShowWindow(FindWindow(nil, 'Program Manager'), SW_HIDE);
Show Desktop Icons:
ShowWindow(FindWindow(nil, 'Program Manager'), SW_SHOW);
Disable Task Manager
procedure DisableTaskMgr(bTF: Boolean);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;

  reg.OpenKey('Software', True);
  reg.OpenKey('Microsoft', True);
  reg.OpenKey('Windows', True);
  reg.OpenKey('CurrentVersion', True);
  reg.OpenKey('Policies', True);
  reg.OpenKey('System', True);

  if bTF = True then
  begin
    reg.WriteString('DisableTaskMgr', '1');
  end
  else if bTF = False then
  begin
    reg.DeleteValue('DisableTaskMgr');
  end;
  reg.CloseKey;
end;





 
النوميدي

النوميدي

Active Hacker
معلومات النوميدي
إنضم
19 أغسطس 2018
المشاركات
55
مستوى التفاعل
30
النقاط
25
الإقامة
أرض الله
نظام التشغيل
windows_10
رد: بعض الاكواد المساعدة في عمل برنامج اختراق

يعطيك العافية …عالطرح القيم والمفيد ..،
مجهود رائع تُشكر عليه وبارك الله فيكِ
دمت بحفظ الرحمن..،-​
 
MesterPerfect

MesterPerfect

Beginner Hacker
معلومات MesterPerfect
إنضم
8 سبتمبر 2018
المشاركات
27
مستوى التفاعل
15
النقاط
3
العمر
19
الإقامة
sohag, Egypt
الموقع الالكتروني
mx-blind.com
نظام التشغيل
windows_8_1
Skype
live:AhmedBakr012
جزاك الله خيرا أخي وبورك فيك
سؤال بأي لغة هذه الأكواد؟
 
SAMPOP

SAMPOP

V • I • P
معلومات SAMPOP
إنضم
9 سبتمبر 2018
المشاركات
270
مستوى التفاعل
286
النقاط
63
العمر
19
نظام التشغيل
windows_xp
جزاك الله خيرا أخي وبورك فيك
سؤال بأي لغة هذه الأكواد؟
الاكواد ب لغة Delphi
 

من نحن ؟؟

شبكة الصاعقة : هو احد منتديات امن المعلومات يهدف الى الوصول لاقصى الخبرات في الحماية

أعلى