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

 

 


Tema destacado:


  Mostrar Temas
Páginas: [1] 2 3
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 / [?] 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
3  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
4  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  
5  Seguridad Informática / Análisis y Diseño de Malware / Ayuda [Virus] Como elimino el virus que crea accesos directos en Usb en: 24 Octubre 2015, 04:08 am
Tengo una pc infectada ya le pase varios programas pero no sale .Es el virus que crea accesos directos en las usb no pude saber ni desde donde se inicia ya cheque en el regedit Run y variablciones y la carpeta de Startup .Tambien e en la usb crea una carpeta inborrable y lo q creo q es el virus un archivo *.fr pesa como 20 megas 


les dejo el link de lo q crea en una usb 
aver si me pueden dar solucion a la desinfecion

abstenerse de darme solucion para mostrar los archivos ocultos

cmd
attrib -s -r -h /d /s

https://mega.nz/#!bIszWRpY!Y4g_6BnGd7RYzTougxRpjN-tj6hRUOx9SeN-ik3ebDk
6  Programación / Scripting / [Vbs] Calculo de un determinante Algebra Lineal en: 11 Julio 2015, 23:20 pm
Tengo una funcion para el calculo de la determinante de 3*3 pero esta ya no me sirve si ingreso matrizes mas grandes  ,si alguien me puede ayudar  con una nueva funcion


Código
  1. a11 = 1
  2. a12 = 2
  3. a13 = 3
  4. a21 = 1
  5. a22 = 2
  6. a23 = 1
  7. a31 = 2
  8. a32 = 1
  9. a33 = 1
  10.  
  11. '  |1 2 3|
  12. 'A=|1 2 1|
  13. '  |2 1 1|
  14.  
  15. '|A|=-6
  16.  
  17. MSGBOX determinante(a11,a12,a13,a21,a22,a23,a31,a32,a33 )
  18.  
  19.  
  20.  
  21. Function determinante(ij11,ij12,ij13,ij21,ij22,ij23, ij31, ij32, ij33)
  22.  
  23.  
  24. FC = ij11 * ((ij22 * ij33) - (ij32 * ij23)) +((-1 * ij12) * ((ij21 * ij33) - (ij31 * ij23)) +
  25. (ij13 * ((ij21 * ij32) - (ij31 * ij22))))
  26. determinante = FC
  27. End Function
  28.  
  29.  





Encontre este code  para determinantes n*n Pero no lo comprendo


visual basic 2010 este codigo al pareser usa el metodo de cofactor y yo lo quiero en script vbs

si alguien me ayuda estare agradesido

 
Código
  1.  
  2. Function DET(ByVal Aux(,) As Double)
  3.  
  4. For i As Integer = 1 To n
  5.  
  6. For j = 1 To n
  7. T(i, j) = Aux(i, j)
  8. Next
  9. Next
  10. deter = 1
  11. For k As Integer = 1 To n
  12. If T(k, k) = 0 Then
  13. j = k If T(k, j)= 0 Then
  14. If j =n Then
  15. deter = 0
  16. End If
  17. j = j+ 1
  18. End If
  19. If T(k, j) <> 0 Then
  20. For i As Integer = k To n
  21. temp = T(i, j)
  22. T(i, j) = T(i, k)
  23. T(i, k) = temp
  24. Next i
  25. deter= -deter
  26. End If
  27. End If
  28. If (k - n) < 0 Then
  29. k1 = k + 1
  30. For i As Integer = k1 To n
  31. For j = k1 To n
  32. T(i, j) = T(i, j) - (T(i,k) * T(k, j) /T(k, k))
  33. Next j
  34. Next i
  35. End If
  36. deter = deter * T(k, k)
  37. Next k
  38. DET = deter
  39. End Function
  40.  
  41.  
7  Programación / Programación Visual Basic / Pregunta : Como se grafica un vector (x,y,z) en vb6? en: 11 Julio 2015, 05:11 am
Alguien sabe como graficar x,y,z   lo q pasa es q tengo un vector  arrogado por la solucion de un sistema de ecuaciones Homogeneo  , bueni en realidad lo arroga una magnitud ....... bueno X   lo q quiero saber es como graficar

(-Cos 45° , Cos 45° , Cos 90°)

Si alguien me puede ayudar se lo agradecería enormemente

Saludos a tod@s
8  Programación / Programación Visual Basic / Ayuda Programa despues de cerrarlo se queda en 2do plano en: 10 Julio 2015, 04:12 am
Tngo un problema con un programa que realize a forma  exponer mi problema simplificare

Tengo un proyecto con 3 form (a,b,c ) en a  2 botones mostrar y terminar .

Al dar clic en mostrar mostrara b y c 

al dar clic en terminar cerrar b y c

Codigo en mostrar es

b.show
c.show

En terminar  codigo

B.hide
C.hide

Set b = nothing
Set c= nothing

Esto ase lo q qiero pero  al cerrar a y echecar en el Admi de Tar  el programa esta abierto en 2do plano

Cual es mi error
9  Programación / Scripting / Efecto maquina de escribir en Vbs para Consola en: 24 Junio 2015, 00:45 am
Les traigo un efecto sus script. Es un efecto parecidio al que sale en Matrix  cuando Neo esta en frente de la pc y en la pantalla aparece

Neo,levantate .Sigue al conejo blanco

Bueno aqui esta la funcion  y tambien una breve explicacion de cada parte del codigo

Code:
 
Código
  1.  'llamamos a la funcion MaqEsc() con el texto incluido casi
  2. 'al final esta un numero este indica el tiempo en milisegundos
  3. 'en que iran apareciendo las letras
  4.  
  5. call MaqEsc("HOLA SOY EL USUARIO .::KSV::. DEL FORO DE ELHACKER.NET",60)
  6. Function MaqEsc(Striing,tt)
  7. For i = 1 To Len(Striing) 'Iniciamos un for hasta la ultima letra ,para saber
  8. X = (Mid(Striing, i, 1)) 'cuantas letras son usamos Len() esto regresa la cantidad de letras 'nos movemos letra x letra con mid(cadenaDeTexto,EmpezandoPor,CantidadDeLetrasAprosesar)
  9.  
  10. If x= " " then 'Si el caracter que estamos analizando
  11. wscript.sleep 00 'es espacio se ignora y "aparece de inmediato"
  12. else 'De lo contrario se espera tt tiempo wscript.sleep tt 'tt = al tiempo q se le asigna en mi caso 60 milisegundos
  13. End If
  14. Wscript.StdOut.Write x  'Escribe caracter por caracter tambien se puede usar wscript.echo x
  15. Next
  16. wscript.sleep 3000 'esperamos 3000 milisegundos osea 3 s. y cerramos
  17. End function


Espero que les guste Adios
10  Programación / Scripting / Ayuda Vbscript .Como poner color a una ventana (consola cscript) en: 23 Junio 2015, 23:49 pm
Muy buenas a tod@s  veran tengo un pequeño gran proyecto entre manos .Estoy en detalles y uno de esos detalles es que quiero poner un poco de color a la ventana usando el comando color de batch .Al principio para poner titulo a la ventana use


Código
  1. Set ksv  = CreateObjet('WScript.Shell")
  2. ksv.Exec "%comspec% /c title .::ELHACKER.NET::."
  3.  
  4. WScript.echo "Hola Mundo"
  5. wscript.sleep 3000
  6.  

consola
c:\cscript //nologo  filevb.vbs


 
Pero no funciona con color :

Código
  1. Set ksv  = CreateObjet('WScript.Shell")
  2. ksv.Exec "%comspec% /c color 0a"
  3.  
  4. WScript.echo "Hola Mundo"
  5. wscript.sleep 3000
  6.  

Alguien tiene una idea d como solucionar eso

Gracias de antemano
Páginas: [1] 2 3
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines