Prireikė čia vienam žmogiukui asmens kodo tikrinimo programėlės. Teko skubiai nusirašyti iš interneto tikrinimo algorintmą ir sukišti į Microsoft Visual Basic apvalkalą. Va ir gavoasi va tokis produktas: Asmens kodo tikrinimas.

Programa gali reikalauti MS Visual Basic runtime. Ją laisvai galima rasti internete ar MS interneto puslapiuose.

Pats tikrinimo algoritmas visiškai paprastas. Manau jį lengvai galima įkišti į MS Excel Basicą:

Ženkliukas “” reiškia, kad perkėlimas į kitą eilute nereikalingas.

Private Function chksum(ak)
Dim c, c1
c = Val(Mid$(ak, 1, 1)) + Val(Mid$(ak, 2, 1)) * 2 +
\ Val(Mid$(ak, 3, 1)) * 3 + Val(Mid$(ak, 4, 1)) * 4 +
\ Val(Mid$(ak, 5, 1)) * 5 + Val(Mid$(ak, 6, 1)) * 6 +
\ Val(Mid$(ak, 7, 1)) * 7 + Val(Mid$(ak, 8, 1)) * 8 +
\ Val(Mid$(ak, 9, 1)) * 9 + Val(Mid$(ak, 10, 1))
c = c Mod 11
c1 = Val(Mid$(ak, 1, 1)) * 3 + Val(Mid$(ak, 2, 1)) * 4 +
\ Val(Mid$(ak, 3, 1)) * 5 + Val(Mid$(ak, 4, 1)) * 6 +
\ Val(Mid$(ak, 5, 1)) * 7 + Val(Mid$(ak, 6, 1)) * 8 +
\ Val(Mid$(ak, 7, 1)) * 9 + Val(Mid$(ak, 8, 1)) * 1 +
Val(Mid$(ak, 9, 1)) * 2 + Val(Mid$(ak, 10, 1)) * 3
c1 = c1 Mod 11
If c <> 10 Then
    chksum = c
ElseIf c1 <> 10 Then
    chksum = c1
Else
    chksum = 0
End If
End Function

Private Function ak(s)
Dim i
i = chksum(s)
If Mid$(s, 11, 1) = i Then
    ak = True
Else
    ak = False
End If
End Function

Algoritmas tekstinėje formoje.
O štai čia Asmens kodo tikrinimas MS EXCEL. Tik pasireguliuokite savo “security” nustatymus excelyje.

Yra daugybė antspyware ar addware programų. Kai kurios yra gaunamos dykai, kai kurios komercinės, o kai kurios pačios yra su addware ir spyware elementais. Taigi, kiekvienas Windows vartotojas turi žinoti keletą vietelių savo windows sistemoje.

1. Start menu, Startup direktorija. Pašalinti visas nereikalingas, keistas ir nepageidaujamas programas.

2. Aplankykit control panel, add remove programs. Nuinstaliuokit visas nenaudojamas ar blogas programas.

3. Paleiskit regedit. (Start, Run, regedit). Pradedantysis vartojas gali apžiūrėti kelias vietas:
My Computer\HKEY_CURRENT_USER\Software\Microsoft\Winodows\CurrentVersion\ ir patikrinkit Run ir RunOne šakas. Pašalionkit visas nereikalingas eilutes.

Taip pat:
My Computer\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ ir patikrinti Run, RunOnce ir RunOnceEx…

4. Sekantis etapas patikrinti senus sisteminius failus win.ini ir system.ini iš windows sistemos direktorijos. Žiūrėkit į [run] sekciją.

5. Eikit į savo Internet explorer propertus- Temporary Internet Files->Settings->View Objects. Ir ten ištrinti įtartinus ir “bad” objektus.

Taip pat nuspauskit Control+Alt+Delete, kad iškviesti task manager. Paieškokit svetimų proecesų. Stabdykit juos, ir jei jie vėl pasileidžia- tai bloga programa. Įsidemėkit programos pavadinimą ir paieškokite to failo. Pabandykit jį ištrinti. Jei windows OS neleidžia tai padaryti, pabandykit pervardinti failo pavadinimą ar direktorijos pavadinimą. Kartais, kai virusinės programos pasileidinėja sudėtingesniais metodais, labai smagu pakeisti virusinį failą į tekstinį. Su notepad sukuriam tekstinį failą ir pervardinam į virusinį. Lai tas suknistas virusas bando paleisti tekstinį failą.

Labai gerasm bet pavojingas įrankis yra “HijackThis.exe”. Ši programa parodo visus pavojinmgus momentus ir vartotojas su pleyte gali ištrinti jam nepationkamus procesus.

būkit atsargūs, jūs galite nužudyti savo windows sistemą, jei ištrinsit ne tą ką reikią.