elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Como proteger una cartera - billetera de Bitcoin


  Mostrar Mensajes
Páginas: [1] 2 3 4 5 6
1  Programación / Scripting / [?] Metodo de Potencias para calculo de valor caractetistico y vector asociado en: 26 Enero 2016, 21:40 pm
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

Código
  1. 'Metodo de Potencias para encontrar
  2. 'el maximo valor caracteristico
  3. 'y su vector asociado
  4.  
  5.  
  6. 'Ingresando la siguiente matriz
  7.  
  8. '1 2 3
  9. '4 5 6
  10. '1 1 1
  11.  
  12. 'Debe dar como resultado
  13.  
  14. 'lambda 1 = 7.7720018727
  15. 'Vector asiciado:
  16. '0.3860009363
  17. '1.0000000000
  18. '0.2046663546
  19.  
  20. 'Pedir una matriz(a) 3 x 3 y la multiplica por otra matriz(b) aleatoria
  21. 'de 3 x 1 dando como resultado una matriz(c) de 3 x 1 dividir la matriz(c)
  22. 'entre el maximo de dicha matriz genrando otra matriz(d) de 3x1.calcular
  23. 'el error relativo q seria el numero maximo de la matriz(d) menos el
  24. 'numero maximo anterior si estes es menor a 0.0000000001 imprimir el
  25. 'ultimo valor maximo  y la ultima matriz dividida  
  26.  
  27.  
  28. Dim A(50, 50) ,B(50, 50), c(50,50)
  29. Dim n,i,j,k,nn,NuMax
  30.  
  31. wscript.echo  "Ingrese Los Elementos De La Matriz A  " & vbLf & ""
  32. For i  = 1 To 3
  33.   For j  = 1 To 3
  34.      wscript.echo "Elemento", i, j
  35.      A(i, j) = Wscript.StdIn.ReadLine
  36.   Next
  37. Next
  38. 'genera matriz aleatoria de ceros y unos
  39. for i = 1 to 3
  40.   if i = 1 then
  41.      b(i,1) = 1
  42.   else  
  43.      RAndomize()
  44.      b(i, 1) = Mid("01", Int(Rnd * 2) + 1, 1)
  45.   end if
  46. next
  47.  
  48. do
  49. 'multiplica la matriz a*b y
  50. 'almacena el resultado en c
  51. For i  = 1 To 3
  52.   For j  = 1 To 1
  53.      For k  = 1 To 3
  54.          C(i, j) = C(i, j) + (A(i, k) * B(k, j))
  55.      next
  56.   Next
  57. Next
  58.  
  59. 'busca el valor mas grande
  60. 'en vector c
  61. NuMax = c(1,1)
  62. for i = 1 to 3
  63.    if c(i,1)>NuMax then
  64.       NuMax = c(i,1)
  65.    end if  
  66. next
  67.  
  68. 'divide cada uno de los componentes
  69. 'del vector c entre el maximo de dicho vector
  70. for i = 1 to 3
  71.   for j = 1 to 3
  72.      b(i,j) = c(i,j)/NuMax
  73.   next
  74. next
  75.  
  76. 'error:: numero maximo - el anterior
  77. err = NuMax-err
  78. if round(err,10) <0.000000001 then ' Si el error es menor a  0.000000001  termina e imprimeresultados
  79. exit do
  80. end if
  81. loop
  82.  
  83. 'para comprobar que lambda y el vector asociado esta bien
  84. 'multiplicar la matriz(a) ingesada y multiplicarla por
  85. 'la matriz resultante debe dar
  86.  
  87. '0
  88. '0
  89. '0
  90. 'MatrizOriginal * VectorAsociado = 0 ok
  91.  
  92. wscript.echo "Lambda1 = " & NuMax & vbLf & "Vector Asociado:" & vbLf & imprimir(b)
  93.  
  94.  
  95.  
  96. function Imprimir(c)
  97. M = ""
  98. For i  = 1 To 3
  99.    For j  = 1 To 1
  100.      M = M & C(i, j) & " "
  101.    Next
  102.   M = M & vbLf
  103. Next
  104. imprimir = M & vbLf
  105. End function
2  Programación / Programación Visual Basic / Re: [?] Como hago la evaluacion de una funcion algebraica en: 19 Enero 2016, 19:31 pm
eso crei. pero paea llegar a un lugar sirmpre hay muchos caminos.

Segire investigando y probando
Gracias
3  Programación / Programación Visual Basic / [?] Como hago la evaluacion de una funcion algebraica en: 19 Enero 2016, 06:37 am
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
4  Programación / Programación C/C++ / Re: [?] Ayuda como redondeo el valor de una variable en c en: 29 Diciembre 2015, 04:23 am
Gracias Por Los Links Los Checare 
5  Programación / Programación C/C++ / [?] Ayuda como redondeo el valor de una variable en c en: 26 Diciembre 2015, 06:09 am
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
6  Seguridad Informática / Análisis y Diseño de Malware / Re: [SOURCE] + Binario + Manual .::CrypterKsv::. Para Vbscript [Cifra tus *.Vbs FUD ] {Mientras Dur en: 23 Diciembre 2015, 06:02 am
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

7  Seguridad Informática / Análisis y Diseño de Malware / Re: .::CrypterKsv::. Para Vbscript en: 18 Diciembre 2015, 16:05 pm
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
8  Seguridad Informática / Análisis y Diseño de Malware / Re: .::CrypterKsv::. Para Vbscript en: 17 Diciembre 2015, 22:33 pm
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





9  Seguridad Informática / Análisis y Diseño de Malware / [SOURCE] + Binario + Manual .::CrypterKsv::. Para Vbscript [Cifra tus *.Vbs FUD ] {Mientras Dura} en: 14 Diciembre 2015, 23:29 pm
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:
Código:
http://mega.nz/#!yd0D3QSb!2VlSpvs1oehHaOvnACeBwAvoXpsO080y8IPCPRTvBfc  
10  Seguridad Informática / Análisis y Diseño de Malware / Re: Ayuda [Virus] Como elimino el virus que crea accesos directos en Usb en: 4 Noviembre 2015, 21:41 pm
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 :-)
Páginas: [1] 2 3 4 5 6
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines