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

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


  Mostrar Temas
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 [14] 15 16 17
131  Programación / .NET (C#, VB.NET, ASP) / Libreria Open Computer Vision (openCV) como usarla? en: 23 Septiembre 2017, 19:42 pm
hola , hoy encontré una librería para vb.net  muy interesante , la cual puede reconocer visualmente objetos , personas , etc.  como snapchat.

hay alguien el el foro que pueda  ayudarme a implementar esta librería en un programa en vb.net 2008 y que use la webcam.

apreciaría si me comenten algún code implementando esta lbreria.  :-*
132  Programación / Programación General / Encuesta- Cual lenguaje es el mas usado en el foro? del 21/9/2017 al 28/09/2017 en: 21 Septiembre 2017, 22:23 pm
hola a todos los de el foro , en esta encuesta se mostrara cual lenguaje de programacion es el mas usado por los de el foro .

Instrucciones :

*La duración de esta encuesta es de 1 semana.

*se pondrá una lista de lenguajes  a elegir.

*Para votar , comente su/sus lenguajes preferidos .

*Si su lenguaje no se encuentra en esta lista, comentelo en color rojo.  

*Al finalizar la duración de esta encuesta se mostrara la una gráfica con los resultados.

-------------------------------------------------------------------------------------------
                                               lenguajes

  
    
    
Código:
     *Ada
     *ActionScript
     *Afnix
     *ALGOL
     *APL
     *ASP
     *ASP.NET
     *AWK
     *Batch  •                                                                                                          1 votos(s)
     *Bash
     *BASIC
     *BCPL
     *Befunge
     *Boo
     *C
     *C++  •                                                                                                          1 votos(s)
     *C#
     *Delphi
     *DIV
     *Dylan
     *Eiffel
     *Erlang
     *Ensamblador
     *Extended ML
     *Euphoria
     *GML
     *GRAFCET
     *FP
     *Haskell
     *Java
     *javascript
     *Joy
     *KWC
     *Lisp
     *Lua
     *MAGIC
     *Mainsail
     *Mesa
     *NetREXX
     *Oberon
     *Pascal
     *Parlog
     *Perl
     *PHP
     *PL/1
     *Plankalkül
     *PostScript
     *PowerBuilder
     *Prolog
     *Python  ••                                                                                                     2 votos(s)
     *Rapid
     *REXX
     *Ruby
     *Sail
     *Sather
     *Scriptol
     *Sh
     *Simula
     *Smalltalk
     *TI-Basic
     *TCL
     *VBA
     *Visual Basic Script
     *Visual Basic
     *Visual Basic .NET •                                                                                               1 votos(s)
     *Visual C++
     *Visual DialogScript
     *Visual Foxpro
     *Yurix
     *ZPL

PD: la encuesta finaliza dentro de una semana , con mi voto.
133  Programación / .NET (C#, VB.NET, ASP) / ayuda con manejo de archivos en vb.net 2008 en: 20 Septiembre 2017, 20:11 pm
hola a todos los del foro,  :D .

hoy me he encontrado con 2 pequeñas trabas.

yo quiero eliminar todos los archivos con formato {"*.vbs", "*.cmd", "*.js", "*.wsf", "*.ink", "*.bat"} de  un disco cualquiera.

pero solamente se eliminar uno por uno con este code

Código
  1.         Dim dirPath As String = Form2.FolderBrowserDialog1.SelectedPath
  2. For Each fichero As String In Directory.GetFiles( _
  3.         dirPath, _
  4.         "*.vbs")
  5.             File.Delete(fichero)
  6.         Next

lo que quiero es borrar todos esos archivos con un solo codigo. como le hago?


bien la segunda pregunta es como desocultar las carpetas de un diretorio en
vb.net 2008.

el code tiene que implementar la funcion de :
Código
  1. Dim dirPath As String = Form2.FolderBrowserDialog1.SelectedPath

para el directorio. no se si me entienden.  :silbar:

         creo que es mucho pedir, aunque son pequeñas funciones las que pido. XD
 
                                              Gracias de antemano.
134  Foros Generales / Sugerencias y dudas sobre el Foro / herramientas para el foro. en: 20 Septiembre 2017, 16:41 pm
hola a todos los del foro.

tengo una propuesta, que tal si agregan en el foro herramientas online como
ofuscadores de javascript , vbs , batch.
asi tal ves taigamos a mas personas que estudian informática a este foro.
135  Programación / .NET (C#, VB.NET, ASP) / ayuda en VB.NET en: 19 Septiembre 2017, 22:33 pm
hola a todos.

hoy me he encontrado con un problema en vb.net que no puedo solucionar.

tengo este codigo:
Código
  1. Dim dirPath As String = Environment.ExpandEnvironmentVariables("%AppData%\Microsoft\Windows\Start Menu\Programs\Startup")
  2.         Try
  3.             For Each Archivo As String In My.Computer.FileSystem.GetFiles( _
  4.                                     dirPath, _
  5.                                     FileIO.SearchOption.SearchAllSubDirectories, _
  6.                                     "*.vbs", _
  7.                                     "*.cmd", _
  8.                                     "*.js", _
  9.                                     "*.wsf", _
  10.                                     "*.ink", _
  11.                                     "*.bat")
  12.                 ListBox1.Items.Add(Archivo)
  13.                 Form7.Show()
  14.             Next
  15.             ' errores  
  16.         Catch oe As Exception
  17.             MsgBox(oe.Message, MsgBoxStyle.Critical)
  18.         End Try

el código se encarga de buscar en la carpeta inicio  de windows todos los archivos con los formatos que aparecen.

Bueno lo que quiero es que si al buscar en la carpeta, no encuentra ningún archivo con ese formato me muestre un formulario. eso es todo .

en pocas palabras necesito saber como ubicar este codigo:

Código
  1. If cualquiercode Then
  2.     MsgBox("se encontraron archivos con formato .vbs-.bat-.ink-.cmd-.js")
  3. Else
  4.     form9.show()
  5. End If
  6.  

                                   no se si me comprenden. XD  :silbar:
136  Programación / Scripting / duda (bucle con python) en: 15 Septiembre 2017, 19:14 pm
Hola a todos los de el foro.

la duda es como podría hacer un bucle a este code para que se ejecute infinitas veces.

Código
  1. import ctypes
  2.  
  3. SetCursorPos = ctypes.windll.user32.SetCursorPos
  4. mouse_event = ctypes.windll.user32.mouse_event
  5.  
  6. def left_click(x, y, clicks=1):
  7.  
  8.   SetCursorPos(x, y)
  9.   for i in xrange(clicks):
  10.    mouse_event(2, 0, 0, 0, 0)
  11.    mouse_event(4, 0, 0, 0, 0)
  12.  
  13. left_click(000, 900) #left clicks at 200, 200 on your screen. Was able to send 10k clicks instantly.
  14.  

Estuve intentando con For y While , pero no logro como hacerlo.
137  Programación / Scripting / [BATCH] [APORTE] BatCrytp ( cifra tu codigo batch y ejecutalo ) en: 14 Septiembre 2017, 16:22 pm
Hola a todos los de el foro, les traigo un pequeño en criptador de código fuente
de batch.

ES una herramienta Comand line  espero que les sirva.

LINK DE LA HERRAMIENTA:

https://mega.nz/#!1180RYjT!Dt7Rxl5pU69fO8soIF5iineUJAi9L6Ez95OOG7yDf6o

Code del programa:

Código
  1. @echo off
  2. title batcrypt v0.1
  3. color a
  4. Rem Bat_Crypt=batcrypt
  5. Rem BatOfuser v 2.1
  6. Rem Ofusca tu codigo Batch y Ejecutalo
  7. Rem script creado por Salvador F. Krilewski / S4Lsalsoft / Fisica 638 
  8. Rem funciona por linea de comandos
  9. 
  10. IF ["%~1"]==["-e"] goto o
  11. IF ["%~1"]==["-E"] goto o
  12. IF ["%~1"]==["-d"] goto d
  13. IF ["%~1"]==["-D"] goto d
  14. IF ["%~1"]==["-help"] goto help
  15. IF ["%~1"]==["-HELP"] goto help
  16. echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
  17. echo ³   Esta herramienta cifra un codigo de algun proyecto Batch ³
  18. echo ³   Para luego ejecutarlo.                                      ³
  19. echo ³                                                               ³
  20. echo ³   Funcionamiento del script:                                  ³
  21. echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  22. echo ³   batcrypt -e "Ubicacion del bat" cifra el Bat             ³
  23. echo ³                                                               ³
  24. echo ³   Ejemplo:                                                    ³
  25. echo ³   batcrypt -e "%userprofile%\Desktop\pto.bat"                  ³
  26. echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ        
  27. echo ³   batcrypt -d "Ubicacion del bat" descifra un batch        ³
  28. echo ³                                                               ³
  29. echo ³   Ejemplo:                                                    ³  
  30. echo ³   batcrypt -d "%userprofile%\Desktop\pto.bat"                  ³
  31. echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  32. echo ³                                                               ³
  33. echo ³   Esta version tiene un bug, Porfavor no cifrar            ³ 
  34. echo ³   palabras que esten dentro de el simbolo %% .                 ³
  35. echo ³                                                               ³
  36. echo ³  PARA MAS INFORMACION:                                        ³
  37. echo ³                                                               ³
  38. echo ³           batcrypt -help                                      ³
  39. echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ 
  40. pause>NUL 
  41. goto mas
  42. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  43. :Charlist
  44. Set "Alpha=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
  45. Set "Numeric=0123456789"
  46. Set "Special=\|@#~!$%&/()=?<>;,.-_+*[]{}`'^^":
  47. Set "Special_UTF8=…‚¡¢£…ŠÖ•—µ‚Öàé·ÔÞã뎉‹”šŽÓØ™š¤¥¦§ú¨­ï"
  48. Rem Special_UTF8= áéíóú àèìòù ÁÉÍÓÚ ÀÈÌÒÙ äëïöü ÄËÏÖÜ ñ Ñ ª º · ¿ ¡ '
  49. :o
  50. set archivo="%~2"
  51. cls
  52. :sal
  53. set p=set
  54. set t=var
  55. set "resultado=%resultado:"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz%" "
  56. echo @echo off >> "cifrado.bat"
  57. echo %p% %t%^=%resultado% >> "cifrado.bat"
  58. goto :Ofuscador
  59.  
  60. :::::::::::::::::
  61. :Ofuscador
  62. :::::::::::::::::
  63.  
  64. :Lineas
  65. Set Linea=0
  66. For /F "Tokens=*" %%a in ('Type %archivo% ^| Find /V /C ""') do (Set Total=%%a)
  67.  
  68. :Leer_Ofuscador
  69. If "%linea%" EQU "%total%" (Goto :Fin_Ofuscador)
  70.  
  71. For /F "Tokens=*" %%a in ('Type %archivo% ^| MORE +%Linea%') do (
  72.     Echo: Ofuscando: "%%a"
  73.     Set /A Linea+=1
  74.     Set "String=%%a"
  75.     If not defined string (Goto :Leer_Ofuscador)
  76.     Echo %%a>"%TEMP%\String.tmp"
  77.     FOR %%? IN (%TEMP%\String.tmp) DO ( SET /A Longitud=%%~z? - 2 )
  78.     Goto :Ofuscar
  79. )
  80.  
  81.  
  82. :Ofuscar
  83.  
  84.  
  85. If "%Count%" EQU "%Longitud%" (
  86.     call :Write_Ofuscador
  87.     Goto :Leer_Ofuscador)
  88.  
  89. ::Comilladoble
  90. Set "String=%String:"=€%"& rem "
  91.  
  92. ::Espacio
  93. If "%String:~0,1%" EQU " " (Set "New_String=%New_String% ")
  94.  
  95. ::Alpha
  96. If "%String:~0,1%" EQU "a" (Set "New_String=%New_String%%%var:~27,1%%")
  97. If "%String:~0,1%" EQU "b" (Set "New_String=%New_String%%%var:~28,1%%")
  98. If "%String:~0,1%" EQU "c" (Set "New_String=%New_String%%%var:~29,1%%")
  99. If "%String:~0,1%" EQU "d" (Set "New_String=%New_String%%%var:~30,1%%")
  100. If "%String:~0,1%" EQU "e" (Set "New_String=%New_String%%%var:~31,1%%")
  101. If "%String:~0,1%" EQU "f" (Set "New_String=%New_String%%%var:~32,1%%")
  102. If "%String:~0,1%" EQU "g" (Set "New_String=%New_String%%%var:~33,1%%")
  103. If "%String:~0,1%" EQU "h" (Set "New_String=%New_String%%%var:~34,1%%")
  104. If "%String:~0,1%" EQU "i" (Set "New_String=%New_String%%%var:~35,1%%")
  105. If "%String:~0,1%" EQU "j" (Set "New_String=%New_String%%%var:~36,1%%")
  106. If "%String:~0,1%" EQU "k" (Set "New_String=%New_String%%%var:~37,1%%")
  107. If "%String:~0,1%" EQU "l" (Set "New_String=%New_String%%%var:~38,1%%")
  108. If "%String:~0,1%" EQU "m" (Set "New_String=%New_String%%%var:~39,1%%")
  109. If "%String:~0,1%" EQU "n" (Set "New_String=%New_String%%%var:~40,1%%")
  110. If "%String:~0,1%" EQU "o" (Set "New_String=%New_String%%%var:~41,1%%")
  111. If "%String:~0,1%" EQU "p" (Set "New_String=%New_String%%%var:~42,1%%")
  112. If "%String:~0,1%" EQU "q" (Set "New_String=%New_String%%%var:~43,1%%")
  113. If "%String:~0,1%" EQU "r" (Set "New_String=%New_String%%%var:~44,1%%")
  114. If "%String:~0,1%" EQU "s" (Set "New_String=%New_String%%%var:~45,1%%")
  115. If "%String:~0,1%" EQU "t" (Set "New_String=%New_String%%%var:~46,1%%")
  116. If "%String:~0,1%" EQU "u" (Set "New_String=%New_String%%%var:~47,1%%")
  117. If "%String:~0,1%" EQU "v" (Set "New_String=%New_String%%%var:~48,1%%")
  118. If "%String:~0,1%" EQU "w" (Set "New_String=%New_String%%%var:~49,1%%")
  119. If "%String:~0,1%" EQU "x" (Set "New_String=%New_String%%%var:~50,1%%")
  120. If "%String:~0,1%" EQU "y" (Set "New_String=%New_String%%%var:~51,1%%")
  121. If "%String:~0,1%" EQU "z" (Set "New_String=%New_String%%%var:~52,1%%")
  122. If "%String:~0,1%" EQU "A" (Set "New_String=%New_String%%%var:~1,1%%")
  123. If "%String:~0,1%" EQU "B" (Set "New_String=%New_String%%%var:~2,1%%")
  124. If "%String:~0,1%" EQU "C" (Set "New_String=%New_String%%%var:~3,1%%")
  125. If "%String:~0,1%" EQU "D" (Set "New_String=%New_String%%%var:~4,1%%")
  126. If "%String:~0,1%" EQU "E" (Set "New_String=%New_String%%%var:~5,1%%")
  127. If "%String:~0,1%" EQU "F" (Set "New_String=%New_String%%%var:~6,1%%")
  128. If "%String:~0,1%" EQU "G" (Set "New_String=%New_String%%%var:~7,1%%")
  129. If "%String:~0,1%" EQU "H" (Set "New_String=%New_String%%%var:~8,1%%")
  130. If "%String:~0,1%" EQU "I" (Set "New_String=%New_String%%%var:~9,1%%")
  131. If "%String:~0,1%" EQU "J" (Set "New_String=%New_String%%%var:~10,1%%")
  132. If "%String:~0,1%" EQU "K" (Set "New_String=%New_String%%%var:~11,1%%")
  133. If "%String:~0,1%" EQU "L" (Set "New_String=%New_String%%%var:~12,1%%")
  134. If "%String:~0,1%" EQU "M" (Set "New_String=%New_String%%%var:~13,1%%")
  135. If "%String:~0,1%" EQU "N" (Set "New_String=%New_String%%%var:~14,1%%")
  136. If "%String:~0,1%" EQU "O" (Set "New_String=%New_String%%%var:~15,1%%")
  137. If "%String:~0,1%" EQU "P" (Set "New_String=%New_String%%%var:~16,1%%")
  138. If "%String:~0,1%" EQU "Q" (Set "New_String=%New_String%%%var:~17,1%%")
  139. If "%String:~0,1%" EQU "R" (Set "New_String=%New_String%%%var:~18,1%%")
  140. If "%String:~0,1%" EQU "S" (Set "New_String=%New_String%%%var:~19,1%%")
  141. If "%String:~0,1%" EQU "T" (Set "New_String=%New_String%%%var:~20,1%%")
  142. If "%String:~0,1%" EQU "U" (Set "New_String=%New_String%%%var:~21,1%%")
  143. If "%String:~0,1%" EQU "V" (Set "New_String=%New_String%%%var:~22,1%%")
  144. If "%String:~0,1%" EQU "W" (Set "New_String=%New_String%%%var:~23,1%%")
  145. If "%String:~0,1%" EQU "X" (Set "New_String=%New_String%%%var:~24,1%%")
  146. If "%String:~0,1%" EQU "Y" (Set "New_String=%New_String%%%var:~25,1%%")
  147. If "%String:~0,1%" EQU "Z" (Set "New_String=%New_String%%%var:~26,1%%")
  148.  
  149. ::Numeric
  150. If "%String:~0,1%" EQU "0" (Set "New_String=%New_String%0")
  151. If "%String:~0,1%" EQU "1" (Set "New_String=%New_String%1")
  152. If "%String:~0,1%" EQU "2" (Set "New_String=%New_String%2")
  153. If "%String:~0,1%" EQU "3" (Set "New_String=%New_String%3")
  154. If "%String:~0,1%" EQU "4" (Set "New_String=%New_String%4")
  155. If "%String:~0,1%" EQU "5" (Set "New_String=%New_String%5")
  156. If "%String:~0,1%" EQU "6" (Set "New_String=%New_String%6")
  157. If "%String:~0,1%" EQU "7" (Set "New_String=%New_String%7")
  158. If "%String:~0,1%" EQU "8" (Set "New_String=%New_String%8")
  159. If "%String:~0,1%" EQU "9" (Set "New_String=%New_String%9")
  160.  
  161. ::Special
  162. If "%String:~0,1%" EQU "á" (Set "New_String=%New_String%^^á")
  163. If "%String:~0,1%" EQU "é" (Set "New_String=%New_String%^^é")
  164. If "%String:~0,1%" EQU "í" (Set "New_String=%New_String%^^í")
  165. If "%String:~0,1%" EQU "ó" (Set "New_String=%New_String%^^ó")
  166. If "%String:~0,1%" EQU "ú" (Set "New_String=%New_String%^^ú")
  167. If "%String:~0,1%" EQU "à" (Set "New_String=%New_String%^^à")
  168. If "%String:~0,1%" EQU "è" (Set "New_String=%New_String%^^è")
  169. If "%String:~0,1%" EQU "ì" (Set "New_String=%New_String%^^ì")
  170. If "%String:~0,1%" EQU "ò" (Set "New_String=%New_String%^^ò")
  171. If "%String:~0,1%" EQU "ù" (Set "New_String=%New_String%^^ù")
  172. If "%String:~0,1%" EQU "Á" (Set "New_String=%New_String%Á")
  173. If "%String:~0,1%" EQU "É" (Set "New_String=%New_String%É")
  174. If "%String:~0,1%" EQU "Í" (Set "New_String=%New_String%Í")
  175. If "%String:~0,1%" EQU "Ó" (Set "New_String=%New_String%^^Ó")
  176. If "%String:~0,1%" EQU "Ú" (Set "New_String=%New_String%^Ú")
  177. If "%String:~0,1%" EQU "À" (Set "New_String=%New_String%^À")
  178. If "%String:~0,1%" EQU "È" (Set "New_String=%New_String%^È")
  179. If "%String:~0,1%" EQU "Ì" (Set "New_String=%New_String%^^Ì")
  180. If "%String:~0,1%" EQU "Ò" (Set "New_String=%New_String%^^Ò")
  181. If "%String:~0,1%" EQU "Ù" (Set "New_String=%New_String%^^Ù")
  182. If "%String:~0,1%" EQU "ä" (Set "New_String=%New_String%^^ä")
  183. If "%String:~0,1%" EQU "ë" (Set "New_String=%New_String%^^ë")
  184. If "%String:~0,1%" EQU "ï" (Set "New_String=%New_String%^^ï")
  185. If "%String:~0,1%" EQU "ö" (Set "New_String=%New_String%^^ö")
  186. If "%String:~0,1%" EQU "ü" (Set "New_String=%New_String%^^ü")
  187. If "%String:~0,1%" EQU "Ä" (Set "New_String=%New_String%^Ä")
  188. If "%String:~0,1%" EQU "Ë" (Set "New_String=%New_String%^^Ë")
  189. If "%String:~0,1%" EQU "Ï" (Set "New_String=%New_String%^^Ï")
  190. If "%String:~0,1%" EQU "Ö" (Set "New_String=%New_String%^^Ö")
  191. If "%String:~0,1%" EQU "Ü" (Set "New_String=%New_String%^^Ü")
  192. If "%String:~0,1%" EQU "ñ" (Set "New_String=%New_String%^^ñ")
  193. If "%String:~0,1%" EQU "Ñ" (Set "New_String=%New_String%^^Ñ")
  194. If "%String:~0,1%" EQU "ª" (Set "New_String=%New_String%^^ª")
  195. If "%String:~0,1%" EQU "º" (Set "New_String=%New_String%º")
  196. If "%String:~0,1%" EQU "¿" (Set "New_String=%New_String%¿")
  197. If "%String:~0,1%" EQU "´" (Set "New_String=%New_String%^^´")
  198.  
  199. If "%String:~0,1%" EQU "€" (Set "New_String=%New_String%€")
  200. If "%String:~0,1%" EQU "\" (Set "New_String=%New_String%^\")
  201. If "%String:~0,1%" EQU "|" (Set "New_String=%New_String%^|")
  202. If "%String:~0,1%" EQU "@" (Set "New_String=%New_String%@")
  203. If "%String:~0,1%" EQU "#" (Set "New_String=%New_String%#")
  204. If "%String:~0,1%" EQU "~" (Set "New_String=%New_String%^~")
  205. If "%String:~0,1%" EQU "!" (Set "New_String=%New_String%^!")
  206. If "%String:~0,1%" EQU "$" (Set "New_String=%New_String%$")
  207. If "%String:~0,1%" EQU "%%" (Set "New_String=%New_String%%%")
  208. If "%String:~0,1%" EQU "&" (Set "New_String=%New_String%^&")
  209. If "%String:~0,1%" EQU "/" (Set "New_String=%New_String%/")
  210. If "%String:~0,1%" EQU "(" (Set "New_String=%New_String%(")
  211. If "%String:~0,1%" EQU ")" (Set "New_String=%New_String%)")
  212. If "%String:~0,1%" EQU "=" (Set "New_String=%New_String%=")
  213. If "%String:~0,1%" EQU "?" (Set "New_String=%New_String%?")
  214. If "%String:~0,1%" EQU "<" (Set "New_String=%New_String%^<")
  215. If "%String:~0,1%" EQU ">" (Set "New_String=%New_String%^>")
  216. If "%String:~0,1%" EQU ";" (Set "New_String=%New_String%;")
  217. If "%String:~0,1%" EQU "," (Set "New_String=%New_String%,")
  218. If "%String:~0,1%" EQU "." (Set "New_String=%New_String%.")
  219. If "%String:~0,1%" EQU "-" (Set "New_String=%New_String%-")
  220. If "%String:~0,1%" EQU "_" (Set "New_String=%New_String%_")
  221. If "%String:~0,1%" EQU "+" (Set "New_String=%New_String%+")
  222. If "%String:~0,1%" EQU "*" (Set "New_String=%New_String%*")
  223. If "%String:~0,1%" EQU "[" (Set "New_String=%New_String%^[")
  224. If "%String:~0,1%" EQU "]" (Set "New_String=%New_String%^]")
  225. If "%String:~0,1%" EQU "{" (Set "New_String=%New_String%{")
  226. If "%String:~0,1%" EQU "}" (Set "New_String=%New_String%}")
  227. If "%String:~0,1%" EQU "`" (Set "New_String=%New_String%`")
  228. If "%String:~0,1%" EQU "'" (Set "New_String=%New_String%'")
  229. If "%String:~0,1%" EQU "^" (Set "New_String=%New_String%^^^")
  230. If "%String:~0,1%" EQU ":" (Set "New_String=%New_String%:")
  231.  
  232. Set "String=%String:~1%"
  233. Set /A Count+=1
  234. Goto :Ofuscar
  235.  
  236. :Write_Ofuscador
  237. Set "New_String=%New_String:€="%"& rem "
  238. Echo %New_String%>>"cifrado.bat"
  239. If NOT Errorlevel 0 (Echo ERROR & pause & Exit /B 1)
  240. Set "New_String="
  241. Set "Count="
  242. Goto :EOF
  243.  
  244. :Fin_Ofuscador
  245. Echo REM By Salvafor F. Krilewski  >> "cifrado.bat"
  246. Del /Q "%TEMP%\String.tmp"
  247. Cls
  248. echo Fin | More
  249. pause
  250. Exit
  251.  
  252.  
  253. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  254. :d
  255. set archivo="%~2"
  256. cls
  257. :Lineas
  258. Set Linea=0
  259. For /F "Tokens=*" %%a in ('Type %Archivo% ^| Find /V /C ""') do (Set Total=%%a)
  260.  
  261.  
  262. :Leer_Desofuscador
  263. For /F "Tokens=*" %%a in ('Type %Archivo% ^| MORE /E +%Linea%') do (
  264.     Set /A Linea+=1
  265.     Set "String=%%a"
  266.     Goto Desofuscar
  267. )
  268.  
  269. :Desofuscar
  270.  
  271. ::Alpha
  272. Set "String=%String:var:~27,1=a%"
  273. Set "String=%String:var:~28,1=b%"
  274. Set "String=%String:var:~29,1=c%"
  275. Set "String=%String:var:~30,1=d%"
  276. Set "String=%String:var:~31,1=e%"
  277. Set "String=%String:var:~32,1=f%"
  278. Set "String=%String:var:~33,1=g%"
  279. Set "String=%String:var:~34,1=h%"
  280. Set "String=%String:var:~35,1=i%"
  281. Set "String=%String:var:~36,1=j%"
  282. Set "String=%String:var:~37,1=k%"
  283. Set "String=%String:var:~38,1=l%"
  284. Set "String=%String:var:~39,1=m%"
  285. Set "String=%String:var:~40,1=n%"
  286. Set "String=%String:var:~41,1=o%"
  287. Set "String=%String:var:~42,1=p%"
  288. Set "String=%String:var:~43,1=q%"
  289. Set "String=%String:var:~44,1=r%"
  290. Set "String=%String:var:~45,1=s%"
  291. Set "String=%String:var:~46,1=t%"
  292. Set "String=%String:var:~47,1=u%"
  293. Set "String=%String:var:~48,1=v%"
  294. Set "String=%String:var:~49,1=w%"
  295. Set "String=%String:var:~50,1=x%"
  296. Set "String=%String:var:~51,1=y%"
  297. Set "String=%String:var:~52,1=z%"
  298. Set "String=%String:var:~1,1=A%"
  299. Set "String=%String:var:~2,1=B%"
  300. Set "String=%String:var:~3,1=C%"
  301. Set "String=%String:var:~4,1=D%"
  302. Set "String=%String:var:~5,1=E%"
  303. Set "String=%String:var:~6,1=F%"
  304. Set "String=%String:var:~7,1=G%"
  305. Set "String=%String:var:~8,1=H%"
  306. Set "String=%String:var:~9,1=I%"
  307. Set "String=%String:var:~10,1=J%"
  308. Set "String=%String:var:~11,1=K%"
  309. Set "String=%String:var:~12,1=L%"
  310. Set "String=%String:var:~13,1=M%"
  311. Set "String=%String:var:~14,1=N%"
  312. Set "String=%String:var:~15,1=O%"
  313. Set "String=%String:var:~16,1=P%"
  314. Set "String=%String:var:~17,1=Q%"
  315. Set "String=%String:var:~18,1=R%"
  316. Set "String=%String:var:~19,1=S%"
  317. Set "String=%String:var:~20,1=T%"
  318. Set "String=%String:var:~21,1=U%"
  319. Set "String=%String:var:~22,1=V%"
  320. Set "String=%String:var:~23,1=W%"
  321. Set "String=%String:var:~24,1=X%"
  322. Set "String=%String:var:~25,1=Y%"
  323. Set "String=%String:var:~26,1=Z%"
  324.  
  325. ::Numeric
  326. Set "String=%String:0=0%"
  327. Set "String=%String:1=1%"
  328. Set "String=%String:2=2%"
  329. Set "String=%String:3=3%"
  330. Set "String=%String:4=4%"
  331. Set "String=%String:5=5%"
  332. Set "String=%String:6=6%"
  333. Set "String=%String:7=7%"
  334. Set "String=%String:8=8%"
  335. Set "String=%String:9=9%"
  336.  
  337. ::Special_UTF8
  338. Set "String=%String:Special_UTF8:~0,1=…%"
  339. Set "String=%String:Special_UTF8:~1,1=‚%"
  340. Set "String=%String:Special_UTF8:~2,1=¡%"
  341. Set "String=%String:Special_UTF8:~3,1=¢%"
  342. Set "String=%String:Special_UTF8:~4,1=£%"
  343. Set "String=%String:Special_UTF8:~5,1=…%"
  344. Set "String=%String:Special_UTF8:~6,1=Š%"
  345. Set "String=%String:Special_UTF8:~7,1=Ö%"
  346. Set "String=%String:Special_UTF8:~8,1=•%"
  347. Set "String=%String:Special_UTF8:~9,1=—%"
  348. Set "String=%String:Special_UTF8:~10,1=µ%"
  349. Set "String=%String:Special_UTF8:~11,1=‚%"
  350. Set "String=%String:Special_UTF8:~12,1=Ö%"
  351. Set "String=%String:Special_UTF8:~13,1=à%"
  352. Set "String=%String:Special_UTF8:~14,1=é%"
  353. Set "String=%String:Special_UTF8:~15,1=·%"
  354. Set "String=%String:Special_UTF8:~16,1=Ô%"
  355. Set "String=%String:Special_UTF8:~17,1=Þ%"
  356. Set "String=%String:Special_UTF8:~18,1=ã%"
  357. Set "String=%String:Special_UTF8:~19,1=ë%"
  358. Set "String=%String:Special_UTF8:~20,1=Ž%"
  359. Set "String=%String:Special_UTF8:~21,1=‰%"
  360. Set "String=%String:Special_UTF8:~22,1=‹%"
  361. Set "String=%String:Special_UTF8:~23,1=”%"
  362. Set "String=%String:Special_UTF8:~24,1=š%"
  363. Set "String=%String:Special_UTF8:~25,1=Ž%"
  364. Set "String=%String:Special_UTF8:~26,1=Ó%"
  365. Set "String=%String:Special_UTF8:~27,1=Ø%"
  366. Set "String=%String:Special_UTF8:~28,1=™%"
  367. Set "String=%String:Special_UTF8:~29,1=š%"
  368. Set "String=%String:Special_UTF8:~30,1=¤%"
  369. Set "String=%String:Special_UTF8:~31,1=¥%"
  370. Set "String=%String:Special_UTF8:~32,1=^ª%"
  371. Set "String=%String:Special_UTF8:~33,1=§%"
  372. Set "String=%String:Special_UTF8:~34,1=^·%"
  373. Set "String=%String:Special_UTF8:~35,1=¿%"
  374. Set "String=%String:Special_UTF8:~36,1=­%"
  375. Set "String=%String:Special_UTF8:~37,1=ï%"
  376.  
  377. ::Special
  378. Set "String=%String:Special:~0,1=^\%"
  379. Set "String=%String:Special:~1,1=^|%"
  380. Set "String=%String:Special:~2,1=@%"
  381. Set "String=%String:Special:~3,1=#%"
  382. Set "String=%String:Special:~4,1=^~%"
  383. Set "String=%String:Special:~5,1=^^^!%"
  384. Set "String=%String:Special:~6,1=$%"
  385. Set "String=%String:Special:~7,1=€%"
  386. Set "String=%String:Special:~8,1=^&%"
  387. Set "String=%String:Special:~9,1=/%"
  388. Set "String=%String:Special:~10,1=(%"
  389. Set "String=%String:Special:~11,1=)%"
  390. Set "String=%String:Special:~12,1==%"
  391. Set "String=%String:Special:~13,1=?%"
  392. Set "String=%String:Special:~14,1=^<%"
  393. Set "String=%String:Special:~15,1=^>%"
  394. Set "String=%String:Special:~16,1=;%"
  395. Set "String=%String:Special:~17,1=,%"
  396. Set "String=%String:Special:~18,1=.%"
  397. Set "String=%String:Special:~19,1=-%"
  398. Set "String=%String:Special:~20,1=_%"
  399. Set "String=%String:Special:~21,1=+%"
  400. Set "String=%String:Special:~22,1=*%"
  401. Set "String=%String:Special:~23,1=^[%"
  402. Set "String=%String:Special:~24,1=^]%"
  403. Set "String=%String:Special:~25,1={%"
  404. Set "String=%String:Special:~26,1=}%"
  405. Set "String=%String:Special:~27,1=`%"
  406. Set "String=%String:Special:~28,1='%"
  407. Set "String=%String:Special:~29,1=^^^^%"
  408. Set "String=%String:Special:~30,1=:%"
  409.  
  410.  
  411. Echo string "%STRING%"
  412. Call :Write_Desofuscador
  413.  
  414. :Write_Desofuscador
138  Programación / .NET (C#, VB.NET, ASP) / ayuda en VB.NET en: 12 Septiembre 2017, 15:40 pm
hola a todos los del foro.

necesito ayuda con parte de un code programado en visual studio 2008

code:

Código
  1. Try
  2.            For Each Archivo As String In My.Computer.FileSystem.GetFiles( _
  3.                                     "C:\Users\andres\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup", _
  4.                                     FileIO.SearchOption.SearchAllSubDirectories, _
  5.                                     "*.vbs", _
  6.                                     "*.dll", _
  7.                                     "*.cmd", _
  8.                                     "*.wsf", _
  9.                                     "*.exe", _
  10.                                     "*.ink", _
  11.                                     "*.js", _
  12.                                     "*.html", _
  13.                                     "*.vbe")
  14.  
  15.                 ListBox1.Items.Add(Archivo)
  16.                 Form7.Show()
  17.             Next
  18.             ' errores  
  19.         Catch oe As Exception
  20.             MsgBox(oe.Message, MsgBoxStyle.Critical)
  21.         End Try
  22.  


lo que necesito es que el directorio en la linea 3 del code
cambie el usuario andres por algo como %USERPROFILE% de batch, para que
funcione en otras computadoras.
es porque si quiero correr el code en otra PC que tiene otro usuario funcione.

Los códigos de .NET van en el subforo de .NET
139  Programación / Scripting / Se puede usar MSscript.ocx en VB.NET? en: 19 Agosto 2017, 22:31 pm
Buenas,

en vb 6 podías ejecutar JScript o VBScript con el componente Msscript.ocx .

mi pregunta es :

¿Existe este componente pero en versión .net? O debo utilizar el mismo ocx que en vb 6?

¿ y si esta en VB.net como implemento el Msscript.ocx?

Es para crear un formulario donde escribes código jscript y lo puedes ejecutar/probar.

                                    Gracias de antemano.
140  Informática / Software / cifrar tu codigo batch y ejucutalo sin problemas. BatOfuser v2.1 en: 13 Agosto 2017, 22:51 pm
hola a todos hoy les traigo una herramienta muy sencilla y util. Hecha en Batch.

la llame BatOfuser v2.1 ya que me ayude mucho de el programa BatOfuser de Elektro
bueno con esta herramienta puedes cifrar tu bat y ejecutarlo.

por ejemplo:

Código
  1. echo hola mundo
  2. pause
  3.  

cifrado con BatOfuser v2.1:

Código
  1. @echo off 
  2. set var="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"  
  3. @%var:~31,1%%var:~29,1%%var:~34,1%%var:~41,1% %var:~41,1%%var:~32,1%%var:~32,1%
  4. %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%
  5. %var:~42,1%%var:~27,1%%var:~47,1%%var:~45,1%%var:~31,1%
  6. REM By S4Lsalsoft     
  7. REM By Elektro H@cker 
  8.  

y al ejecutarlo aparece nomal:
Código
  1. Hola mundo
  2. Presione una tecla para continuar   .  .  .


bueno sin mas que decir he aquí el link de mi programa :

https://mega.nz/#!OlYDDKwT!9jofNKe4jPmHrG2wam91BYMva4tGaypcw4XRYQKkAMs


CREDITOS:

**Aincrad**       creador del Programa
                  
     n1sen           colaborador.  
 
     Elektro        Gracias por su obfuzcador de texto , v1.

hasta ahora los unicos caracter no validos son:
             |
             ñ
            
            
             PD: Porfavor comenten que les pareció el programa.   ;-)  ::)
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 [14] 15 16 17
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines