elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: ¿Usas Skype? Protégete de los Skype Resolver


  Mostrar Mensajes
Páginas: 1 2 3 4 [5] 6 7 8 9 10 11 12 13 14 15
41  Programación / Scripting / [APORTE] [VBS] Convertidor de .vbs a .bat . (VBS2CMD) en: 2 Octubre 2017, 21:58
hola a todos los del foro.  :laugh:
hoy les traigo un convertidor de archivos vbs a .bat  . que encontre en internet, creo que el autor se llama Denis   (VBS2CMD)

code del convertidor (VBS2CMD.vbs)

Código
  1. Option Explicit
  2.  
  3. Const ForReading = 1
  4. Const ForWriting = 2
  5. Const ForAppending = 8
  6. Const TristateUseDefault = -2
  7.  
  8. Dim arrVBStext
  9. Dim blnQuiet
  10. Dim intOVRWT, intResult, intValidArgs
  11. Dim objDialog, objFile, objFSO, wshShell
  12. Dim strBaseFileName, strCMDout, strFileName, strFileNameIN, strFileNameOUT
  13. Dim strNewText, strOldText, strText, strVBSline
  14.  
  15. With WScript.Arguments
  16. If .Unnamed.Count > 1 Then Syntax
  17. intValidArgs = 0
  18. If .Unnamed.Count = 1 Then
  19. strFileNameIN = .Unnamed(0)
  20. intValidArgs = intValidArgs + 1
  21. End If
  22. If .Named.Exists( "Q" ) Then
  23. blnQuiet = True
  24. intValidArgs = intValidArgs + 1
  25. End If
  26. If intValidArgs <> .Count Then Syntax
  27. End With
  28.  
  29. Set WshShell = WScript.CreateObject( "WScript.Shell" )
  30. Set objFSO = CreateObject( "Scripting.FileSystemObject" )
  31.  
  32. If strFileNameIN = "" Then
  33. 'File browse dialog box (XP only) (NFG in 7/2008, Thank you MS!)
  34. On Error Resume Next
  35. Set objDialog = CreateObject( "UserAccounts.CommonDialog" )
  36. If Err Then
  37. strFileNameIN = ""
  38. WScript.Echo "No file specified."
  39. Else
  40. objDialog.Filter = "All Files|*.*"
  41. objDialog.InitialDir = wshShell.CurrentDirectory
  42. intResult = objDialog.ShowOpen
  43. If intResult = 0 Then
  44. strFileNameIN = ""
  45. wshShell.Popup "No file selected.", 1, " ", 64
  46. Else
  47. strFileNameIN = objDialog.FileName
  48. End If
  49. Set objDialog = Nothing
  50. End If
  51.  
  52. Set objDialog = Nothing
  53. On Error Goto 0
  54. End If
  55.  
  56. If strFileNameIN = "" Then Syntax
  57.  
  58. strFileNameOUT = objFSO.GetParentFolderName( strFileNameIN ) & objFSO.GetBaseName( strFileNameIN ) & "_CONVERTED.CMD"
  59.  
  60. 'Check if strFileNameOUT exists already
  61. If objFSO.FileExists( strFileNameOUT ) Then  'does the file EXIST?
  62. If blnQuiet Then
  63. WScript.Echo "Deleting existing file."
  64. objFSO.DeleteFile( strFileNameOUT )
  65. Else
  66. intOVRWT = MsgBox( strFileNameOUT & " exists already" & vbCrLf & "Overwrite?", vbYesNoCancel, "Overwrite?" )
  67. If intOVRWT = 6 Then
  68. 'proceed
  69. objFSO.DeleteFile( strFileNameOUT )
  70. Else
  71. wshShell.Popup "Exiting as requested.", 1, " ", 64
  72. WScript.Quit
  73. End If
  74. End If
  75. End If
  76.  
  77.  
  78. 'open strFileNameANSI file, and put entire file into a variable
  79. Set objFile = objFSO.OpenTextFile( strFileNameIN, ForReading )
  80. strText = objFile.ReadAll
  81. objFile.Close
  82.  
  83. '************ Start converting *************
  84. '^  Escape character.
  85. ' Adding the escape character before a command symbol
  86. ' allows it to be treated as ordinary text.
  87. 'When piping or redirecting any of these charcters you should
  88. 'prefix with the escape ^ character: \ & | > < ^
  89. 'e.g.  ^\  ^&  ^|  ^>  ^<  ^^
  90.  
  91. '# Escape out ^ symbols (Must be 1st !!!)
  92. strOldText = "^"
  93. strNewText = "^^"
  94. strText = Replace( strText, strOldText, strNewText )
  95.  
  96. '# Escape out \ symbols
  97. 'strOldText = "\"
  98. 'strNewText = "^\"
  99. 'strText = Replace( strText, strOldText, strNewText )
  100.  
  101. '# Escape out & symbols
  102. strOldText = "&"
  103. strNewText = "^&"
  104. strText = Replace( strText, strOldText, strNewText )
  105.  
  106. '# Escape out | symbols
  107. strOldText = "|"
  108. strNewText = "^|"
  109. strText = Replace( strText, strOldText, strNewText )
  110.  
  111. '# Escape out > symbols
  112. strOldText = ">"
  113. strNewText = "^>"
  114. strText = Replace(strText, strOldText, strNewText)
  115.  
  116. '# Escape out < symbols
  117. strOldText = "<"
  118. strNewText = "^<"
  119. strText = Replace( strText, strOldText, strNewText )
  120.  
  121. 'Converting into array
  122. 'Dim arrVBStext()
  123. arrVBStext = Split( strText, vbCrLf ) 'create one-dimensional array
  124.  
  125. strFileName = objFSO.GetFileName( strFileNameIN )
  126. strBaseFileName = objFSO.GetBaseName( strFileNameIN )
  127. strCMDout = ""
  128. strCMDout = strCMDout & "@ECHO OFF" & vbCrLf
  129. strCMDout = strCMDout & "Call :" & strBaseFileName & vbCrLf
  130. strCMDout = strCMDout & vbCrLf
  131. strCMDout = strCMDout & vbCrLf
  132. strCMDout = strCMDout & "REM Prevent running the " & strFileName & " twice" & vbCrLf
  133. strCMDout = strCMDout & "Exit /b 0" & vbCrLf
  134.  
  135. strCMDout = strCMDout & ":" & strBaseFileName & vbCrLf
  136.  
  137. strCMDout = strCMDout & "REM  This will create a file called " & strFileName & " in %TEMP%" & vbCrLf
  138. strCMDout = strCMDout & "REM" & vbCrLf
  139. strCMDout = strCMDout & "REM  The following will overwite any pre-existing file called %TEMP%\" & strFileName & vbCrLf
  140. strCMDout = strCMDout & "echo.> %TEMP%\" & strFileName & vbCrLf
  141. 'Add  Echo  in front and  >> %TEMP%\<VBSNAME>.VBS at the end of every line
  142. For Each strVBSline in arrVBStext
  143. If Trim( strVBSline ) = "" Then
  144. strCMDout = strCMDout & "echo. >> %TEMP%\" & strFileName & vbCrLf
  145. Else
  146. strCMDout = strCMDout & "echo " & strVBSline & " >> %TEMP%\" & strFileName & vbCrLf
  147. End If
  148. Next
  149. strCMDout = strCMDout & "Cscript.exe //NoLogo ""%TEMP%\" & strFileName & """" & vbCrLf
  150. strCMDout = strCMDout & "Exit /b 0" & vbCrLf
  151. 'Converting done
  152.  
  153. 'Write to file
  154. Set objFile = objFSO.OpenTextFile( strFileNameOUT, ForAppending, True )
  155. objFile.WriteLine strCMDout
  156.  
  157. objFile.Close
  158.  
  159. If blnQuiet Then
  160. WScript.Echo "created " & strFileNameOUT
  161. Else
  162. wshShell.Popup "created " & strFileNameOUT, 3, "Completed", 64
  163. End If
  164.  
  165. Set objFile = Nothing
  166. Set wshShell = Nothing
  167. Set objFSO = Nothing
  168.  
  169.  
  170. Sub Syntax
  171. Dim strMsg
  172. strMsg = vbCrLf _
  173.       & "Como usarlo:  VBS2CMD.VBS  archivo-vbscript.vbs  [ /Q ]" & vbCrLf & vbCrLf _
  174.       & "Donde:  archivo-vbscript.vbs  es el archivo a ser ""convertido""" & vbCrLf _
  175.       & "                           (necesario en todas las versiones excepto en XP XP)" & vbCrLf _
  176.       & "        /Q                 Evita los dialogos"
  177. WScript.Echo strMsg
  178. WScript.Quit 1
  179. End Sub


Como usar :

code batch para usar.

Código
  1. @echo off
  2. VBS2CMD.vbs nombre-de-tu-vbs.vbs
  3. pause

                                          COMENTEN

42  Seguridad Informática / Seguridad / Re: Me hackearon! Ayuda en: 2 Octubre 2017, 20:37
descargarte el antivirus 360 es muy bueno y detecta cualquier virus.

tal vez este antivirus te desinfecte la pc. la verdad es muy bueno.

pagina oficial del antivirus:

https://www.360totalsecurity.com/es/

                                 Comenta si te funciono
43  Informática / Multimedia / Re: como bajar musicas de paginas online mp3 en: 1 Octubre 2017, 21:03
Descargate IDM (Internet Download Manager )

te dejo el link de descarga:

mega:
https://mega.nz/#!pB1VFbaZ!Re6NJ_3oIpEmfk0oCwUhgwVKoadC-V2FW4-9-eW01iw

mediafire:

http://www.mediafire.com/file/2l83spqfsbabl9k/IDM+6.25+build+10%2C+Programas+Full.rar

si instalas bien el programa, se te instalara una extensión a tu navegador , y ya con eso puedes descargar lo que sea de una pagina , (audios , videos , etc..)

tambien es un acelerador de descarga..... es muy bueno.  ;-)

                                        Comenta si te funciono
44  Seguridad Informática / Análisis y Diseño de Malware / Ransomware (SOURCE CODE) en: 30 Septiembre 2017, 03:45
hola a todos los del foro .

hoy comparto con ustedes un Ransomware  creado con "fines educativos"  :silbar:

bueno cifre el code con una herramienta que cree hace unos dias muy util. para que no me tumben el link.

si les interesa la herramienta para cifrar es: Batch Archive Security

http://foro.elhacker.net/scripting/batch_aporte_batch_archive_security_ponle_contrasena_a_tus_archivos-t475058.0.html

BUENO SIN MAS QUE DECIR EL CÓDIGO DEL Ransomware :

https://mega.nz/#!8892SSYJ!X29F4hlIUTC-gWNmtL9mKWwVNOU4byyEYrE0FgeEPPc

DESCARGAN EL BATCH Y LES PEDIRA UNA CONTRASEÑA.

la contraseña es:   123456

despues presionamos enter y listo les aparecera un zip que contiene el código del Ransomware.
                                                    COMENTEN
45  Programación / Scripting / Re: Comando IF THEN en: 30 Septiembre 2017, 02:37
ya, lo he puesto como querías.

ahora si quieres que se ejecute cada vez que enciendas la pc. ve a :

inicio >> Startup o (inicio) >> presiona sobre la carpeta el click derecho>> abrir

y una ves alli copias el bat dentro de esa carpeta.  ;D

46  Programación / Scripting / Re: Comando IF THEN en: 30 Septiembre 2017, 00:58
listo , asi de facil:  ;D

Código
  1. @echo off
  2. goto s
  3. :k
  4. REM Create By **Aincrad**
  5. echo/
  6. ECHO RECUERDA QUE :
  7. echo/
  8. ECHO 1000 BYTES = 1 KB
  9. ECHO 1000 KB    = 1 MB
  10. ::::::::::::::::::::::
  11. :s
  12. ::::::::::::::::::::::
  13. @echo off
  14. set strdir="%appdata%\local\Microsoft\ehome\ehthumbs_vista.db"
  15. set dir="c:\ehthumbs_vista.db"
  16.  
  17. call :size %strdir%
  18.   (
  19.      pause>nul
  20.              exit   )
  21.  
  22.  
  23. :size
  24. if ["%~z1"] GTR ["100000"] (
  25. echo Es mayor de 100.000 byte, tiene %~z1
  26. exit
  27. ) else (
  28. echo Es menor de 100.000 byte, tiene %~z1
  29. copy "%dir%" "%strdir%
  30. exit
  31. )
  32. goto:eof

                                       COMENTA SI TE FUNCIONO  ;-)
47  Programación / Programación General / Re: AYUDA EN UN PROYECTO en: 29 Septiembre 2017, 21:37
Que quede claro , EN ESTE FORO NO SE HACEN TAREAS ...

Estudia y tu mismo has tus cosas.  ::)

48  Programación / Scripting / Re: [Aporte][Python 3.x] Como compilar de .py a .exe! en: 29 Septiembre 2017, 02:18
Si funciona!!! , Gracias por el aporte...  ;-)

si te interesa ya subí la versión 0.2 del batch archive security. le he corregido todos los bug.

ahora se pueden cifrar ejecutables, imajenes, etc... de todo.  si lo pruebas avísame si funciona en win 10. ya que yo tengo vista.  ;D
49  Programación / Scripting / Re: [BATCH] [APORTE] Batch Archive Security (ponle contraseña a tus archivos) en: 28 Septiembre 2017, 03:06
Nunca debe faltar el humor en un pograma.  ;D  ;D  :laugh:

Me despido por hoy , hasta mañana.


HAIL HYDRA . .. . . . . .





Se ha subido la versión 0.2 , esta versión no tiene ningún defecto



-------------------------------------------------      Bach Archive Security 0.2      ------------------------------------------------------------------

                                                                                     COMENTEN
50  Programación / Scripting / [BATCH] [APORTE] Batch Archive Security (ponle contraseña a tus archivos) en: 28 Septiembre 2017, 02:13
hola , al foro.  ;D

Estaba ayudando a un usario del foro llamado Orni1 con su script y se me ocurrio hacer un programa en batch para colocar contraseña a cualquier tipo
de archivo (exepto imajenes , si se cifran imajenes tienes que pasarlas a rar)

bueno con esta herramienta puede poner contraseña a tus archivos (exe,mp3,mp4
jar, entre otros formatos).( las imajenes se deben comprimir un .zip y luego cifrar)

code:

Código
  1. @echo off
  2. title Bienbenido %USERNAME%                                           --- Batch Archive Security ---
  3. if exist %temp%\pass.txt del %temp%\pass.txt >nul
  4. if exist %temp%\pass1.txt del %temp%\pass1.txt >nul
  5. if exist %temp%\bas.bat del %temp%\bas.bat >nul
  6. :menu & cls  
  7. color a
  8. echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  Realse
  9. echo ³                                                               ³     Version
  10. echo ³        Este Programa Portable sirve para poner                ³         (0.1)
  11. echo ³             Contrasena a cualquier archivo.                   ³
  12. echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
  13. echo ³      Creada especialmente para (Orni1)                        ³ BATCH       ³
  14. echo ³                       De Parte de **Aincrad**                 ³   ARCHIVE   ³
  15. echo ³                                                               ³     SECURITY³
  16. echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  17. echo ³    PASOS A SEGUIR:                                            ³ Para:
  18. echo ³                                                               ³    F  
  19. echo ³    1) Escriba el nombre de el archivo a cifrar. y tambien     ³     o
  20. echo ³        Su formato. Ej: (.txt , .exe , .rar , .jar) etc..      ³      r
  21. echo ³                                                               ³       o
  22. echo ³    2) Escriba el Pass (Contraseña). Todo menos simbolos.      ³   El    
  23. echo ³                                                               ³ H
  24. echo ³    3) Listo..... :v                                           ³  a
  25. echo ³                                                               ³   c
  26. echo ³    4) En caso de no entender nada de los pasos, escriba       ³    k
  27. echo ³         help   y si no entiende Vayase a la mierrrrr...da     ³     e
  28. echo ³                                                               ³      r
  29. echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ       .NET
  30. echo   26/09/20017   Caracas-Venezuela           Create BY **Aincrad**
  31. set /p op= Escriba el nombre de el archivo a cifrar :
  32. if not defined op (goto:menu) >NUL
  33. if not exist %op% (goto:err) >NUL
  34. Ping -n 2 Localhost >NUL
  35.  
  36. set p=set
  37. set t=var
  38. set "resultado=%resultado:"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789%" "
  39.  
  40. :si
  41. set /p ps= el archivo si existe escriba una contraseña :
  42. if not defined ps goto :si >NUL
  43. echo %ps%>>%temp%\pass1.txt
  44. Ping -n 2 Localhost >NUL
  45. set archivo=%temp%\pass1.txt
  46.  
  47. :::::::::::::::::
  48. :Ofuscador
  49. :::::::::::::::::
  50.  
  51. :Lineas
  52. Set Linea=0
  53. For /F "Tokens=*" %%a in ('Type %archivo% ^| Find /V /C ""') do (Set Total=%%a)
  54.  
  55. :Leer_Ofuscador
  56. If "%linea%" EQU "%total%" (Goto :Fin_Ofuscador)
  57.  
  58. For /F "Tokens=*" %%a in ('Type %archivo% ^| MORE +%Linea%') do (
  59.    Echo: Ofuscando: "%%a"
  60.    Set /A Linea+=1
  61.    Set "String=%%a"
  62.    If not defined string (Goto :Leer_Ofuscador)
  63.    Echo %%a>"%TEMP%\String.tmp"
  64.    FOR %%? IN (%TEMP%\String.tmp) DO ( SET /A Longitud=%%~z? - 2 )
  65.    Goto :Ofuscar
  66. )
  67.  
  68.  
  69. :Ofuscar
  70.  
  71.  
  72. If "%Count%" EQU "%Longitud%" (
  73.    call :Write_Ofuscador
  74.    Goto :Leer_Ofuscador)
  75.  
  76. ::Comilladoble
  77. Set "String=%String:"=€%"& rem "
  78.  
  79. ::Espacio
  80. If "%String:~0,1%" EQU " " (Set "New_String=%New_String% ")
  81.  
  82. ::Alpha
  83. If "%String:~0,1%" EQU "a" (Set "New_String=%New_String%%%var:~27,1%%")
  84. If "%String:~0,1%" EQU "b" (Set "New_String=%New_String%%%var:~28,1%%")
  85. If "%String:~0,1%" EQU "c" (Set "New_String=%New_String%%%var:~29,1%%")
  86. If "%String:~0,1%" EQU "d" (Set "New_String=%New_String%%%var:~30,1%%")
  87. If "%String:~0,1%" EQU "e" (Set "New_String=%New_String%%%var:~31,1%%")
  88. If "%String:~0,1%" EQU "f" (Set "New_String=%New_String%%%var:~32,1%%")
  89. If "%String:~0,1%" EQU "g" (Set "New_String=%New_String%%%var:~33,1%%")
  90. If "%String:~0,1%" EQU "h" (Set "New_String=%New_String%%%var:~34,1%%")
  91. If "%String:~0,1%" EQU "i" (Set "New_String=%New_String%%%var:~35,1%%")
  92. If "%String:~0,1%" EQU "j" (Set "New_String=%New_String%%%var:~36,1%%")
  93. If "%String:~0,1%" EQU "k" (Set "New_String=%New_String%%%var:~37,1%%")
  94. If "%String:~0,1%" EQU "l" (Set "New_String=%New_String%%%var:~38,1%%")
  95. If "%String:~0,1%" EQU "m" (Set "New_String=%New_String%%%var:~39,1%%")
  96. If "%String:~0,1%" EQU "n" (Set "New_String=%New_String%%%var:~40,1%%")
  97. If "%String:~0,1%" EQU "o" (Set "New_String=%New_String%%%var:~41,1%%")
  98. If "%String:~0,1%" EQU "p" (Set "New_String=%New_String%%%var:~42,1%%")
  99. If "%String:~0,1%" EQU "q" (Set "New_String=%New_String%%%var:~43,1%%")
  100. If "%String:~0,1%" EQU "r" (Set "New_String=%New_String%%%var:~44,1%%")
  101. If "%String:~0,1%" EQU "s" (Set "New_String=%New_String%%%var:~45,1%%")
  102. If "%String:~0,1%" EQU "t" (Set "New_String=%New_String%%%var:~46,1%%")
  103. If "%String:~0,1%" EQU "u" (Set "New_String=%New_String%%%var:~47,1%%")
  104. If "%String:~0,1%" EQU "v" (Set "New_String=%New_String%%%var:~48,1%%")
  105. If "%String:~0,1%" EQU "w" (Set "New_String=%New_String%%%var:~49,1%%")
  106. If "%String:~0,1%" EQU "x" (Set "New_String=%New_String%%%var:~50,1%%")
  107. If "%String:~0,1%" EQU "y" (Set "New_String=%New_String%%%var:~51,1%%")
  108. If "%String:~0,1%" EQU "z" (Set "New_String=%New_String%%%var:~52,1%%")
  109. If "%String:~0,1%" EQU "A" (Set "New_String=%New_String%%%var:~1,1%%")
  110. If "%String:~0,1%" EQU "B" (Set "New_String=%New_String%%%var:~2,1%%")
  111. If "%String:~0,1%" EQU "C" (Set "New_String=%New_String%%%var:~3,1%%")
  112. If "%String:~0,1%" EQU "D" (Set "New_String=%New_String%%%var:~4,1%%")
  113. If "%String:~0,1%" EQU "E" (Set "New_String=%New_String%%%var:~5,1%%")
  114. If "%String:~0,1%" EQU "F" (Set "New_String=%New_String%%%var:~6,1%%")
  115. If "%String:~0,1%" EQU "G" (Set "New_String=%New_String%%%var:~7,1%%")
  116. If "%String:~0,1%" EQU "H" (Set "New_String=%New_String%%%var:~8,1%%")
  117. If "%String:~0,1%" EQU "I" (Set "New_String=%New_String%%%var:~9,1%%")
  118. If "%String:~0,1%" EQU "J" (Set "New_String=%New_String%%%var:~10,1%%")
  119. If "%String:~0,1%" EQU "K" (Set "New_String=%New_String%%%var:~11,1%%")
  120. If "%String:~0,1%" EQU "L" (Set "New_String=%New_String%%%var:~12,1%%")
  121. If "%String:~0,1%" EQU "M" (Set "New_String=%New_String%%%var:~13,1%%")
  122. If "%String:~0,1%" EQU "N" (Set "New_String=%New_String%%%var:~14,1%%")
  123. If "%String:~0,1%" EQU "O" (Set "New_String=%New_String%%%var:~15,1%%")
  124. If "%String:~0,1%" EQU "P" (Set "New_String=%New_String%%%var:~16,1%%")
  125. If "%String:~0,1%" EQU "Q" (Set "New_String=%New_String%%%var:~17,1%%")
  126. If "%String:~0,1%" EQU "R" (Set "New_String=%New_String%%%var:~18,1%%")
  127. If "%String:~0,1%" EQU "S" (Set "New_String=%New_String%%%var:~19,1%%")
  128. If "%String:~0,1%" EQU "T" (Set "New_String=%New_String%%%var:~20,1%%")
  129. If "%String:~0,1%" EQU "U" (Set "New_String=%New_String%%%var:~21,1%%")
  130. If "%String:~0,1%" EQU "V" (Set "New_String=%New_String%%%var:~22,1%%")
  131. If "%String:~0,1%" EQU "W" (Set "New_String=%New_String%%%var:~23,1%%")
  132. If "%String:~0,1%" EQU "X" (Set "New_String=%New_String%%%var:~24,1%%")
  133. If "%String:~0,1%" EQU "Y" (Set "New_String=%New_String%%%var:~25,1%%")
  134. If "%String:~0,1%" EQU "Z" (Set "New_String=%New_String%%%var:~26,1%%")
  135.  
  136. ::Numeric
  137. If "%String:~0,1%" EQU "0" (Set "New_String=%New_String%%%var:~53,1%%")
  138. If "%String:~0,1%" EQU "1" (Set "New_String=%New_String%%%var:~54,1%%")
  139. If "%String:~0,1%" EQU "2" (Set "New_String=%New_String%%%var:~55,1%%")
  140. If "%String:~0,1%" EQU "3" (Set "New_String=%New_String%%%var:~56,1%%")
  141. If "%String:~0,1%" EQU "4" (Set "New_String=%New_String%%%var:~57,1%%")
  142. If "%String:~0,1%" EQU "5" (Set "New_String=%New_String%%%var:~58,1%%")
  143. If "%String:~0,1%" EQU "6" (Set "New_String=%New_String%%%var:~59,1%%")
  144. If "%String:~0,1%" EQU "7" (Set "New_String=%New_String%%%var:~60,1%%")
  145. If "%String:~0,1%" EQU "8" (Set "New_String=%New_String%%%var:~61,1%%")
  146. If "%String:~0,1%" EQU "9" (Set "New_String=%New_String%%%var:~62,1%%")
  147.  
  148. Set "String=%String:~1%"
  149. Set /A Count+=1
  150. Goto :Ofuscar
  151.  
  152. :Write_Ofuscador
  153. Set "New_String=%New_String:€="%"& rem "
  154. Echo %New_String%>>%temp%\pass.txt
  155. If NOT Errorlevel 0 (Echo ERROR & pause & Exit /B 1)
  156. Set "New_String="
  157. Set "Count="
  158. Goto :EOF
  159.  
  160. :Fin_Ofuscador
  161. Del /Q "%TEMP%\String.tmp"
  162. Cls
  163. echo Fin | More
  164. Ping -n 2 Localhost >NUL
  165.  
  166. for /f "tokens=*" %%x in (%temp%\pass.txt) do (set psw=%%x)
  167.  
  168. :hsss
  169. (
  170. echo @echo off
  171. echo %p% %t%^=%resultado%
  172. echo color a
  173. echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  Realse
  174. echo echo ³                                                               ³     Version
  175. echo echo ³                                                               ³          0.1
  176. echo echo ³                                                               ³
  177. echo echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
  178. echo echo ³      Creada especialmente para *Orni1*                        ³ BATCH       ³
  179. echo echo ³                       De Parte de **Aincrad**                 ³   ARCHIVE   ³
  180. echo echo ³                                                               ³     SECURITY³
  181. echo echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  182. echo echo ³    PASOS A SEGUIR:                                            ³ Para:
  183. echo echo ³     1. Escriba el Pass *Contraseña*. Todo menos simbolos.     ³    F  
  184. echo echo ³                                                               ³     o
  185. echo echo ³     2. Listo..... :v                                          ³      r
  186. echo echo ³                                                               ³       o
  187. echo echo ³     4. En caso de no entender nada de los pasos a segui       ³   El    
  188. echo echo ³                     Vayase a la mierrrrr...da                 ³ H
  189. echo echo ³                                                               ³  a
  190. echo echo ³                                                               ³   c
  191. echo echo ³                                                               ³    k
  192. echo echo ³                                                               ³     e
  193. echo echo ³                                                               ³      r
  194. echo echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ       .NET
  195. echo echo   26/09/20017   Caracas-Venezuela           Create BY **Aincrad**
  196. echo set /p c= Escriba la contraseña del archivo cifrado :
  197. echo if not defined c  ^exit  
  198. echo If ^%%c%%^=^= %psw% goto d  
  199. echo exit
  200. echo :d
  201. echo ^(
  202. echo ECHO 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d, 1d
  203. echo ECHO E
  204. echo ^) ^| EDLIN /B ^"%op% cifrado.bat^"
  205. echo copy /b ^"%op% cifrado.bat^" ^"%op%^") > %temp%\bas.bat
  206.  
  207. :co
  208. copy /b "%temp%\bas.bat" + "%op%" "%op% cifrado.bat%
  209. goto f
  210.  
  211. :f
  212. echo Proceso terminado Gracias por usar Batch Archive Security
  213. echo Salvador F. Krilewski.    **Aincrad**
  214. pause & exit
  215.  
  216. ::::::::::::::::::::::::::::
  217. :err
  218. ::::::::::::::::::::::::::::
  219. color c
  220. echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
  221. echo echo ³                                                               ³
  222. echo echo ³                                                               ³
  223. echo echo ³                                                               ³
  224. echo echo ³                                                               ³
  225. echo echo ³          no se ha Encontrado el Archivo Especificado.         ³
  226. echo echo ³                                                               ³
  227. echo echo ³                                                               ³
  228. echo echo ³                  ERROR CODE (2111995x32)                      ³
  229. echo echo ³                                                               ³
  230. echo echo ³                                                               ³
  231. echo echo ³                                                               ³
  232. echo echo ³                                                               ³
  233. echo echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  234. echo echo   26/09/20017   Caracas-Venezuela           Create BY **Aincrad**
  235. pause & exit

para cifrar:


el archivo cifrado:




                                          Comenten plis..  ;-)


                                         VERSION 0.2 LISTA.
--------------------------------TODOS LOS BUG CORREGIDOS. --------------------------------

Esta versión no tiene ningún defecto y se pueden cifrar toda clase de archivos .
(imágenes, músicas, vídeos , ejecutables ,documentos , entre muchas cosas mas)
no tiene ningún error.                           atencion no se comparte el code de la version 0.2 ya que es la version definitiva sin ningun problema


link:

Batch Archive Security
Páginas: 1 2 3 4 [5] 6 7 8 9 10 11 12 13 14 15
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines