(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

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