Nesesito ayuda con el metodo de potencias para sacar un valor caracteristico y su vector asociado de una matriz cuadrada en este caso es una de 3x3 
 

 https://es.m.wikipedia.org/wiki/Método_de_las_potencias



Edto ea lo que tengo pero por alguna razon  no sigue asiendo interaciones

 'Metodo de Potencias para encontrar 
'el maximo valor caracteristico
'y su vector asociado
 
 
'Ingresando la siguiente matriz 
 
'1 2 3 
'4 5 6 
'1 1 1
 
'Debe dar como resultado
 
'lambda 1 = 7.7720018727
'Vector asiciado:
'0.3860009363
'1.0000000000
'0.2046663546
 
'Pedir una matriz(a) 3 x 3 y la multiplica por otra matriz(b) aleatoria 
'de 3 x 1 dando como resultado una matriz(c) de 3 x 1 dividir la matriz(c)
'entre el maximo de dicha matriz genrando otra matriz(d) de 3x1.calcular 
'el error relativo q seria el numero maximo de la matriz(d) menos el 
'numero maximo anterior si estes es menor a 0.0000000001 imprimir el
'ultimo valor maximo  y la ultima matriz dividida   
 
 
Dim A(50, 50) ,B(50, 50), c(50,50) 
Dim n,i,j,k,nn,NuMax
 
wscript.echo  "Ingrese Los Elementos De La Matriz A  " & vbLf & ""
For i  = 1 To 3
   For j  = 1 To 3
      wscript.echo "Elemento", i, j
      A(i, j) = Wscript.StdIn.ReadLine
   Next
Next 
'genera matriz aleatoria de ceros y unos
for i = 1 to 3 
   if i = 1 then 
      b(i,1) = 1
   else   
      RAndomize()
      b(i, 1) = Mid("01", Int(Rnd * 2) + 1, 1)
   end if
next
 
do 
'multiplica la matriz a*b y 
'almacena el resultado en c 
For i  = 1 To 3
   For j  = 1 To 1
      For k  = 1 To 3
          C(i, j) = C(i, j) + (A(i, k) * B(k, j)) 
      next
   Next
Next
 
'busca el valor mas grande
'en vector c
NuMax = c(1,1)
for i = 1 to 3
    if c(i,1)>NuMax then
       NuMax = c(i,1)
    end if   
next
 
'divide cada uno de los componentes
'del vector c entre el maximo de dicho vector
for i = 1 to 3
   for j = 1 to 3
      b(i,j) = c(i,j)/NuMax
   next
next
 
'error:: numero maximo - el anterior
err = NuMax-err
if round(err,10) <0.000000001 then ' Si el error es menor a  0.000000001  termina e imprimeresultados
exit do
end if
loop
 
'para comprobar que lambda y el vector asociado esta bien 
'multiplicar la matriz(a) ingesada y multiplicarla por
'la matriz resultante debe dar 
 
'0
'0
'0
'MatrizOriginal * VectorAsociado = 0 ok
 
wscript.echo "Lambda1 = " & NuMax & vbLf & "Vector Asociado:" & vbLf & imprimir(b)
 
 
 
function Imprimir(c)
M = ""
For i  = 1 To 3 
    For j  = 1 To 1
      M = M & C(i, j) & " "
    Next
   M = M & vbLf 
Next
imprimir = M & vbLf
End function 

eso crei. pero paea llegar a un lugar sirmpre hay muchos caminos.

Segire investigando y probando
Gracias

Necesito un poco de ayuda
en un textbox  o inputbox se ingresara una funcion pej    x^2-1.44   

como ago para evaluarla si x = 1.20  o cualquier otro numero
y q me arroje el resultado de la funcion

x^2-1.44

1.2^2-1.44

Que si no me equivoco es 0

basicamente como sustituyo x por un numero y luego opero

Saludos a tod@s

Gracias Por Los Links Los Checare 

Bueno tengo dos variables del tipo float

x= 1.12349
y=1.1248648

si las compara para ver si son iguales con (if x ==y){

}

Dara resultado falso

lo q qiero es q redonde el valor de las 2 variables a 2 desimales de esta forma al compararla dara verdadero

en vb usaba round()

x=round(1.12349,2)
y=round( 1.1248648,2)

if x=y then
msgbox "="
elae
msgbox "<>"
end if

En C como qdaria

Saludos

Error mio el password es 123

el archivo [Source]crypter.txt   cambia la extensión a vbs  

Y no corre por  funciona con la consola y tiene q llevar argumento

prueba en la consola

c:\CScript.exe //nologo CrypterKsv2.3.vbs script.vbs

El binario funciona arrastrando el o los scripts en sima de el.

Si tienen duda con mucho gusto las contesto



Valla Ya es detectado No hize un buen trabajo  

Esos de   VirusTotal  son unos Lokillos

No es que no quiera subir el C.F. (jamas lo dije.)


A lo que trato de llegar es que las reglas no son lo suficientemnte claras.

Las "reglas " mas bien parece un pobre protocolo de investigacion de un chavo de bachillerato.Objetivo justificacion osea no.
Un reglamento es un documento que especifica normas para regular todas las actividades de los miembros de una
comunidad. Sientar las bases para la convivencia y prevenir los conflictos que se pueden generar entre los individuos.

Basicamente el reglamento de este subforo esta muy pobre.

Pero bueno.Dije lo que pienso.

Pero igual el pueblo qiere codigo fuente y lo tendra .(lo subire mas tarde que llege a casa )

Espero que nadie se sienta ofendido, Pero si es asi es que le quedo el saco

SALUDOS A TOD@S

Ee leido las reglas

 Objetivos:
Siguiendo el objetivo general del foro, el subforo de análisis y diseño de malware, tiene como objetivo el investigar y poner a prueba , las herramientas ...... etc...

  Estoy dando un herramienta para que los usuarios de ELHACKER.NET la prueben

 TODO BIEN HASTA ESTE PUNTO


  Objeto de estudio:
A) El análisis de cierta técnica, heurística, método de propagación, o algoritmo relacionado con  MALWARE , desde una perspectiva académica.


BASICAMENTE MI CRYPTER NO ES UN MALWARE(segun definicion de wikiP)



B) El análisis de cierto troyano/virus/rootkit y afín desde un punto de vista técnico.

TAMPOCO APLICA no es ni troyano ni virus ni rootkit


C) El desarrollo de herramientas o librerias de código abierto, cuyo objetivo sea única, y exclusivamente, para apoyar los últimos 2 puntos.

Dado que ni el insiso A ni B aplican para el crypter, el insiso C tampoco

Y como en ninguna parte dice que tengo que subir el codigo fuente,no estoy faltando a las reglas.

El foro solo tiene 3 reglas

° poner links entre [code  ] [ / code]
°no subir archivos con malware
°no postear emails

Al pareser solo incumpli la primera por que no use ese formato DE IGUAL MANERA ELIMINE EL ARCHIVO DEL SERVIDOR HASTA QUE UN MODERADOR DIGA QUE ESTOY BIEN O MAL

Si mis argumentos resultan convinsentes suvire nuevamente el archivo si no pues este tema sera borrado.

[Saludos] A tod@s

Les traigo un regalo, un crypter para vbscript,en cuanto al aapecto grafico no es muy bueno pero hace su jale,cuenta von 10 algotitmos de cifrado Ascii ,vigenere, cesar,Rc4,revese,hexadesimal , base 64 etc....

Tiene opcion para ofuscar mas el codigo y tiene la opcion de agregar lineas en blanco yas cosillas (todo esta esplicado en el mini mabual que viene en el ZIP

Si tienen dudas postenlas aqui abajo,se aceptan comentarios buenos malos sujerencias felicitaciones


Si detectan errores aganmelo saber si su vbsctipt no corre bien subanlo a un servidor y posten el link para poder arreglar el error

Por el momento el Crypter y  los archivos generados estan FUD VirusTotal no los detecto Cifre el virus HappyTime.vbs y nada

ESPERO QUR DISFRUTEN CIFRANDO SUS SCRIPT COMO YO DISFRUTE PROGRAMARLO



pasword: 123


Link:

usb fix no me sirve

ya cheq entrar en modo de recoperacion

en virustotal no lo detecta

la drieccion d destino en la usb acceso directo es

C:\windows\system32\Rundll32.exe \{D73015B4-AB76-46DD-A5E4-EB3F0135EC48}.{B6042247-CD15-48CA-AAA0-5721495CEA62},Lcs9pfwCTj0GM9V4 qvz$*|dimrw~z(


pero eso varia de Usb a usb A y no tngo avast :-)