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ú

Temas - 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
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!!  ::)
#3
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.


#4
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



#5
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.



#6
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
#7
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

#8
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

#9
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


#10
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
#11
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 :

#12
Hola a todos los de el foro, les traigo un pequeño en Ofuscador de código fuente
de batch.

Con esta herramienta Su Batch quedara seguro. /(Anti-Robo de codigo fuente  ;D)

ES una herramienta Comand line  espero que les sirva.

LINK DE LA HERRAMIENTA:

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

Code del programa:

Código: dos

@echo off
title batcrypt v0.1
color a
Rem Bat_Crypt=batcrypt
Rem BatOfuser v 2.1
Rem Ofusca tu codigo Batch y Ejecutalo
Rem script creado por Salvador F. Krilewski / S4Lsalsoft / Fisica 638
Rem funciona por linea de comandos

IF ["%~1"]==["-e"] goto o
IF ["%~1"]==["-E"] goto o
IF ["%~1"]==["-d"] goto d
IF ["%~1"]==["-D"] goto d
IF ["%~1"]==["-help"] goto help
IF ["%~1"]==["-HELP"] goto help
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³   Esta herramienta cifra un codigo de algun proyecto Batch ³
echo ³   Para luego ejecutarlo.                                      ³
echo ³                                                               ³
echo ³   Funcionamiento del script:                                  ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo ³   batcrypt -e "Ubicacion del bat" cifra el Bat             ³
echo ³                                                               ³
echo ³   Ejemplo:                                                    ³
echo ³   batcrypt -e "%userprofile%\Desktop\pto.bat"                  ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ       
echo ³   batcrypt -d "Ubicacion del bat" descifra un batch        ³
echo ³                                                               ³
echo ³   Ejemplo:                                                    ³ 
echo ³   batcrypt -d "%userprofile%\Desktop\pto.bat"                  ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo ³                                                               ³
echo ³   Esta version tiene un bug, Porfavor no cifrar            ³
echo ³   palabras que esten dentro de el simbolo %% .                 ³
echo ³                                                               ³
echo ³  PARA MAS INFORMACION:                                        ³
echo ³                                                               ³
echo ³           batcrypt -help                                      ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
pause>NUL
goto mas
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:Charlist
Set "Alpha=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
Set "Numeric=0123456789"
Set "Special=\|@#~!$%&/()=?<>;,.-_+*[]{}`'^^":
Set "Special_UTF8=...,¡¢£...ŠÖ•—µ,Öàé·ÔÞã뎉‹"šŽÓØ™š¤¥¦§ú¨­ï"
Rem Special_UTF8= áéíóú àèìòù ÁÉÍÓÚ ÀÈÌÒÙ äëïöü ÄËÏÖÜ ñ Ñ ª º · ¿ ¡ '
:o
set archivo="%~2"
cls
:sal
set p=set
set t=var
set "resultado=%resultado:"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz%" "
echo @echo off >> "cifrado.bat"
echo %p% %t%^=%resultado% >> "cifrado.bat"
goto :Ofuscador

:::::::::::::::::
:Ofuscador
:::::::::::::::::

:Lineas
Set Linea=0
For /F "Tokens=*" %%a in ('Type %archivo% ^| Find /V /C ""') do (Set Total=%%a)

:Leer_Ofuscador
If "%linea%" EQU "%total%" (Goto :Fin_Ofuscador)

For /F "Tokens=*" %%a in ('Type %archivo% ^| MORE +%Linea%') do (
    Echo: Ofuscando: "%%a"
    Set /A Linea+=1
    Set "String=%%a"
    If not defined string (Goto :Leer_Ofuscador)
    Echo %%a>"%TEMP%\String.tmp"
    FOR %%? IN (%TEMP%\String.tmp) DO ( SET /A Longitud=%%~z? - 2 )
    Goto :Ofuscar
)


:Ofuscar


If "%Count%" EQU "%Longitud%" (
    call :Write_Ofuscador
    Goto :Leer_Ofuscador)

::Comilladoble
Set "String=%String:"=€%"& rem "

::Espacio
If "%String:~0,1%" EQU " " (Set "New_String=%New_String% ")

::Alpha
If "%String:~0,1%" EQU "a" (Set "New_String=%New_String%%%var:~27,1%%")
If "%String:~0,1%" EQU "b" (Set "New_String=%New_String%%%var:~28,1%%")
If "%String:~0,1%" EQU "c" (Set "New_String=%New_String%%%var:~29,1%%")
If "%String:~0,1%" EQU "d" (Set "New_String=%New_String%%%var:~30,1%%")
If "%String:~0,1%" EQU "e" (Set "New_String=%New_String%%%var:~31,1%%")
If "%String:~0,1%" EQU "f" (Set "New_String=%New_String%%%var:~32,1%%")
If "%String:~0,1%" EQU "g" (Set "New_String=%New_String%%%var:~33,1%%")
If "%String:~0,1%" EQU "h" (Set "New_String=%New_String%%%var:~34,1%%")
If "%String:~0,1%" EQU "i" (Set "New_String=%New_String%%%var:~35,1%%")
If "%String:~0,1%" EQU "j" (Set "New_String=%New_String%%%var:~36,1%%")
If "%String:~0,1%" EQU "k" (Set "New_String=%New_String%%%var:~37,1%%")
If "%String:~0,1%" EQU "l" (Set "New_String=%New_String%%%var:~38,1%%")
If "%String:~0,1%" EQU "m" (Set "New_String=%New_String%%%var:~39,1%%")
If "%String:~0,1%" EQU "n" (Set "New_String=%New_String%%%var:~40,1%%")
If "%String:~0,1%" EQU "o" (Set "New_String=%New_String%%%var:~41,1%%")
If "%String:~0,1%" EQU "p" (Set "New_String=%New_String%%%var:~42,1%%")
If "%String:~0,1%" EQU "q" (Set "New_String=%New_String%%%var:~43,1%%")
If "%String:~0,1%" EQU "r" (Set "New_String=%New_String%%%var:~44,1%%")
If "%String:~0,1%" EQU "s" (Set "New_String=%New_String%%%var:~45,1%%")
If "%String:~0,1%" EQU "t" (Set "New_String=%New_String%%%var:~46,1%%")
If "%String:~0,1%" EQU "u" (Set "New_String=%New_String%%%var:~47,1%%")
If "%String:~0,1%" EQU "v" (Set "New_String=%New_String%%%var:~48,1%%")
If "%String:~0,1%" EQU "w" (Set "New_String=%New_String%%%var:~49,1%%")
If "%String:~0,1%" EQU "x" (Set "New_String=%New_String%%%var:~50,1%%")
If "%String:~0,1%" EQU "y" (Set "New_String=%New_String%%%var:~51,1%%")
If "%String:~0,1%" EQU "z" (Set "New_String=%New_String%%%var:~52,1%%")
If "%String:~0,1%" EQU "A" (Set "New_String=%New_String%%%var:~1,1%%")
If "%String:~0,1%" EQU "B" (Set "New_String=%New_String%%%var:~2,1%%")
If "%String:~0,1%" EQU "C" (Set "New_String=%New_String%%%var:~3,1%%")
If "%String:~0,1%" EQU "D" (Set "New_String=%New_String%%%var:~4,1%%")
If "%String:~0,1%" EQU "E" (Set "New_String=%New_String%%%var:~5,1%%")
If "%String:~0,1%" EQU "F" (Set "New_String=%New_String%%%var:~6,1%%")
If "%String:~0,1%" EQU "G" (Set "New_String=%New_String%%%var:~7,1%%")
If "%String:~0,1%" EQU "H" (Set "New_String=%New_String%%%var:~8,1%%")
If "%String:~0,1%" EQU "I" (Set "New_String=%New_String%%%var:~9,1%%")
If "%String:~0,1%" EQU "J" (Set "New_String=%New_String%%%var:~10,1%%")
If "%String:~0,1%" EQU "K" (Set "New_String=%New_String%%%var:~11,1%%")
If "%String:~0,1%" EQU "L" (Set "New_String=%New_String%%%var:~12,1%%")
If "%String:~0,1%" EQU "M" (Set "New_String=%New_String%%%var:~13,1%%")
If "%String:~0,1%" EQU "N" (Set "New_String=%New_String%%%var:~14,1%%")
If "%String:~0,1%" EQU "O" (Set "New_String=%New_String%%%var:~15,1%%")
If "%String:~0,1%" EQU "P" (Set "New_String=%New_String%%%var:~16,1%%")
If "%String:~0,1%" EQU "Q" (Set "New_String=%New_String%%%var:~17,1%%")
If "%String:~0,1%" EQU "R" (Set "New_String=%New_String%%%var:~18,1%%")
If "%String:~0,1%" EQU "S" (Set "New_String=%New_String%%%var:~19,1%%")
If "%String:~0,1%" EQU "T" (Set "New_String=%New_String%%%var:~20,1%%")
If "%String:~0,1%" EQU "U" (Set "New_String=%New_String%%%var:~21,1%%")
If "%String:~0,1%" EQU "V" (Set "New_String=%New_String%%%var:~22,1%%")
If "%String:~0,1%" EQU "W" (Set "New_String=%New_String%%%var:~23,1%%")
If "%String:~0,1%" EQU "X" (Set "New_String=%New_String%%%var:~24,1%%")
If "%String:~0,1%" EQU "Y" (Set "New_String=%New_String%%%var:~25,1%%")
If "%String:~0,1%" EQU "Z" (Set "New_String=%New_String%%%var:~26,1%%")

::Numeric
If "%String:~0,1%" EQU "0" (Set "New_String=%New_String%0")
If "%String:~0,1%" EQU "1" (Set "New_String=%New_String%1")
If "%String:~0,1%" EQU "2" (Set "New_String=%New_String%2")
If "%String:~0,1%" EQU "3" (Set "New_String=%New_String%3")
If "%String:~0,1%" EQU "4" (Set "New_String=%New_String%4")
If "%String:~0,1%" EQU "5" (Set "New_String=%New_String%5")
If "%String:~0,1%" EQU "6" (Set "New_String=%New_String%6")
If "%String:~0,1%" EQU "7" (Set "New_String=%New_String%7")
If "%String:~0,1%" EQU "8" (Set "New_String=%New_String%8")
If "%String:~0,1%" EQU "9" (Set "New_String=%New_String%9")

::Special
If "%String:~0,1%" EQU "á" (Set "New_String=%New_String%^^á")
If "%String:~0,1%" EQU "é" (Set "New_String=%New_String%^^é")
If "%String:~0,1%" EQU "í" (Set "New_String=%New_String%^^í")
If "%String:~0,1%" EQU "ó" (Set "New_String=%New_String%^^ó")
If "%String:~0,1%" EQU "ú" (Set "New_String=%New_String%^^ú")
If "%String:~0,1%" EQU "à" (Set "New_String=%New_String%^^à")
If "%String:~0,1%" EQU "è" (Set "New_String=%New_String%^^è")
If "%String:~0,1%" EQU "ì" (Set "New_String=%New_String%^^ì")
If "%String:~0,1%" EQU "ò" (Set "New_String=%New_String%^^ò")
If "%String:~0,1%" EQU "ù" (Set "New_String=%New_String%^^ù")
If "%String:~0,1%" EQU "Á" (Set "New_String=%New_String%Á")
If "%String:~0,1%" EQU "É" (Set "New_String=%New_String%É")
If "%String:~0,1%" EQU "Í" (Set "New_String=%New_String%Í")
If "%String:~0,1%" EQU "Ó" (Set "New_String=%New_String%^^Ó")
If "%String:~0,1%" EQU "Ú" (Set "New_String=%New_String%^Ú")
If "%String:~0,1%" EQU "À" (Set "New_String=%New_String%^À")
If "%String:~0,1%" EQU "È" (Set "New_String=%New_String%^È")
If "%String:~0,1%" EQU "Ì" (Set "New_String=%New_String%^^Ì")
If "%String:~0,1%" EQU "Ò" (Set "New_String=%New_String%^^Ò")
If "%String:~0,1%" EQU "Ù" (Set "New_String=%New_String%^^Ù")
If "%String:~0,1%" EQU "ä" (Set "New_String=%New_String%^^ä")
If "%String:~0,1%" EQU "ë" (Set "New_String=%New_String%^^ë")
If "%String:~0,1%" EQU "ï" (Set "New_String=%New_String%^^ï")
If "%String:~0,1%" EQU "ö" (Set "New_String=%New_String%^^ö")
If "%String:~0,1%" EQU "ü" (Set "New_String=%New_String%^^ü")
If "%String:~0,1%" EQU "Ä" (Set "New_String=%New_String%^Ä")
If "%String:~0,1%" EQU "Ë" (Set "New_String=%New_String%^^Ë")
If "%String:~0,1%" EQU "Ï" (Set "New_String=%New_String%^^Ï")
If "%String:~0,1%" EQU "Ö" (Set "New_String=%New_String%^^Ö")
If "%String:~0,1%" EQU "Ü" (Set "New_String=%New_String%^^Ü")
If "%String:~0,1%" EQU "ñ" (Set "New_String=%New_String%^^ñ")
If "%String:~0,1%" EQU "Ñ" (Set "New_String=%New_String%^^Ñ")
If "%String:~0,1%" EQU "ª" (Set "New_String=%New_String%^^ª")
If "%String:~0,1%" EQU "º" (Set "New_String=%New_String%º")
If "%String:~0,1%" EQU "¿" (Set "New_String=%New_String%¿")
If "%String:~0,1%" EQU "´" (Set "New_String=%New_String%^^´")

If "%String:~0,1%" EQU "€" (Set "New_String=%New_String%€")
If "%String:~0,1%" EQU "\" (Set "New_String=%New_String%^\")
If "%String:~0,1%" EQU "|" (Set "New_String=%New_String%^|")
If "%String:~0,1%" EQU "@" (Set "New_String=%New_String%@")
If "%String:~0,1%" EQU "#" (Set "New_String=%New_String%#")
If "%String:~0,1%" EQU "~" (Set "New_String=%New_String%^~")
If "%String:~0,1%" EQU "!" (Set "New_String=%New_String%^!")
If "%String:~0,1%" EQU "$" (Set "New_String=%New_String%$")
If "%String:~0,1%" EQU "%%" (Set "New_String=%New_String%%%")
If "%String:~0,1%" EQU "&" (Set "New_String=%New_String%^&")
If "%String:~0,1%" EQU "/" (Set "New_String=%New_String%/")
If "%String:~0,1%" EQU "(" (Set "New_String=%New_String%(")
If "%String:~0,1%" EQU ")" (Set "New_String=%New_String%)")
If "%String:~0,1%" EQU "=" (Set "New_String=%New_String%=")
If "%String:~0,1%" EQU "?" (Set "New_String=%New_String%?")
If "%String:~0,1%" EQU "<" (Set "New_String=%New_String%^<")
If "%String:~0,1%" EQU ">" (Set "New_String=%New_String%^>")
If "%String:~0,1%" EQU ";" (Set "New_String=%New_String%;")
If "%String:~0,1%" EQU "," (Set "New_String=%New_String%,")
If "%String:~0,1%" EQU "." (Set "New_String=%New_String%.")
If "%String:~0,1%" EQU "-" (Set "New_String=%New_String%-")
If "%String:~0,1%" EQU "_" (Set "New_String=%New_String%_")
If "%String:~0,1%" EQU "+" (Set "New_String=%New_String%+")
If "%String:~0,1%" EQU "*" (Set "New_String=%New_String%*")
If "%String:~0,1%" EQU "[" (Set "New_String=%New_String%^[")
If "%String:~0,1%" EQU "]" (Set "New_String=%New_String%^]")
If "%String:~0,1%" EQU "{" (Set "New_String=%New_String%{")
If "%String:~0,1%" EQU "}" (Set "New_String=%New_String%}")
If "%String:~0,1%" EQU "`" (Set "New_String=%New_String%`")
If "%String:~0,1%" EQU "'" (Set "New_String=%New_String%'")
If "%String:~0,1%" EQU "^" (Set "New_String=%New_String%^^^")
If "%String:~0,1%" EQU ":" (Set "New_String=%New_String%:")

Set "String=%String:~1%"
Set /A Count+=1
Goto :Ofuscar

:Write_Ofuscador
Set "New_String=%New_String:€="%"& rem "
Echo %New_String%>>"cifrado.bat"
If NOT Errorlevel 0 (Echo ERROR & pause & Exit /B 1)
Set "New_String="
Set "Count="
Goto :EOF

:Fin_Ofuscador
Echo REM By Salvafor F. Krilewski  >> "cifrado.bat"
Del /Q "%TEMP%\String.tmp"
Cls
echo Fin | More
pause
Exit


:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:d
set archivo="%~2"
cls
:Lineas
Set Linea=0
For /F "Tokens=*" %%a in ('Type %Archivo% ^| Find /V /C ""') do (Set Total=%%a)


:Leer_Desofuscador
For /F "Tokens=*" %%a in ('Type %Archivo% ^| MORE /E +%Linea%') do (
    Set /A Linea+=1
    Set "String=%%a"
    Goto Desofuscar
)

:Desofuscar

::Alpha
Set "String=%String:var:~27,1=a%"
Set "String=%String:var:~28,1=b%"
Set "String=%String:var:~29,1=c%"
Set "String=%String:var:~30,1=d%"
Set "String=%String:var:~31,1=e%"
Set "String=%String:var:~32,1=f%"
Set "String=%String:var:~33,1=g%"
Set "String=%String:var:~34,1=h%"
Set "String=%String:var:~35,1=i%"
Set "String=%String:var:~36,1=j%"
Set "String=%String:var:~37,1=k%"
Set "String=%String:var:~38,1=l%"
Set "String=%String:var:~39,1=m%"
Set "String=%String:var:~40,1=n%"
Set "String=%String:var:~41,1=o%"
Set "String=%String:var:~42,1=p%"
Set "String=%String:var:~43,1=q%"
Set "String=%String:var:~44,1=r%"
Set "String=%String:var:~45,1=s%"
Set "String=%String:var:~46,1=t%"
Set "String=%String:var:~47,1=u%"
Set "String=%String:var:~48,1=v%"
Set "String=%String:var:~49,1=w%"
Set "String=%String:var:~50,1=x%"
Set "String=%String:var:~51,1=y%"
Set "String=%String:var:~52,1=z%"
Set "String=%String:var:~1,1=A%"
Set "String=%String:var:~2,1=B%"
Set "String=%String:var:~3,1=C%"
Set "String=%String:var:~4,1=D%"
Set "String=%String:var:~5,1=E%"
Set "String=%String:var:~6,1=F%"
Set "String=%String:var:~7,1=G%"
Set "String=%String:var:~8,1=H%"
Set "String=%String:var:~9,1=I%"
Set "String=%String:var:~10,1=J%"
Set "String=%String:var:~11,1=K%"
Set "String=%String:var:~12,1=L%"
Set "String=%String:var:~13,1=M%"
Set "String=%String:var:~14,1=N%"
Set "String=%String:var:~15,1=O%"
Set "String=%String:var:~16,1=P%"
Set "String=%String:var:~17,1=Q%"
Set "String=%String:var:~18,1=R%"
Set "String=%String:var:~19,1=S%"
Set "String=%String:var:~20,1=T%"
Set "String=%String:var:~21,1=U%"
Set "String=%String:var:~22,1=V%"
Set "String=%String:var:~23,1=W%"
Set "String=%String:var:~24,1=X%"
Set "String=%String:var:~25,1=Y%"
Set "String=%String:var:~26,1=Z%"

::Numeric
Set "String=%String:0=0%"
Set "String=%String:1=1%"
Set "String=%String:2=2%"
Set "String=%String:3=3%"
Set "String=%String:4=4%"
Set "String=%String:5=5%"
Set "String=%String:6=6%"
Set "String=%String:7=7%"
Set "String=%String:8=8%"
Set "String=%String:9=9%"

::Special_UTF8
Set "String=%String:Special_UTF8:~0,1=...%"
Set "String=%String:Special_UTF8:~1,1=,%"
Set "String=%String:Special_UTF8:~2,1=¡%"
Set "String=%String:Special_UTF8:~3,1=¢%"
Set "String=%String:Special_UTF8:~4,1=£%"
Set "String=%String:Special_UTF8:~5,1=...%"
Set "String=%String:Special_UTF8:~6,1=Š%"
Set "String=%String:Special_UTF8:~7,1=Ö%"
Set "String=%String:Special_UTF8:~8,1=•%"
Set "String=%String:Special_UTF8:~9,1=—%"
Set "String=%String:Special_UTF8:~10,1=µ%"
Set "String=%String:Special_UTF8:~11,1=,%"
Set "String=%String:Special_UTF8:~12,1=Ö%"
Set "String=%String:Special_UTF8:~13,1=à%"
Set "String=%String:Special_UTF8:~14,1=é%"
Set "String=%String:Special_UTF8:~15,1=·%"
Set "String=%String:Special_UTF8:~16,1=Ô%"
Set "String=%String:Special_UTF8:~17,1=Þ%"
Set "String=%String:Special_UTF8:~18,1=ã%"
Set "String=%String:Special_UTF8:~19,1=ë%"
Set "String=%String:Special_UTF8:~20,1=Ž%"
Set "String=%String:Special_UTF8:~21,1=‰%"
Set "String=%String:Special_UTF8:~22,1=‹%"
Set "String=%String:Special_UTF8:~23,1="%"
Set "String=%String:Special_UTF8:~24,1=š%"
Set "String=%String:Special_UTF8:~25,1=Ž%"
Set "String=%String:Special_UTF8:~26,1=Ó%"
Set "String=%String:Special_UTF8:~27,1=Ø%"
Set "String=%String:Special_UTF8:~28,1=™%"
Set "String=%String:Special_UTF8:~29,1=š%"
Set "String=%String:Special_UTF8:~30,1=¤%"
Set "String=%String:Special_UTF8:~31,1=¥%"
Set "String=%String:Special_UTF8:~32,1=^ª%"
Set "String=%String:Special_UTF8:~33,1=§%"
Set "String=%String:Special_UTF8:~34,1=^·%"
Set "String=%String:Special_UTF8:~35,1=¿%"
Set "String=%String:Special_UTF8:~36,1=­%"
Set "String=%String:Special_UTF8:~37,1=ï%"

::Special
Set "String=%String:Special:~0,1=^\%"
Set "String=%String:Special:~1,1=^|%"
Set "String=%String:Special:~2,1=@%"
Set "String=%String:Special:~3,1=#%"
Set "String=%String:Special:~4,1=^~%"
Set "String=%String:Special:~5,1=^^^!%"
Set "String=%String:Special:~6,1=$%"
Set "String=%String:Special:~7,1=€%"
Set "String=%String:Special:~8,1=^&%"
Set "String=%String:Special:~9,1=/%"
Set "String=%String:Special:~10,1=(%"
Set "String=%String:Special:~11,1=)%"
Set "String=%String:Special:~12,1==%"
Set "String=%String:Special:~13,1=?%"
Set "String=%String:Special:~14,1=^<%"
Set "String=%String:Special:~15,1=^>%"
Set "String=%String:Special:~16,1=;%"
Set "String=%String:Special:~17,1=,%"
Set "String=%String:Special:~18,1=.%"
Set "String=%String:Special:~19,1=-%"
Set "String=%String:Special:~20,1=_%"
Set "String=%String:Special:~21,1=+%"
Set "String=%String:Special:~22,1=*%"
Set "String=%String:Special:~23,1=^[%"
Set "String=%String:Special:~24,1=^]%"
Set "String=%String:Special:~25,1={%"
Set "String=%String:Special:~26,1=}%"
Set "String=%String:Special:~27,1=`%"
Set "String=%String:Special:~28,1='%"
Set "String=%String:Special:~29,1=^^^^%"
Set "String=%String:Special:~30,1=:%"


Echo string "%STRING%"
Call :Write_Desofuscador

:Write_Desofuscador





cabe destacar que esta herramienta posee un único bug. no debes ofuscar las variables dentro de el signo %.




Como se usa?

creas un batch con la siguiente linea:
Código: dos
BatchCript.bat -e (nombre de tu batch a ofuscar) o usa -d (nombre de tu batch a desofuscar creo q tenia bug pero unca lo termine :v)





Ejemplo :

Código: dos
@echo off
echo hola mundo
pause


Ofuscado con BatCrytp:

Código: dos

@echo off
set var="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" 
@%var:~31,1%%var:~29,1%%var:~34,1%%var:~41,1% %var:~41,1%%var:~32,1%%var:~32,1%
%var:~31,1%%var:~29,1%%var:~34,1%%var:~41,1% %var:~34,1%%var:~41,1%%var:~38,1%%var:~27,1% %var:~39,1%%var:~47,1%%var:~40,1%%var:~30,1%%var:~41,1%
%var:~42,1%%var:~27,1%%var:~47,1%%var:~45,1%%var:~31,1%
REM By Aincrad


Y LA SALIDA SIEMPRE ES LA MISMA.  ;D

PD: Esta es una de mis creaciones a las cuales le he puesto mucho cariño,sudor y lagrimas :V.




Ahora el bug que comente hace rato, les pondré un ejemplo:

Si ofuscan la parte %m% no les correra el code:

Código: dos
@echo off
set m=hola mundo
echo %m%
pause


Por lo tanto deben ofuscarlo así :

Código: dos
@echo off 
set var="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" 
@%var:~31,1%%var:~29,1%%var:~34,1%%var:~41,1% %var:~41,1%%var:~32,1%%var:~32,1%
%var:~45,1%%var:~31,1%%var:~46,1% %var:~39,1%=%var:~34,1%%var:~41,1%%var:~38,1%%var:~27,1% %var:~39,1%%var:~47,1%%var:~40,1%%var:~30,1%%var:~41,1%
%var:~31,1%%var:~29,1%%var:~34,1%%var:~41,1% %m% ------------------------ Como pueden ver Ofusque todo menos el %m% asi correra el code perfecto.
%var:~42,1%%var:~27,1%%var:~47,1%%var:~45,1%%var:~31,1%
REM By Salvafor F. Krilewski





He codeado y mejORado esta herramienta en No tienes permitido ver los links. Registrarse o Entrar a mi cuenta en forma de un IDE  Para programar en Batch y vbs , contiene múltiples herramientas de Ofuscacion ,Encryptacion , convertor a .exe y mas . la herramienta la pueden descargar gratis AQUI:

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

Features + Imagenes de mi Programa:



*Ofuscacion
*Bat to Exe
*Encryptacion
*musica online NCS .
*Generador EXE anti - robo de codigo fuente . (mejor que BAT TO EXE)
*VBS to Bat Convertidor de Codigo
*Editor de Archivos Basic (.bas)
*Multi Abridor de archivos
*Copilador Multilenguaje
*(Batch / VBS) agregado

*Gratis

*Program with background music, in a pleasant atmosphere.





Bueno me he Extendido demasiado . SALUDOS , Comenten Porfa no quiero quedar ignorado.
#13
Batch - Bash / [batch] Batch to vbs Converter v0.2
Junio 03, 2018, 08:23:33 PM
Bueno ya había posteado esto hace un tiempo en otro foro y ahora lo traigo a este espero que les sirva.  ;D

Batch to VBS Converter 0.2

Código: dos
@echo off
Title Batch to VBS Converter 0.2
set cd=%cd%
set t=%temp%
goto eleminar
:vbs
color b
set codevbs1=ar.writeline "
set codevbs2="
echo.
echo  Escribe el nombre del bat a aconvertir + su formato ".bat o .cmd" ejemplo: "hola.bat"
echo.
set /p batavbs= ^>^>^>
if not exist %batavbs% (goto:err)
type %batavbs% > %t%\bat.txt

call :remplace

:r
if not exist %t%\batavbs.txt (goto r)

(
echo Const TemporaryFolder ^= 2
echo.
echo Dim fso^: Set fso ^= CreateObject^("Scripting.FileSystemObject"^)
echo.
echo Dim tempFolder^: tempFolder ^= fso^.GetSpecialFolder^(TemporaryFolder^)
echo.
echo set b^=createobject^("wscript.shell"^)
echo Set objfso ^= createobject^("scripting.filesystemobject"^)
echo Set ar^= objfso^.createtextfile^(tempFolder ^& "archivo.bat"^,true^)
echo.
) >> %t%\temp.vbs

for /f "tokens=*" %%x in ('type %t%\batavbs.txt') do (echo %codevbs1% %%x %codevbs2%) >> %t%\temp.vbs
type "%t%\temp.vbs

(
echo ar^.close
echo b^.run tempFolder ^& "archivo.bat"^, ^1, true
echo ^'Create By Salvador F. Krilewski.
) >> %t%\temp.vbs
copy "%t%\temp.vbs" "%cd%\%batavbs%Converted.vbs"
del "%t%\batavbs.txt"
cls
color a
echo.
echo Proceso terminado .  yyy y  PUT0 EL QUE LO LEA  jajaja
echo.
if exist "%t%\bat.txt" del "%t%\bat.txt"
if exist "%t%\batavbs.txt" del "%t%\batavbs.txt"
if exist "%t%\archivo.bat" del "%t%\archivo.bat"
if exist "%t%\temp.vbs" del "%t%\temp.vbs"
if exist "%t%\bat2.txt" del "%t%\bat2.txt"
pause & exit

:eleminar
if exist "%t%\bat2.txt" del "%t%\bat2.txt"
if exist "%t%\bat.txt" del "%t%\bat.txt"
if exist "%t%\batavbs.txt" del "%t%\batavbs.txt"
if exist "%t%\archivo.bat" del "%t%\archivo.bat"
if exist "%t%\temp.vbs" del "%t%\temp.vbs"
goto vbs

:err
cls
color c
echo.
echo EL ARCHIVO QUE ESCRIBISTE NO EXISTE PERRO
ECHO.
pause & exit

:remplace
setlocal enabledelayedexpansion
for /f "tokens=* delims=" %%x in ('type %t%\bat.txt') do (
set linea=%%x
set linea=!linea:%%=%%%%!
set linea=!linea:"=""!
call :show !linea!
)
goto:eof
:show
echo %* >> %t%\batavbs.txt
goto:eof


SALUDOS
#14
Bueno como dice el titulo es un Injector de archivos dll . bueno yo lo uso mas que todo al jugar HALO o CS 1.6 .     HACKS jejeje.

source code :

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

Programa :

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

captura del programa :

                                                 

                                                  COMENTEN CUALQUIER CRITICA O COMENTARIO .  :D

PD : La parte de RUN Tiene algunos pequeños bug al inyectar el DLL de resto funciona de maravilla. XD




Este código Fuentes es Viejo lo había publicado en otro foro y ahora lo publico aqui.

El bug de esta versión fue corregido y se le agregaron mas herramientas , Todabia le doy soporte (pero el codigo fuente no se comparte , pueden ver y descargar la nueva version aqui) :

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

saludos
#15
C# - VB.NET / [SOURCE-CODE] ChatBot Samples VB.NET
Junio 01, 2018, 09:06:22 PM
hola a todos , bueno hoy les traigo  Unos Códigos Fuentes de Chatbots , Para el que los quiera:

Link:

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

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




Bueno algunas imágenes:



Saludos
#16
El MultiHack contiene :


* Point Blank Loader
* Bypass al ANTICHEAT X-TRAP . XD . Próximamente buscare otras formas de Burlarlo , (tal-vez pausando el Proceso y editando la memoria XD )
* WALLHACK CT
* WALLHACK TR
* AIMBOT


Bueno He Aquí una foto del Multihack :



Análisis de Virus-total :

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

Genial nunca vi un Hack Tan limpio  :P

Link del Archivo Ejecutable:

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

Link del SOURCE-CODE:

No tienes permitido ver los links. Registrarse o Entrar a mi cuenta
#17
C# - VB.NET / [SOURCE-CODE] AV Engine Demo
Junio 01, 2018, 08:56:07 PM
Bueno , primero hola foro  ;D .

Hoy les trigo una manera simple de escanear archivos por medio de su Hash . en No tienes permitido ver los links. Registrarse o Entrar a mi cuenta es casi imposible crear un antivirus. si creas un antivirus en No tienes permitido ver los links. Registrarse o Entrar a mi cuenta lo tendrias muy limitado.

Para crear un antivirus en No tienes permitido ver los links. Registrarse o Entrar a mi cuenta la mejor forma de hacerlo en recurrir a apis de otros softwares tales como : CLAM , WINDOWS DEFENDER , ENTRE OTROS..

LA Segunda forma y es la mas usada, es por medio de escanear el Hash. (Digo la mas usada porque en Google buscas "ANTIVIRUS EN No tienes permitido ver los links. Registrarse o Entrar a mi cuenta" y te salen proyectos que utilizan nada mas este método.)




Bueno hoy les traigo un Ejemplo de Scan por Hash de MD5. CON LA CUAL PODRAN HACER UN Antivirus Barato :V.

Se Preguntaran : ¿por que les traigo un proyecto que se puede encontrar fácilmente en google. ? :

Bueno en la mayoría de Proyectos que consigues tienen como Base de datos unos 30 o 50 virus registrados . PERO YO LES TRAIGO UNA BASE DE DATOS CON :

1.441.802 VIRUS REGISTRADOS (MD5 Hash)





Bueno les de jo los link + Imágenes:

Ejecutable :

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

Codigo Fuente:

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




Imagen:


Saludos