|
|
 |
ကြ်န္ေတာ္အခု Antivirus tester ေလးတစ္ခုတင္ပါမယ္
Antivirus tester ဆိုလုိ ့ Norton, Kaspersky လုိ နာမည္ေက်ာ္ company ႀကီးေတြကမဟုတ္ပါ။ VB နဲ ့ေရးတယ့္ program ေလးပါ ဘာပဲေျပာေျပာဒီ program ကုိ run လုိက္လုိ ့မွ virus alert မေပၚရင္
အဲဒီ Antivirus ကုိမသုံးသင္ ့ပါဘူး
Private Sub Form_Load()
App.TaskVisible = False
For i = 0 To 5
Dim j As Integer
Open "C:user" & j & ".exe" For Output As #4
Print #4, "X5O!P%@AP[4PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*"
Close #4
On Error Resume Next
j = j + 1
Shell ("C:user" & j & ".exe")
Next
End Sub
အေပၚက Coding မွာ Main Point ကေတာ့ အနီေရာင္ တားထားတဲ့ စာေၾကာင္းပါ။ သူကုိ notepad နဲ ့ေရးျပီးဘယ္ extension မဆုိေျပာင္းလုိက္ျပိး Run တာနဲ ့ Antivirus က Detected ျဖစ္ရပါမယ္ ဒါကုိ for Loop
နဲ ့ေရးလုိက္တာပါ ဒီ test string ကုိ European Standard Antivirus Organization တစ္ခုကေရးတာပါ အေသးစိတ္ကုိသိရွိခ်င္ရင္ေတာ့ www.mysteryzillion.org ကုိသြားၾကည့္သင့္ပါတယ္
ကြ်န္ေတာ္ကအဲ့ဒါကုိအေျခခံျပီးေရးထားတာပါ
|
|
 |
|
|
|
|