تشفيرة تشفيره جديد قويه بتاريخ 20/8/2015

[MagicianMiDo32]

هههههههه برضه غلط

الهوست طلعه اخى ياسر

الي هو

[hide]
networkhost.servehttp.com
[/hide]



ما دا عمال يطلعلي م الصبح وانا فاكره غلط


[hide]

[/hide]

 

[MagicianMiDo32]

[hide]

[/hide]

دا الي ظهر في التجربة التانية

 

[AbdoussalemAbdoussalem is verified member.]

الدكتور ويب

[hide]
سماح

سماح

و لكـــــــن لم يظهر الشات أخي مصطفــــــــــــــــى

==

هذا ما تم رصده بالجدار الناري للدكتور ويب
إتصالات كثيـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــرة جـــــــــــــدا

الإتصال الأول أظن أنه الحقيقي، هل هو صحيح ؟

[/hide]
​

 

[mohamed gouch]

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

 

[prooonet]

كنت حاب اجرب الكاسبر على الافتراضي لكن للاسف التجربة فشلت

http://cdn.top4top.net/d_e6070657531.mp4

 

[MagicianMiDo32]

أنتا مشفر البورت ياصاحبي
طلعلي 80

 

[ALmehob]

كنت حاب اجرب الكاسبر على الافتراضي لكن للاسف التجربة فشلت

http://cdn.top4top.net/d_e6070657531.mp4

ياساتر
ماهذه السرعة فى الاكتشاف..حتى انك اخى ماكملت وضع الباسورد

 

[MagicianMiDo32]

كود فك الملف​

[hide]


Imports System.IO
Imports System.Security.Cryptography
Imports System.Text
Imports Microsoft.VisualBasic.CompilerServices

Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim sa As Object = cdvshgg("dXqPjD8sAlTr0rLFeR7A3g==", "bljnfgorijmhkld1256").ToString

Dim gt As Object = cdvshgg("dhDaJS0eFzvKZcGyPp3G6TV2Y8sA8XAZsXnRS1h178c=", "bljnfgorijmhkld1256").ToString





MsgBox(sa)
MsgBox(gt)
End Sub

Public Shared Function cdvshgg(ByVal UDecryptU As String, ByVal UKeyU As String) As Object
Dim managed As New RijndaelManaged
Dim salt As Byte() = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
Dim bytes As New Rfc2898DeriveBytes(UKeyU, salt)
managed.Key = bytes.GetBytes(managed.Key.Length)
managed.IV = bytes.GetBytes(managed.IV.Length)
Dim stream2 As New MemoryStream
Dim stream As New CryptoStream(stream2, managed.CreateDecryptor, CryptoStreamMode.Write)
Try
Dim buffer As Byte() = Convert.FromBase64String(UDecryptU)
stream.Write(buffer, 0, buffer.Length)
stream.Close()
UDecryptU = Encoding.UTF8.GetString(stream2.ToArray)
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
ProjectData.ClearProjectError()
End Try
Return UDecryptU
End Function





End Class






[/hide]​

النتيجة

[hide]

[/hide]





تحميل ملفات المشروع



[hide]




[/hide]

​

 

[MagicianMiDo32]

ياساتر
ماهذه السرعة فى الاكتشاف..حتى انك اخى ماكملت وضع الباسورد

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

 

[prooonet]

ياساتر
ماهذه السرعة فى الاكتشاف..حتى انك اخى ماكملت وضع الباسورد

الظاهر انه يوجين موجود معانة بالموضوع وعرف اني
اسجل وقت التجربة فاضافو توقيع سريع للملف قبل الفضايح

 

[ALmehob]

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

والله لاادرى ماذا يستفيد فى نقل التشفيرة

 

[ALmehob]

الظاهر انه يوجين موجود معانة بالموضوع وعرف اني
اسجل وقت التجربة فاضافو توقيع سريع للملف قبل الفضايح

بس الكاسبر عندى اكتشف الملف بدرى

 

[prooonet]

وانا اهدد الشركات من يوم وساير اي سقطة راح اسجلها لاي
برنامج وحطها باليوتيوب قوو برامجكم وشدو حليكم وله تره ياويلكم

 

[prooonet]

المفروض الملف في البداية يتوزع على الاعضاء الموثوقين وبعدها يتم نشرة

 

[MagicianMiDo32]

والله لاادرى ماذا يستفيد فى نقل التشفيرة

ياخذ نقاط سمعة في الفيرس توتال
ولما سيرفره الذي يستخدمه لجمع ضحايا يترفع
يصوتله ب clean (الوجه الاخضر) ولا يتم إرساله لبرامج الحماية
يعني مثلا هو معه 50 نقطه سمعة
صوت واحد منه ب 50 صوت


أطلب من جميع الأخوة الضغط على الوجه الأخضر

 

[ALmehob]

ياخذ نقاط سمعة في الفيرس توتال
ولما سيرفره الذي يستخدمه لجمع ضحايا يترفع
يصوتله ب clean (الوجه الاخضر) ولا يتم إرساله لبرامج الحماية
يعني مثلا هو معه 50 نقطه سمعة
صوت واحد منه ب 50 صوت


أطلب من جميع الأخوة الضغط على الوجه الأخضر

الله لايعطيه عافية
والله انا اول مرة اعرف هذا الشئ
على العموم نضغط على الوجه الاخضر

 

[White Man]

كود فك الملف​

[hide]


Imports System.IO
Imports System.Security.Cryptography
Imports System.Text
Imports Microsoft.VisualBasic.CompilerServices

Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim sa As Object = cdvshgg("dXqPjD8sAlTr0rLFeR7A3g==", "bljnfgorijmhkld1256").ToString

Dim gt As Object = cdvshgg("dhDaJS0eFzvKZcGyPp3G6TV2Y8sA8XAZsXnRS1h178c=", "bljnfgorijmhkld1256").ToString





MsgBox(sa)
MsgBox(gt)
End Sub

Public Shared Function cdvshgg(ByVal UDecryptU As String, ByVal UKeyU As String) As Object
Dim managed As New RijndaelManaged
Dim salt As Byte() = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
Dim bytes As New Rfc2898DeriveBytes(UKeyU, salt)
managed.Key = bytes.GetBytes(managed.Key.Length)
managed.IV = bytes.GetBytes(managed.IV.Length)
Dim stream2 As New MemoryStream
Dim stream As New CryptoStream(stream2, managed.CreateDecryptor, CryptoStreamMode.Write)
Try
Dim buffer As Byte() = Convert.FromBase64String(UDecryptU)
stream.Write(buffer, 0, buffer.Length)
stream.Close()
UDecryptU = Encoding.UTF8.GetString(stream2.ToArray)
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
ProjectData.ClearProjectError()
End Try
Return UDecryptU
End Function





End Class






[/hide]​

النتيجة

[hide]مشاهدة المرفق 95588

مشاهدة المرفق 95589



[/hide]





تحميل ملفات المشروع



[hide]




[/hide]

​

أكيد عملت Dump ههههههه

 

[MagicianMiDo32]

أكيد عملت Dump ههههههه

اكيد هههههه من غير تفكير
حد يرمي نعمة ربنا
جربت اخبط فيها كدا من غير دمب
بس زهقت وخلعت قولت اكمل بكرة
غلى فكرة الملفات التاني. Class جوا الملف الأصلي
هذا ما توصلت له

 

[Ahmed_Albosife]

اوووف وصلت متأخر جدا
كنت مريضا الايام الماضية
سوف احاول معها

 

[black007]

اعتزر للجميع لم استطيع ان اكمل معكم البارحه

فلدى دور برد ما منعنى من اكمال المواصله معكم

ولكن لا يهم المهم انكم استمتعتم بالتجربه

جارى التنسيق مع عمرو لوضع تشفيره اخرى ان شاء الله

ولا تكتروثوا لحاقد الرافع على فايرس توتل

بالتوفيق للجميع