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


Tema destacado: Tutorial básico de Quickjs


  Mostrar Mensajes
Páginas: 1 ... 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 [40] 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 ... 75
391  Seguridad Informática / Análisis y Diseño de Malware / Re: [BATCH] [APORTE] Virus . (Te hace pensar que agarraste ramsomware) en: 31 Octubre 2018, 23:59 pm
Realmente te vas a cagar de la risa como Windows en otra versión no tenga los nombres
de tipo de archivo que has puesto en la solución.  :¬¬

sheett, no se lo digas a nadie , eso fue un extra :V asdasdasd. En Win 10 . cuando ejecuto la solución no restaura la clase .exe por que los nombres de la clase no son iguales a WIN7, por lo tanto windows no los reconocerá y se abrirán así : (por ejemplo) :
392  Programación / .NET (C#, VB.NET, ASP) / VB.NET Overlay in Games Full Screen en: 22 Octubre 2018, 16:27 pm
Hola, Bueno mi duda es como haría yo para Sobreponer Un formulario encima de un juego Direcx En pantalla Completa, El compañero @Elektro lo logro con la api de SharpDX, Bueno yo he logrado casi lo mismo pero Con una api Direxc , he logrado hasta ahora sobreponer texto y dibujar en juegos en pantalla completa que usan direcx 9 ,  Ya puedo Simplemente dibujar un menu d3d y listo creo las funciones y hago un hack, pero no logro ni tengo idea de como sobreponer el Formulario. Necesito ayuda en eso.

La api que estoy usando :

DX9-Overlay-API

Documentación



Bueno y como siempre, yo no planteo nada sin algo de codigo :

Wrapper :

DX9Overlay.vb --- Clase


Código
  1. Imports System
  2. Imports System.Runtime.InteropServices
  3.  
  4. Namespace DX9OverlayAPI
  5.    Class DX9Overlay
  6.        Public Const PATH As String = "dx9_overlay.dll"
  7.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  8.        Public Shared Function TextCreate(ByVal font As String, ByVal fontSize As Integer, ByVal bBold As Boolean, ByVal bItalic As Boolean, ByVal x As Integer, ByVal y As Integer, ByVal color As UInteger, ByVal text As String, ByVal bShadow As Boolean, ByVal bShow As Boolean) As Integer
  9.        End Function
  10.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl, CharSet:=CharSet.Unicode)>
  11.        Public Shared Function TextCreateUnicode(ByVal font As String, ByVal fontSize As Integer, ByVal bBold As Boolean, ByVal bItalic As Boolean, ByVal x As Integer, ByVal y As Integer, ByVal color As UInteger, ByVal text As String, ByVal bShadow As Boolean, ByVal bShow As Boolean) As Integer
  12.        End Function
  13.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  14.        Public Shared Function TextDestroy(ByVal id As Integer) As Integer
  15.        End Function
  16.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  17.        Public Shared Function TextSetShadow(ByVal id As Integer, ByVal b As Boolean) As Integer
  18.        End Function
  19.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  20.        Public Shared Function TextSetShown(ByVal id As Integer, ByVal b As Boolean) As Integer
  21.        End Function
  22.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  23.        Public Shared Function TextSetColor(ByVal id As Integer, ByVal color As UInteger) As Integer
  24.        End Function
  25.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  26.        Public Shared Function TextSetPos(ByVal id As Integer, ByVal x As Integer, ByVal y As Integer) As Integer
  27.        End Function
  28.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  29.        Public Shared Function TextSetString(ByVal id As Integer, ByVal str As String) As Integer
  30.        End Function
  31.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl, CharSet:=CharSet.Unicode)>
  32.        Public Shared Function TextSetStringUnicode(ByVal id As Integer, ByVal str As String) As Integer
  33.        End Function
  34.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  35.        Public Shared Function TextUpdate(ByVal id As Integer, ByVal font As String, ByVal fontSize As Integer, ByVal bBold As Boolean, ByVal bItalic As Boolean) As Integer
  36.        End Function
  37.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl, CharSet:=CharSet.Unicode)>
  38.        Public Shared Function TextUpdateUnicode(ByVal id As Integer, ByVal font As String, ByVal fontSize As Integer, ByVal bBold As Boolean, ByVal bItalic As Boolean) As Integer
  39.        End Function
  40.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  41.        Public Shared Function BoxCreate(ByVal x As Integer, ByVal y As Integer, ByVal w As Integer, ByVal h As Integer, ByVal dwColor As UInteger, ByVal bShow As Boolean) As Integer
  42.        End Function
  43.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  44.        Public Shared Function BoxDestroy(ByVal id As Integer) As Integer
  45.        End Function
  46.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  47.        Public Shared Function BoxSetShown(ByVal id As Integer, ByVal bShown As Boolean) As Integer
  48.        End Function
  49.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  50.        Public Shared Function BoxSetBorder(ByVal id As Integer, ByVal height As Integer, ByVal bShown As Boolean) As Integer
  51.        End Function
  52.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  53.        Public Shared Function BoxSetBorderColor(ByVal id As Integer, ByVal dwColor As UInteger) As Integer
  54.        End Function
  55.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  56.        Public Shared Function BoxSetColor(ByVal id As Integer, ByVal dwColor As UInteger) As Integer
  57.        End Function
  58.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  59.        Public Shared Function BoxSetHeight(ByVal id As Integer, ByVal height As Integer) As Integer
  60.        End Function
  61.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  62.        Public Shared Function BoxSetPos(ByVal id As Integer, ByVal x As Integer, ByVal y As Integer) As Integer
  63.        End Function
  64.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  65.        Public Shared Function BoxSetWidth(ByVal id As Integer, ByVal width As Integer) As Integer
  66.        End Function
  67.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  68.        Public Shared Function LineCreate(ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer, ByVal y2 As Integer, ByVal width As Integer, ByVal color As UInteger, ByVal bShow As Boolean) As Integer
  69.        End Function
  70.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  71.        Public Shared Function LineDestroy(ByVal id As Integer) As Integer
  72.        End Function
  73.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  74.        Public Shared Function LineSetShown(ByVal id As Integer, ByVal bShown As Boolean) As Integer
  75.        End Function
  76.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  77.        Public Shared Function LineSetColor(ByVal id As Integer, ByVal color As UInteger) As Integer
  78.        End Function
  79.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  80.        Public Shared Function LineSetWidth(ByVal id As Integer, ByVal width As Integer) As Integer
  81.        End Function
  82.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  83.        Public Shared Function LineSetPos(ByVal id As Integer, ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer, ByVal y2 As Integer) As Integer
  84.        End Function
  85.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  86.        Public Shared Function ImageCreate(ByVal path As String, ByVal x As Integer, ByVal y As Integer, ByVal rotation As Integer, ByVal align As Integer, ByVal bShow As Boolean) As Integer
  87.        End Function
  88.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  89.        Public Shared Function ImageDestroy(ByVal id As Integer) As Integer
  90.        End Function
  91.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  92.        Public Shared Function ImageSetShown(ByVal id As Integer, ByVal bShown As Boolean) As Integer
  93.        End Function
  94.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  95.        Public Shared Function ImageSetAlign(ByVal id As Integer, ByVal align As Integer) As Integer
  96.        End Function
  97.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  98.        Public Shared Function ImageSetPos(ByVal id As Integer, ByVal x As Integer, ByVal y As Integer) As Integer
  99.        End Function
  100.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  101.        Public Shared Function ImageSetRotation(ByVal id As Integer, ByVal rotation As Integer) As Integer
  102.        End Function
  103.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  104.        Public Shared Function DestroyAllVisual() As Integer
  105.        End Function
  106.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  107.        Public Shared Function ShowAllVisual() As Integer
  108.        End Function
  109.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  110.        Public Shared Function HideAllVisual() As Integer
  111.        End Function
  112.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  113.        Public Shared Function GetFrameRate() As Integer
  114.        End Function
  115.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  116.        Public Shared Function GetScreenSpecs(<Out> ByRef width As Integer, <Out> ByRef height As Integer) As Integer
  117.        End Function
  118.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  119.        Public Shared Function SetCalculationRatio(ByVal width As Integer, ByVal height As Integer) As Integer
  120.        End Function
  121.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  122.        Public Shared Function SetOverlayPriority(ByVal id As Integer, ByVal priority As Integer) As Integer
  123.        End Function
  124.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  125.        Public Shared Function Init() As Integer
  126.        End Function
  127.        <DllImport(PATH, CallingConvention:=CallingConvention.Cdecl)>
  128.        Public Shared Sub SetParam(ByVal _szParamName As String, ByVal _szParamValue As String)
  129.        End Sub
  130.    End Class
  131. End Namespace
  132.  

En el Form1, Un ejemplo de como Dibujar texto, Cuadro o linea :

Código
  1. Imports System
  2. Imports DX9OverlayAPI
  3.  
  4. Public Class Form1
  5.  
  6.    Shared overlayText As Integer = -1
  7.    Shared overlayBox As Integer = -1
  8.    Shared overlayLine As Integer = -1
  9.  
  10.    Private Sub texto()
  11.        DX9Overlay.SetParam("process", "hl2.exe")
  12.        DX9Overlay.DestroyAllVisual()
  13.        overlayText = DX9Overlay.TextCreateUnicode("Arial", 12, False, False, 200, 200, 4278255615, "Hello world!", True, True)
  14.    End Sub
  15.  
  16.    Private Sub linea()
  17.        DX9Overlay.SetParam("process", "hl2.exe")
  18.        DX9Overlay.DestroyAllVisual()
  19.        overlayLine = DX9Overlay.LineCreate(0, 0, 300, 300, 5, 4294967295, True)
  20.    End Sub
  21.  
  22.    Private Sub caja()
  23.        DX9Overlay.SetParam("process", "hl2.exe")
  24.        DX9Overlay.DestroyAllVisual()
  25.        overlayBox = DX9Overlay.BoxCreate(200, 200, 100, 100, 1358889215, True)
  26.    End Sub
  27.  
  28.    Private Sub eliminarTodo()
  29.        DX9Overlay.TextDestroy(overlayText)
  30.        DX9Overlay.BoxDestroy(overlayBox)
  31.        DX9Overlay.LineDestroy(overlayLine)
  32.    End Sub
  33.  
  34. End Class




Y bueno la .DLL no la agregan a referencias, solo la colocan en donde esta su .exe . osea en la carpeta .\bin\Debug\  DLL

Gracias de antemano, solo quiero superponer el Formulario no dibujar y no se como hacer eso.


PD : @Elektro Pasaste de Mod. Global a Colaborador? como @Shell Root? Colaborador no es un rango menor al q tenias? , que paso? tu eres el que mas ayuda al foro y te bajan de rango. están bien pendejos.

393  Programación / Scripting / Re: ¿Es posible el que se ejecute un archivo BAT con derechos de Administrador? en: 20 Octubre 2018, 18:16 pm
El problema era q no mataba el proceso, Bueno aqui esta
(Funcionando correctamente en Win7 32bits y 64 bits) ,  Me avisas si te sirvió.

Código
  1. @echo off
  2.  
  3. REM .bat con permisos de administrador
  4. :-------------------------------------
  5. REM  --> Analizando los permisos
  6.    IF "%PROCESSOR_ARCHITECTURE%" EQU "amd64" (
  7. >nul 2>&1 "%SYSTEMROOT%\SysWOW64\cacls.exe" "%SYSTEMROOT%\SysWOW64\config\system"
  8. ) ELSE (
  9. >nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
  10. )
  11.  
  12. REM --> Si hay error es que no hay permisos de administrador.
  13. if '%errorlevel%' NEQ '0' (
  14.    echo Solicitando permisos de administrador... Requesting administrative privileges... Anfordern Administratorrechte ...
  15.    goto UACPrompt
  16. ) else ( goto gotAdmin )
  17.  
  18. :UACPrompt
  19.    echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
  20.    set params = %*:"=""
  21.    echo UAC.ShellExecute "cmd.exe", "/c ""%~s0"" %params%", "", "runas", 1 >> "%temp%\getadmin.vbs"
  22.  
  23.    "%temp%\getadmin.vbs"
  24.    del "%temp%\getadmin.vbs"
  25.    exit /B
  26.  
  27. :gotAdmin
  28.    pushd "%CD%"
  29.    CD /D "%~dp0"
  30. :--------------------------------------  
  31.  
  32. REM  
  33. ECHO.
  34. if %PROCESSOR_ARCHITECTURE%==x86 (goto Uni32bit) else if %PROCESSOR_ARCHITECTURE%==AMD64 (goto Uni64bit)
  35.  
  36. :Uni32bit
  37. goto Condicional
  38.  
  39. :Uni64bit
  40. net user administrador /active:yes
  41. goto Condicional
  42.  
  43.  
  44. :Condicional
  45. tasklist | find /i "JAHER.exe" && (
  46. TASKKILL /IM "JAHER.exe" /F
  47. echo Proceso Encontrado y Terminado, Procedemos a eliminar la carpeta . . .
  48. goto delete
  49. ) || (
  50. echo Proceso no Abierto Procedemos a eliminar la carpeta . . .
  51. )
  52. goto delete
  53.  
  54. :delete
  55. cls
  56. color a
  57. cd "%PROGRAMFILES%"
  58. set Folder=JAHER
  59.  
  60. if exist %folder% (
  61. RD /S /Q %Folder%
  62. echo La Carpeta %folder% Fue Eliminada.
  63. pause
  64. DEL /F /Q %0
  65. ) else (
  66. echo La Carpeta no existe.
  67. pause
  68. DEL /F /Q %0
  69. )
  70.  
  71. exit
394  Programación / .NET (C#, VB.NET, ASP) / Re: Convertir Cadena Hex a Bytes y compararlos Con Bytes de un archivo en: 13 Octubre 2018, 23:09 pm
Y como aplico ese ejemplo al mio? es que tengo una base de datos XML grande.

Código
  1. Dim xml = <?xml version="1.0"?>
  2.              <signatures>
  3.                  <signature>
  4.                      <name>Archivo1</name>
  5.                      <hex>58354f2150254041505b345c505a58353428505e2937434329377d2445494341522d5354414e4441</hex>
  6.                  </signature>
  7.                  <signature>
  8.                      <name>Archivo2</name>
  9.                      <hex>f649e7cc1e00d37e7f3bc85fff3486ac6de91433aa3a39ef1b114d37b534b8323f6ff67132638a3fe2f2afb4aaf9b7e3b4669bb3cab028298aab533c5d73546cdd396fd58c2c7734c50bca68eb709b889a086fb3db5f8ae533a4d5816e8c5f560983695efa14e291c204b1316e657773</hex>
  10.                  </signature>
  11.              </signatures>

395  Programación / .NET (C#, VB.NET, ASP) / Convertir Cadena Hex a Bytes y compararlos Con Bytes de un archivo en: 13 Octubre 2018, 19:57 pm
Bueno hola foro, Como dice el titulo, tengo un Escanear Hexadecimal para identificar archivos, Pero es lento y segun me he documentado se puede mejorar si :

1) Convierto la cadena Hex a Bytes.

2) Obtengo los Bytes del archivo .

4) Comparo la Cadena Hex convertida a Bytes con los Bytes del archivo.




Bueno ahora lo que tengo hecho hasta ahora :


Cadena Hex Almacenada en una variable XML:

Código
  1. Dim xml = <?xml version="1.0"?>
  2.              <signatures>
  3.                  <signature>
  4.                      <name>Archivo1</name>
  5.                      <hex>58354f2150254041505b345c505a58353428505e2937434329377d2445494341522d5354414e4441</hex>
  6.                  </signature>
  7.                  <signature>
  8.                      <name>Archivo2</name>
  9.                      <hex>f649e7cc1e00d37e7f3bc85fff3486ac6de91433aa3a39ef1b114d37b534b8323f6ff67132638a3fe2f2afb4aaf9b7e3b4669bb3cab028298aab533c5d73546cdd396fd58c2c7734c50bca68eb709b889a086fb3db5f8ae533a4d5816e8c5f560983695efa14e291c204b1316e657773</hex>
  10.                  </signature>
  11.              </signatures>

Aquí el código para leer el XML y Convertirlo a Bytes:

Código
  1. Private Sub hexttoBytes()
  2.        Dim Str As New StringBuilder
  3.        For Each signature As XElement In xml.Root.Elements
  4.  
  5.            stringToByteArray(signature.<hex>.Value)
  6.  
  7.        Next
  8.  
  9.    End Sub
  10.  
  11.    Public Shared Function stringToByteArray(text As String) As Byte()
  12.        Dim bytes As Byte() = New Byte(text.Length \ 2 - 1) {}
  13.  
  14.        For i As Integer = 0 To text.Length - 1 Step 2
  15.            bytes(i \ 2) = Byte.Parse(text(i).ToString() & text(i + 1).ToString(), System.Globalization.NumberStyles.HexNumber)
  16.        Next
  17.  
  18.        Return bytes
  19.    End Function


Aquí el código para Obtener los Bytes del archivo a comparar

Código
  1.  ' Opendia IS OPENFILEDIALOG
  2.        Dim result As DialogResult = OpenDia.ShowDialog()
  3.  
  4.  
  5.        If result = Windows.Forms.DialogResult.OK Then
  6.  
  7.  
  8.            Dim path As String = OpenDia.FileName
  9.            Try
  10.  
  11.                Dim bytesFile As Byte() = File.ReadAllBytes(path)
  12.  
  13.                ' BytesFile es donde se almacenan Los Bytes del archivo a comparar
  14.                ' Necesito saber Como los Comparo con los Otros Bytes que antes eran HEX
  15.  
  16.            Catch ex As Exception
  17.  
  18.                MsgBox(ex.Message)
  19.  
  20.            End Try
  21.        End If
  22.  




AHORA LAS DUDAS, SEGÚN LO QUE TENGO ECHO ,  No logro Como hacer Para Comparar los Bytes que antes eran HEX con los Bytes del archivo. Lo que quiero lograr seria algo como esto :

Código
  1. 'Donde BytesFiles es el Archivo y BytesHex eran la Cadena Hex que ahora son Bytes
  2. ' En caso de que los Bytes sean Iguales. lanza el mensaje de que encontró el archivo o no.
  3. If bytesFile = BytesHex then
  4. Msgbox("Archivo Coincide")
  5. else
  6. Msgbox("Archivo No Coincide")
  7. end if

Gracias De Antemano

396  Programación / Scripting / Re: Crear BAT que cree un txt o html con caracteres especiales??? en: 10 Octubre 2018, 17:29 pm
Ya te lo explicaron arriba pero de todos modos toma :

Código
  1. @echo off
  2.  (
  3.     echo ^<html^>
  4.     echo ^<Hola cualquier cosa aqui^>
  5.  ) >> archivo.html

397  Programación / Scripting / Re: PEQUEÑO ENCRIPTADOR EN BATCH en: 7 Octubre 2018, 22:16 pm
No Revivir post Antiguos!



No se para que te molestas en crear cosas q ya están creadas, pero bueno:

[BATCH] Encriptador & Desencriptador de Texto v1.5

BatOfuser

398  Programación / Scripting / Re: modificar texto en batch en: 7 Octubre 2018, 04:43 am
Código
  1. @echo off
  2. goto main
  3.  
  4. :error
  5. echo archivo no existe.
  6. pause
  7. goto main
  8.  
  9.  
  10. :Main
  11. cls
  12. set /p file=Indique el nombre del archivo:
  13. if not exist %file% goto error
  14. set string=telefono
  15. echo.
  16. setlocal enabledelayedexpansion
  17. set /a nchar=0
  18. call:Contar
  19. set /a nlin=0
  20. For /f "useback tokens=*" %%F in ("%file%") do (
  21.     set /a nlin+=1
  22.     set "line=%%F"
  23.     set /a xcont=0
  24.     call:Comparar
  25. )
  26. echo. & echo Terminado. & pause>nul & goto Main
  27.  
  28. :Contar
  29. If /i "!string:~%nchar%,1!" == "" goto:eof
  30. set /a nchar+=1
  31. goto Contar
  32.  
  33. :Comparar
  34. If /i "!line:~%xcont%,%nchar%!" == "%string%" (
  35.     set mtch=T
  36.     call:Msj
  37. )
  38. If /i "!line:~%xcont%,%nchar%!" == "" (
  39.     set mtch=F
  40.     call:Msj
  41.     goto:eof
  42. )
  43. set /a xcont+=1
  44. goto Comparar
  45.  
  46. :Msj
  47. If "%mtch%" == "T" (
  48.     cls
  49.     color a
  50.     echo Telefono encontrado:  [%line%] & echo.
  51.     call :Continue
  52. )
  53. If "%mtch%" == "F" echo LINEA %nlin%: %line%
  54. goto:eof
  55. exit
  56.  
  57. :Continue
  58. set /p numero=introduzca El nuevo Numero :
  59.     Call :TEXTMAN RL %nlin% "%file%" "Telefono : %numero%"
  60.     pause
  61.     exit
  62.  
  63. :TEXTMAN
  64. (SET /A "A=0", "LINE=0", "TOTAL_LINES=0")  &  (CALL :%~1 %* || (ECHO Invalid parameter & Exit /B 1)) & (GOTO:EOF)
  65. :RL
  66. (For /F "tokens=1* delims=]" %%A in ('type "%~3" ^| find /n /v ""') DO (Call Set /A "LINE+=1" && (CMD /C "IF NOT "%%LINE%%" EQU "%~2" (if "%%B" EQU "" (Echo+>> "%~3.NEW") ELSE ((Echo %%B)>> "%~3.NEW")) ELSE ((Echo %~4)>> "%~3.NEW")"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
  67. :RENAMER
  68. (REN "%~1" "%~nx1.BAK") & (MOVE /Y "%~1.BAK" "%TEMP%\" >NUL) & (REN "%~1.NEW" "%~nx1") & (GOTO:EOF)


Bueno lo q hace el Code es Buscar la primera linea que tenga la palabra Teléfono y la cambia por el nuevo q tu introduzcas



Código sacado del aporte del compañero  @Elektro : [BATCH] [APORTE] Rutina TEXTMAN para manipular archivos de texto
399  Programación / Scripting / Re: modificar texto en: 6 Octubre 2018, 22:16 pm
1) NO ESPECIFICAS QUE LENGUAJE. Y POR COMO TE EXPRESAS SUPONGO QUE NO POSES CONOCIMIENTO DE NINGUNO . AQUÍ NO AYUDAMOS ASÍ.

Intenta  crear tu propio script y en caso de que tengas algún error, con mucho gusto te ayudo.



A como te expresas, la respuesta que te daría es que :

1) agarres el txt , click derecho >> Editar .

2) Modificas el texto.

3) Y lo guardas.

Esa seria la Solución que le daría a alguien como tu.
400  Seguridad Informática / Análisis y Diseño de Malware / Re: [BATCH] [APORTE] Virus . (Te hace pensar que agarraste ramsomware) en: 5 Octubre 2018, 02:56 am
Y esto como para qué? xD no le veo utilidad la verdad...  :silbar:

Reírte un rato al joder la computadoras de otros. por ejemplo tengo control a la PC de alguien mediante un rat  y quiero joderle la pc. ejecuto ese código y listo y lo mejor es q no es detectado.
Páginas: 1 ... 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 [40] 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 ... 75
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines