Cita de: #!drvy en 3 Julio 2021, 20:38 PMPuede ser una ventaja, pero también la puerta trasera a la que poder atacar... preferiría un remplazo del chip vía zócalo.
Los chips llevan firmware actualizable.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: #!drvy en 3 Julio 2021, 20:38 PMPuede ser una ventaja, pero también la puerta trasera a la que poder atacar... preferiría un remplazo del chip vía zócalo.
Los chips llevan firmware actualizable.
Cita de: RJuegos en 3 Julio 2021, 06:52 AMA ver si te he entendido.
...estoy haciendo es mucho mejor y mas optimizado,
creo yo porque este diccionario hace el uso de silabas para formar la palabra mas rapido y no como el diccionario normal de fuerza bruta que lo hace mas lento por esto...
el mio no empezara asi sino usando silabas directas y inversa...
Cita de: El_Andaluz en 2 Julio 2021, 23:30 PMBásicamente lo que acaban de hacer es poner una diana a dicho microchip.
... la obligación de contar bien con un chip TPM 2.0, o su función equivalente TPM fTPM 2.0. ... los argumentos que David Weston, ... indica que los módulos TPM (Trusted Platform Modules) forman parte integral de la estrategia de Microsoft para responder a un momento de creciente actividad ciber-criminal incluyendo amenazas tan preocupantes como el phishing o el ransomware. Los equipos que incluyen estos módulos, escribe Weston, están más preparados para hacer frente a este tipo de ataques.
Cita de: FreeCellnet en 2 Julio 2021, 13:10 PMFrancamente, yo prefiero vivir en un país con cierta corruptela política, que en un país sin corruptela y sin libertad.
Después de ganarse reputación de luchador contra la corrupción, en marzo de 2007 fue nombrado secretario del PCCh en Shanghái, reemplazando a Chen Liangyu, destituido del cargo acusado de corrupción.
Yo lo invitaba a España...
Cita de: FreeCellnet en 2 Julio 2021, 13:10 PMNo por favor. Si tanto te gusta, mejor vete a vivir allí, debe ser un país ideal para tí, hecho realidad... no sé a qué esperas.
Yo lo invitaba a España...
private txt as string
' ...
txt = Text33.Text & vbtab & Text22.Text ' por ejemplo...
Printer.Print txt
' ...
dim BeginCols() as integer
dim AnchoCol as integer
' Esta función crea un array donde almacena el punto se comienzo de cada columna. La función se diseña con un parámetro para que pueda ser invocado múltiples veces si hay necesidad de saltar entre diferente númeor de columnas en cualquier momento.
' NOTA: Considera todas las columnas de igual tamaño, en otro caso modificar al gusto...
private sub InicializarImpresion(byval NumColumnas as byte)
dim j as integer, k as integer
redim BeginCols(1 to numColumnas)
AnchoCol = ((printer.scalewidth - printer.scaleleftleft) \ numcolumnas)
BeginCols(1)= printer.scaleleftleft
for k= 2 to numcolumnas
BeginCols(k) = ((BeginCols(k-1) + AnchoCol )
next
end sub
call InicializarImpresion(2) ' esto se debería invocar cuando se pulsa el botón para imprimir... ...y cada vez que cambie el número de columnas.
...
call FormateareImprimir(Text33.Text, Text22.Text)) ' esto se debe invocar con cada línea con su par de textos...
' ...
private function FormateareImprimir(byref Columna1 as string, byref Columna2 as string)
dim j as integer, t as integer, txt as string
t = printer.currenty
txt = FormatearPrn(columna1,AnchoCol-10) ' -10 para que haya al menos siempre un espacio entre columnas.
printer.currentx = BeginCols(1)
Printer.Print txt
txt = FormatearPrn(Columna2, AnchoCol-10)
printer.currentx = BeginCols(1): printer.currentY = t
Printer.Print txt
' saltamos a la siguiente línea...
printer.currentY = (t + printer.textHeight("A") ' el alto de impresión para cualquier texto, es el alto de la fuente, sin importar el texto pasado excepto una cadena vacía.
end function
' Recorta el texto si es preciso, para que no ocupe más del espacio destinado a la columna.
' Mide la cadena si supera el ancho máximo concedido, va retirando un carácter en cada ciclo de un bucle hasta que cumpa la condición.
' NOTA: Si el tamaño de fuente o el número de columnas es ridículo (gigante), el texto podría tener 0 caracteres y genear error... Uno debe aprender a lidiar con su propia idiotez.
private function FormatearPrn(byref Texto as string, byval MaxAncho as integer) as string
dim w as integer, numchars as integer
numchars = len(texto)
w = printer.textwidth(texto)
do while (w > Maxancho)
numchars = (numchars -1)
texto = left$(texto, numchars)
w = printer.textwidth(texto)
loop
FormatearPrn = texto
end function