منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : بعض النصائح والتعديلات لمشروعي انتي فايرس
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

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

تأكدوا لي من فضلكم من هذا الكود :


كود :
Try
           Panel2.Enabled = False
           ReportToolStripMenuItem.Enabled = False
           ProgressBar3.Visible = True
           If Directory.Exists(Application.StartupPath & "\Hashes\") Then

               Hashes.Add("44d88612fea8a8f36de82e1278abb02f")
               Hashes.Add("6ce6f415d8475545be5ba114f208b0ff")
               Hashes.Add("e4968ef99266df7c9a1f0637d2389dab")

               For Each F As String In Directory.EnumerateFiles(Application.StartupPath & "\Hashes", "*.hash", SearchOption.TopDirectoryOnly)

                   Dim SR As New StreamReader(F)

                   While SR.EndOfStream = False

                       If SR.ReadLine.Contains("#") = True Or SR.ReadLine = "" Then
                       Else

                           Hashes.Add(SR.ReadLine)

                       End If

                   End While

                   SR.Close()

               Next

           End If

           Label10.Text = Hashes.Count

       Catch ex As Exception

       End Try

انا اعتقد الخلل موجود فيه لانه لايصداد الفيروسات رغم اني صممت احدى الفيروسات ولم يتعرف عليه وقمت بتحميل احدى البرامج المصابة ولم يتعرف عليه ايضا ما الحل يا اخوان ؟
(16-05-16, 05:54 PM)0theghost0 كتب : [ -> ]السلام عليكم

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

تأكدوا لي من فضلكم من هذا الكود :


كود :
Try
           Panel2.Enabled = False
           ReportToolStripMenuItem.Enabled = False
           ProgressBar3.Visible = True
           If Directory.Exists(Application.StartupPath & "\Hashes\") Then

               Hashes.Add("44d88612fea8a8f36de82e1278abb02f")
               Hashes.Add("6ce6f415d8475545be5ba114f208b0ff")
               Hashes.Add("e4968ef99266df7c9a1f0637d2389dab")

               For Each F As String In Directory.EnumerateFiles(Application.StartupPath & "\Hashes", "*.hash", SearchOption.TopDirectoryOnly)

                   Dim SR As New StreamReader(F)

                   While SR.EndOfStream = False

                       If SR.ReadLine.Contains("#") = True Or SR.ReadLine = "" Then
                       Else

                           Hashes.Add(SR.ReadLine)

                       End If

                   End While

                   SR.Close()

               Next

           End If

           Label10.Text = Hashes.Count

       Catch ex As Exception

       End Try

انا اعتقد الخلل موجود فيه لانه لايصداد الفيروسات رغم اني صممت احدى الفيروسات ولم يتعرف عليه وقمت بتحميل احدى البرامج المصابة ولم يتعرف عليه ايضا ما الحل يا اخوان ؟

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


شكرا لك
يمكن انك لم تدخل قيم الفايروس لقاعدة البيانات

عكل حال انا خلال هل ايام هاي رح انزل سورس كود لمضاد فايروسات بسيط