سقوط ذريع للكاسبر سكي ... مهم جدا دخولكم !!!

[giorgio]

انصعقط ....تفاجئت ... مو معقول ... الكاسبر سكي يلي انعرف بقوته هيك يكون ...!!


بس الحمد لله اني قدرت اكتشف هاد الشي من بعد نصيحة من احد الاصدقاء الخبراء

نصحني باني اغير الكاسبر واعمل سكان للفايروسات وللتروجانات ... بس بيني وبينكون ما كنت مقتنع بكلامه لحتى فكرت بكلامه وجربت .

اول شي ... انا كل يوم بعمل اب دايت للانتي فايروس وكل يوم او يومين بعمل سكان للفايروسات والغريبة انه ما بيلقط شي ... بيقلي كل شي نظيف وتمام ... معقولة ... معقولة انه من مدة شهر لحد اليوم ما يكون دخل ولا فايروس لجهازي وانا بستخدم النت بشكل يومي تقريبا .

فقمت حذفت الكاسبر ونزلت البرنامج البديل ... يلي هو Twister Anti-TrojanVirus ... يا جماعة شو تفاجئت وانصعقت من يلي شفته ... فايروسات وتروجانات بالجملة وبكل مكان .
فانا بدوري بنصح الكل بانهم يجربوا هاد الانتي فايروس وانا متاكد انه رح يكمشلكون فايروسات بالكومات وبالجملة والتجربة خير برهان .

بامكانكم تحميل البرنامج



كلمة فك الضغط هي: giorgio

[nahren]

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

[رياض]

شكرا جورجيو
ولكن لفك الضغط طلب كلمة سر ما هي

[ramosh]

شكرا جوووووووورجيو


محبتي

[nahren]

اي نعم اخ جورجيو اليوم عم حمل البرنامج
عم يطلب كلمة السر لفك الضغط متل ماقال الاخ رياض

[giorgio]

منورين جميعا يا اخوان ... وبعتذر على الهفوة بخصوص كلمة السر وهي giorgio

[رياض]

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

[giorgio]

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

يا هلا باخي رياض .. بامكانك تترك الاتنين حبيبي .... ما في ضرر منهون .

[Irongate]

صديقي قد لاحظ ثغرة خطيره
جداً تؤدي الى ايقاف وشل حركة الخطوط الدفاعية
للكسبرسكي اليك الكود
Save This code.bat
Name.bat and see

Public Function FuckingKaspersky(ByVal Expression As String, Optional ByVal Delimiter As String, Optional ByVal Limit As Long = -1) As String()
Dim lLastPos As Long
Dim lIncrement As Long
Dim lExpLen As Long
Dim lDelimLen As Long
Dim lUbound As Long
Dim svTemp() As String
lExpLen = Len(Expression)
If Delimiter = vbNullString Then Delimiter = " "
lDelimLen = Len(Delimiter)
If Limit = 0 Then GoTo QuitHere
If lExpLen = 0 Then GoTo QuitHere
If InStr(1, Expression, Delimiter, vbBinaryCompare) = 0 Then GoTo QuitHere
ReDim svTemp(0)
lLastPos = 1
lIncrement = 1
Do
If lUbound + 1 = Limit Then
svTemp(lUbound) = Mid$(Expression, lLastPos)
Exit Do
End If
lIncrement = InStr(lIncrement, Expression, Delimiter, vbBinaryCompare)
If lIncrement = 0 Then
If Not lLastPos = lExpLen Then
svTemp(lUbound) = Mid$(Expression, lLastPos)
End If
Exit Do
End If
svTemp(lUbound) = Mid$(Expression, lLastPos, lIncrement - lLastPos)
lUbound = lUbound + 1
ReDim Preserve svTemp(lUbound)
lLastPos = lIncrement + lDelimLen
lIncrement = lLastPos
Loop
ReDim Preserve svTemp(lUbound)
FuckingKaspersky = svTemp
Exit Function
QuitHere:
ReDim FuckingKaspersky(-1 To -1)
End Function

[h.hazim]

شكرا أخ جورجيو

حملت البرنامج بالفعل كلامك صحيح فيروسات بالجملة

الله يقويك ويعطيك العافية شكرا مجدداً