بادئ الموضوع تاريخ البدء
  • المشاهدات 689
  • الردود 3
L!nux

L!nux

:: Super Moderator ::
طاقم الإدارة
إنضم
2 يونيو 2018
المشاركات
49
مستوى التفاعل
16
النقاط
8
أفضل الإجابات
0
نظام التشغيل
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
الإقامة
أرض الله
أفضل الإجابات
0
نظام التشغيل
Windows 10
رد: بعض الاكواد المساعدة في عمل برنامج اختراق

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

MesterPerfect

Beginner Hacker
إنضم
8 سبتمبر 2018
المشاركات
31
مستوى التفاعل
15
النقاط
8
العمر
20
الإقامة
sohag, Egypt
الموقع الالكتروني
🔗
أفضل الإجابات
0
نظام التشغيل
Windows 8.1
جزاك الله خيرا أخي وبورك فيك
سؤال بأي لغة هذه الأكواد؟
 
S

SAMPOP

V • I • P
إنضم
9 سبتمبر 2018
المشاركات
415
مستوى التفاعل
398
النقاط
63
العمر
20
أفضل الإجابات
8
نظام التشغيل
Windows xp
جزاك الله خيرا أخي وبورك فيك
سؤال بأي لغة هذه الأكواد؟
الاكواد ب لغة Delphi
 

كلمة المدير

جميع المواضيع والمشاركات المكتوبة تعبّر عن وجهة نظر صاحبها ,, ولا تعبّر بأي شكل من الاشكال عن وجهة نظر إدارة المنتدى .

تواصل مع فريق العمل

  • Sa3Ka

  • 966-000000000

  • info@sa3ka.com

  • www.sa3ka.com

عن شبكة الصاعقة العربية - [Sa3eka]

شبكة الصاعقة موقع اجتماعي يهتم بتطوير مهارات الحماية والاختراق وطرق الاستهداف بشروحات مفيدة.

تابعنا على المواقع الاجتماعية


إتصل بنا

 

أعلى

خيارات الاستايل

تلوين الاقسام
خلفية المنتدى
نوع الخط
جدول المنتديات
تمديد المنتدى
فصل الأقسام
إخفاء السايدبار
حجم الخط
الصورة الرمزية
بيانات العضو
إخفاء التواقيع

إرجاع خيارات الإستايل