vırus tester





ကြ်န္ေတာ္အခု 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 ကုိသြားၾကည့္သင့္ပါတယ္
ကြ်န္ေတာ္ကအဲ့ဒါကုိအေျခခံျပီးေရးထားတာပါ



My clock
 


 
 
 
 
Today, there have been 2 visitors (22 hits) on this page!
This website was created for free with Own-Free-Website.com. Would you also like to have your own website?
Sign up for free