Kaspersky 2010 - RESET TRIAL, BETA

Option Explicit

Dim manman89
Dim check

check = msgBox("BAN MUON RESET THEO KIEU NAO" & vbcrlf & vbcrlf & "Yes	=	TRIAL" & vbcrlf & vbcrlf & "No	=	BETA", vbYesNo, "KASPERSKY INTERNET SECURITY 2010 - Version : 9.0.0.736")
if check = vbYes then

	manman89="CHUONG TRINH : RESET TRIAL - KASPERSKY INTERNET SECURITY 2010 - VERSION : 9.0.0.736"+vbcrlf+vbcrlf
	manman89=manman89 + "Buoc 0 : Remove Key Trial"+vbcrlf+vbcrlf
	manman89=manman89 + "Buoc 1 : UnCheck --> Enable SELF-DEFENSE => Trong Phan : SETTINGS -> OPTIONS --> OK"+vbcrlf+vbcrlf
	manman89=manman89 + "Buoc 2 : EXIT Kaspersky => RIGHT CLICK ICON IN TASKBAR --> EXIT"+vbcrlf+vbcrlf
	manman89=manman89 + "Are you ready."

	check = msgBox(manman89, vbYesNo, "KASPERSKY INTERNET SECURITY 2010 - Version : 9.0.0.736")
	if check = vbNo then Wscript.Quit

	function x()
		Dim mangchar(20)
		mangchar(1)=1
		mangchar(2)=2
		mangchar(3)=3
		mangchar(4)=4
		mangchar(5)=5
		mangchar(6)=6
		mangchar(7)=7
		mangchar(8)=8
		mangchar(9)=9
		mangchar(10)="A"
		mangchar(11)="B"
		mangchar(12)="C"
		mangchar(13)="D"
		mangchar(14)="E"
		mangchar(15)="F"
		mangchar(16)=0
		Randomize
		x = mangchar(cint(rnd()*16))
	end function

	dim codepcid,codepcid1
	codepcid="{"&x()&x()&x()&x()&x()&x()&x()&x()&"-"&x()&x()&x()&x()&"-"&x()&x()&x()&x()&"-"&x()&x()&x()&x()&"-"&x()&x()&x()&x()&x()&x()&x()&x()&x()&x()&x()&x()&"}"

	Dim ws,p1,cn
	Set ws = WScript.CreateObject("WScript.Shell")

		codepcid1="Release"
		Set ws = WScript.CreateObject("WScript.Shell")

		p1 = "HKLM\SOFTWARE\KasperskyLab\protected\AVP9\environment\"
		ws.RegWrite p1 & "ProductStatus", codepcid1

	p1 = "HKLM\SOFTWARE\KasperskyLab\protected\AVP9\environment\"
	ws.RegWrite p1 & "PCID", codepcid

		on error resume next
		Dim keydel1
		Dim keydel2
		Dim keydel3

		keydel1="HKLM\SOFTWARE\KasperskyLab\LicStorage\"
		keydel2="HKLM\SOFTWARE\Microsoft\Cryptography\RNG\"
		keydel3="HKLM\SOFTWARE\Microsoft\SystemCertificates\SPC\Certificates\"

		ws.RegDelete keydel1
		ws.RegDelete keydel2
		ws.RegDelete keydel3

	Dim success
	Dim msg2
	msg2="RESET TRIAL - KASPERSKY INTERNET SECURITY 2010 - VERSION : 9.0.0.736 --> THANH CONG" & vbcrlf & vbcrlf
	msg2=msg2 & "Buoc 3 : OPEN KASPERSKY --> ACTIVATE TRIAL LICENSE --> NEXT" & vbcrlf & vbcrlf
	msg2=msg2 & "Buoc 4 : SETTINGS --> OPTIONS --> Check Enable SELF-DEFENSE" & vbcrlf & vbcrlf
	msg2=msg2 & "VN-NEW.COM © ManMan89"

	success=msgbox (msg2,vbYes,"Chuc Mung Ban")

else

	check = msgBox("Buoc 0 : Remove Key Trial"&vbcrlf&vbcrlf&"Are you ready.", vbYesNo, "KASPERSKY INTERNET SECURITY 2010 - Version : 9.0.0.736")
	if check = vbYes then

		codepcid="BETA"
		Set ws = WScript.CreateObject("WScript.Shell")

			on error resume next
			keydel1="HKLM\SOFTWARE\KasperskyLab\LicStorage\"
			keydel2="HKLM\SOFTWARE\Microsoft\Cryptography\RNG\"
			keydel3="HKLM\SOFTWARE\Microsoft\SystemCertificates\SPC\Certificates\"

			ws.RegDelete keydel1
			ws.RegDelete keydel2
			ws.RegDelete keydel3

		p1 = "HKLM\SOFTWARE\KasperskyLab\protected\AVP9\environment\"
		ws.RegWrite p1 & "ProductStatus", codepcid

		msg2="RESET BETA - KASPERSKY INTERNET SECURITY 2010 - VERSION : 9.0.0.736 --> THANH CONG" & vbcrlf & vbcrlf
		msg2=msg2 & "Buoc 1 : OPEN KASPERSKY --> ACTIVATE BETA LICENSE --> NEXT" & vbcrlf & vbcrlf
		msg2=msg2 & "Buoc 2 : SETTINGS --> OPTIONS --> Check Enable SELF-DEFENSE" & vbcrlf & vbcrlf
		msg2=msg2 & "VN-NEW.COM © ManMan89"

		success=msgbox (msg2,vbYes,"Chuc Mung Ban")

	end if
end if
Wscript.Quit