يىقىندىن بىرى كۆپچىلىكنىڭ مۇسابىقە قىزغنلىقى ئىشىپ بىرىۋاتىدۇ.نادىر تىمىلارمۇ چىقىۋاتىدۇ.نادىر تىمىلار توختاپ قالمىسۇن......
بۈگۈن سىلەرگە ئىلىپ كەلگىنىم Autorun.inf ۋىرۇسىدىن مۇداپىئەلىنىدىغان كىچك قۇرال ياساش.
قۇرال پىرىنسىپى تۆۋەندىكىدەك:
كۆپچىلىك بىلىمىز DOS بۇيرۇقى بىلەن ئۆچۈرگىلى،ئۆزگەرتكىلى بولمايدىغان ھۆججەت قىسقۇچ قۇرغىلى بولىدۇ.ئەلۋەتتە بۇخىل ھۆججەت قىسقۇچلاردىن پايدلىنىپ قىسمەن ۋىرۇسلاردىن ساقلىنىشقىمۇ بولىدۇ.Autorun.inf ۋىرۇسى بولسا بارماق دىسكا،كۆپ ۋاستە كارتسى،كۆچمە دىسكا قاتارلىقلارغا ئاسان يۇقۇۋالغاندىن سىرىت ئاساسلىقى كومپىيوتىرغا شۇخىل ئۈسكىنىلەر ئۇلانغان چاغدا ئاپتوماتىك قوزغىلىپ كومپىيوتىرنى يۇقۇملاندۇرىدۇ.Autorun.inf پەقەت ۋىرۇس ئىجرا قىلىش ئىقتىدارىغا ئىگە بولۇپ ئۇ يەككە ھالەتتە ۋىرۇس ئەمەس.
ئەمدى نەق گەپكە كەلسەك DOS بۇيرۇقىدا Autorun.inf نى تۆۋەندىكىدەك قۇرىمىز:
D دىسكا رايونىغا Autorun.inf نى قۇرىدۇ.
- D:\>md autorun.inf\sada../
شۇنىڭ بىلەن d دىسكا رايونىغا ئۆچۈرۈشكە،ئۆزگەرتىشكە بولمايدىغان ھۆججەت قىسقۇچ قۇرۇلدى.
بىز مۇشۇ پىرىنسىپتىن پايدىلىنىپ VB دا يۇقارقى جەرياننى يىزىپ چىقساقلا بولىدۇ.
Mkdir بۇيرۇقى ئارقىلىق ھۆججەت قىسقۇچ قۇرۇشقا بولىدۇ.بۇ بۇيرۇقنى ئىشلىتىپ Autorun.inf ۋىرۇسىدىن مۇداپىئەلىنىش قۇرالىنىڭ ئومۇمىي كودى :
- Private Sub Command1_Click()
- If Dir(Text1.Text & "/autorun.inf", vbDirectory) = "" Then
- On Error Resume Next
- MkDir (Text1.Text & "/autorun.inf")
- On Error Resume Next
- MkDir (Text1.Text & "/autorun.inf/sada...")
- Else
- MsgBox "Bu Diskida autorun.inf Mewjut!", vbInformation, "Eskertish!"
- End If
- End Sub
دەرىسلىك تامام!
مەسىلە بولسا ۋاقتىدا ئەسكەرتىپ قويۇڭلا!
|
