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


 


Tema destacado: 4n4lDetector v1.3: herramienta de análisis estático de malware


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 [8] 9 10 11 12 13 14 15 16 17 18
71  Programación / Scripting / (IA) Perceptron . . . en: 3 Octubre 2017, 21:27
hola a todos, abro este tema para al que le interese.  ;D

bueno empecemos.

que es un (AI)?

Inteligencia artificial, o AI. La inteligencia artificial (Artificial Intelligence, o AI) es la simulación de procesos de inteligencia humana por parte de máquinas, especialmente sistemas informáticos.

que es Perceptron?

El perceptrón multicapa es una red neuronal artificial (RNA) formada por múltiples capas, esto le permite resolver problemas que no son linealmente separables, lo cual es la principal limitación del perceptrón (también llamado perceptrón simple). El perceptrón multicapa puede ser totalmente o localmente conectado.

En pocas palabras el perceptron es la simulación de una neurona humana.



EN ESTE ESQUEMA DE PERCEPTOM SIMPLI SE PUEDE APRECIAR . QUE SE INCLUYE LA PARTE SENSORIAL.

con esta parte podemos apreciar que el desarrollo de una IA nunca estara completa si no tiene como sentir.  ya que muchos Psicólogos  han demostrado que por medio de las experiencias sensiorales el cerebro aprende.

ejemplo de perceptron :  

bach

Código
  1. @echo off
  2. rem Perceptron en batch
  3. rem por S4L
  4. rem 14/04/12
  5. color a
  6. setlocal EnableDelayedExpansion
  7. setlocal EnableExtensions
  8. set me=%0
  9. cscript.exe //H:cscript
  10. :::::::::::::::::::::::::::::::::::
  11. set Fgh=fghijklmnopqrstuvwxz
  12. set T=0.5
  13. set Alpha=0.1
  14. set iNn=3
  15. set oNut=1
  16. set TSName="NAND Gate"
  17. set TxSet=4
  18. set TySet=4
  19. set TSet.1=1,0,0,1
  20. set TSet.2=1,0,1,1
  21. set TSet.3=1,1,0,1
  22. set TSet.4=1,1,1,0
  23. set WxSet=1
  24. set WySet=3
  25. set WSet.1=0
  26. set WSet.2=0
  27. set WSet.3=0
  28. :::::::::::::::::::::::::::::::::::
  29.  
  30. echo Randomize>eval.vbs
  31. echo set objArgs = WScript.Arguments>>eval.vbs
  32. echo wscript.echo eval(objArgs(0))>>eval.vbs
  33. set Run=True
  34. rem for /l %%a in (1,1,%WySet%) do (
  35. rem call:SetEv WSet.%%a Rnd
  36. rem )
  37. set /a Tf=2+%iNn%+%oNut%
  38. set vfIn=%%%%g
  39. for /l %%a in (2,1,%iNn%) do (
  40. set vfIn=!vfIn!,%%%%!Fgh:~%%a,1!
  41. )
  42. set /a vfOut_ini=1+%iNn%
  43. set /a fOut=%vfOut_ini%-%oNut%
  44. set vfOut=%%%%!Fgh:~%vfOut_ini%,1!
  45. for /l %%a in (%vfOut_ini%,1,%fOut%) do (
  46. set vfOut=!vfout!,%%%%!Fgh:~%%a,1!
  47. )
  48. set str=Fo
  49. find "%str%r1"<%me%>stFor.bat
  50. echo set In.%%%%f=%vfIn%>>stFor.bat
  51. echo set Out.%%%%f=%vfOut%>>stFor.bat
  52. echo ^)>>stFor.bat
  53. call stFor
  54. echo --Training Started--
  55. :train
  56. set Run=False
  57. for /l %%a in (1,1,%TySet%) do (
  58. echo.
  59. (set/p av=Training.)<nul
  60. call:pre_Sum %%a
  61. call:UpdateW %%a
  62. )
  63. if %Run%==True goto:train
  64. :test
  65. echo.
  66. echo --%TSName% network succesfully trained!--
  67. echo --Testing--
  68. for /l %%a in (1,1,%iNn%) do (
  69. set /p iNn%%a=Input %%a ^(1/0^)?
  70. )
  71. call:PSum
  72. echo Network output=%out%
  73. set /p cnt=Continue testing ^(y/n^)?
  74. if %cnt%'==y' goto:test
  75. if %cnt%'==Y' goto:test
  76. goto:eof
  77.  
  78. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  79.  
  80. :UpdateW
  81. set /a error=!Out.%1!-%out%
  82. if not %error%==0 set Run=True
  83. call:SetEv C %error%*%Alpha%
  84. (set/p av=.)<nul
  85. (set/p av="  E=%error% W1=%WSet.1% W2=%WSet.2% W3=%WSet.3%")<nul
  86. for /l %%b in (1,1,%WySet%) do (
  87. call:SetEv WSet.%%b !WSet.%%b!+!iNn%%b!*!C!
  88. )
  89. goto:eof
  90.  
  91. :pre_Sum
  92. set str2=I
  93. set In.>In.
  94. find "%str2%n.%1"<In.>aIn.
  95. find "%str%r2"<%me%>stFor_In.bat
  96. for /l %%a in (1,1,%iNn%) do (
  97. echo set iNn%%a=%%%%!Fgh:~%%a,1!>>stFor_In.bat
  98. (set/p av=.)<nul
  99. )
  100. (set/p av=.)<nul
  101. echo ^)>>stFor_In.bat
  102. call stFor_In
  103. call:PSum %1
  104. goto:eof
  105.  
  106. :PSum
  107. set sum=0
  108. for /l %%a in (1,1,%iNn%) do (
  109. call:SetEv sum !sum!+!iNn%%a!*!WSet.%%a!
  110. )
  111. if /I %sum% gtr %T% (
  112. set out=1
  113. ) else (
  114. set out=0
  115. )
  116. goto:eof
  117.  
  118. :SetEv
  119. for /f %%i in ('eval //nologo "%2"') do set %1=%%i
  120. goto:eof
  121.  
  122. for /f "tokens=2-%Tf% delims=.,=" %%f in ('set TSet.') do ( %For1%
  123. for /f "tokens=2-%Tf% delims=.,=" %%f in (aIn.) do ( %For2%

para los de c++ les dejo el link:

https://www.facebook.com/TutorialesKatana/?sk=app_190322544333196

http://www.mundoprogramacion.com/colabora/puntoNET/jlopezi_RedNeuronal.htm


  si se preguntan todavía que finalidad tiene este tema. ni yo mismo lo se . jajaja.

bueno abrí este tema para los que esten desarrollando alguna AI O los quieran desarrollar.
                        
  COMENTEN sus aporte sobre IA un este tema
72  Programación / Scripting / Re: [APORTE] [VBS] Convertidor de .vbs a .bat . (VBS2CMD) en: 3 Octubre 2017, 19:16
Hubiera sido mejor que le dejaras los comentarios (incluyendo el nombre del autor):

http://www.robvanderwoude.com/sourcecode.php?src=vbs2cmd_vbs

La verdad, si hubiera sabido cual era el autor lo hubiera puesto, pero como no lo sabia no lo puse . ya que este script me lo pasaron. solo estoy compartiendo lo que tengo.  :D

ahhh , y gracias por la pagina que pusiste hay buenas tols.  ;-)
73  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

74  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
75  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
76  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
77  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

78  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  ;-)
79  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
80  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
Páginas: 1 2 3 4 5 6 7 [8] 9 10 11 12 13 14 15 16 17 18
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines