Mostrar Mensajes

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

Temas - Aincrad

Páginas: [1]
1
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 : You are not allowed to view links. Register or Login


Pasos Para Instalar :

1) Descargar y extraer : You are not allowed to view links. Register or Login
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) You are not allowed to view links. Register or Login
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) You are not allowed to view links. Register or Login
Debug "hola"



Aqui un ejemplo :

Código: (vb) You are not allowed to view links. Register or Login
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!!  ::)

2
Batch - Bash / [BATCH] Obfuscar Codigo Batch y Ejecutarlo.
« en: Febrero 27, 2020, 12:12:59 pm »
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 : (You are not allowed to view links. Register or Login)




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

You are not allowed to view links. Register or Login

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 vb.net acomode dicho bug. ya esta listo :

Link de Descarga del IDE:  You are not allowed to view links. Register or Login

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: You are not allowed to view links. Register or Login
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.


 

3
C# - VB.NET / [Source] Monaco Script Editor
« en: 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 : You are not allowed to view links. Register or Login



4
C# - VB.NET / [SOURCE-CODE] External No Recoil .
« en: 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 :

You are not allowed to view links. Register or Login

Imagenes ( Con el Programa / Sin el Programa) :





Creditos a Mi.




5
C# - VB.NET / [VB.NET] Anti - Virtual Machine
« en: 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) 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

Class - AntiVM

You are not allowed to view links. Register or Login

6
C# - VB.NET / [SOURCE-CODE] Real D3D Menu in VB.NET
« en: 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 : You are not allowed to view links. Register or Login


7
C# - VB.NET / [SOURCE-CODE] Color.NET - Color Picker
« en: Noviembre 15, 2018, 11:23:02 pm »
Bueno el compañero @You are not allowed to view links. Register or Login 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

You are not allowed to view links. Register or Login


8
C# - VB.NET / [VB.NET] RDYou - Radio, Youtube (Search) (Player)
« en: Septiembre 10, 2018, 08:10:38 pm »
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:


You are not allowed to view links. Register or Login

You are not allowed to view links. Register or Login


Imagenes:








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



9
Batch - Bash / [BATCH] Batch Auto Hide Start [BAHS]
« en: 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) You are not allowed to view links. Register or Login
@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: You are not allowed to view links. Register or Login

Bueno espero que les sirva de algo este sencillo aporte.   ;D

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

You are not allowed to view links. Register or Login

foto del foro en la seccion de mi cuenta :


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

You are not allowed to view links. Register or Login

Code del programa:

Código: (dos) You are not allowed to view links. Register or Login
@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,[email protected]%"
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) You are not allowed to view links. Register or Login
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) You are not allowed to view links. Register or Login
@echo off
echo hola mundo
pause

Ofuscado con BatCrytp:

Código: (dos) You are not allowed to view links. Register or Login
@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) You are not allowed to view links. Register or Login
@echo off
set m=hola mundo
echo %m%
pause

Por lo tanto deben ofuscarlo así :

Código: (dos) You are not allowed to view links. Register or Login
@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 VB.NET 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:

You are not allowed to view links. Register or Login

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.

12
Batch - Bash / [batch] Batch to vbs Converter v0.2
« en: 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) You are not allowed to view links. Register or Login
@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

13
C# - VB.NET / [SOURCE-CODE] DLL Injector v0.2.4 Alpha .
« en: Junio 01, 2018, 09:14:03 pm »
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 :

You are not allowed to view links. Register or Login

Programa :

You are not allowed to view links. Register or Login

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) :

You are not allowed to view links. Register or Login

saludos

14
C# - VB.NET / [SOURCE-CODE] ChatBot Samples VB.NET
« en: 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:

You are not allowed to view links. Register or Login

You are not allowed to view links. Register or Login



Bueno algunas imágenes:



Saludos

15
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 :

You are not allowed to view links. Register or Login

Genial nunca vi un Hack Tan limpio  :P

Link del Archivo Ejecutable:

You are not allowed to view links. Register or Login

Link del SOURCE-CODE:

You are not allowed to view links. Register or Login

16
C# - VB.NET / [SOURCE-CODE] AV Engine Demo
« en: 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 vb.net es casi imposible crear un antivirus. si creas un antivirus en vb.net lo tendrias muy limitado.

Para crear un antivirus en VB.NET 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 VB.NET" 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 :

You are not allowed to view links. Register or Login

Codigo Fuente:

You are not allowed to view links. Register or Login



Imagen:


Saludos

Páginas: [1]