16-05-16, 05:54 PM
السلام عليكم
قمت بتباع احدى الطرق لبرمجة انتي فايرس لكن اريد معرفة المزيد وربما الاكواد الموجودة تحتاج الى تعديل ليقوم البرنامج بكتشاف الفيروسات التي موجودة في عالم الكمبيوتر .
تأكدوا لي من فضلكم من هذا الكود :
انا اعتقد الخلل موجود فيه لانه لايصداد الفيروسات رغم اني صممت احدى الفيروسات ولم يتعرف عليه وقمت بتحميل احدى البرامج المصابة ولم يتعرف عليه ايضا ما الحل يا اخوان ؟
قمت بتباع احدى الطرق لبرمجة انتي فايرس لكن اريد معرفة المزيد وربما الاكواد الموجودة تحتاج الى تعديل ليقوم البرنامج بكتشاف الفيروسات التي موجودة في عالم الكمبيوتر .
تأكدوا لي من فضلكم من هذا الكود :
كود :
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
انا اعتقد الخلل موجود فيه لانه لايصداد الفيروسات رغم اني صممت احدى الفيروسات ولم يتعرف عليه وقمت بتحميل احدى البرامج المصابة ولم يتعرف عليه ايضا ما الحل يا اخوان ؟