Mensajes

agregale un

Código [Seleccionar] Expandir

Clibboard.Clear antes de guardar/salvar la imagen...
tambien puede ser porque esta "ocupado" el portapeles digamos que tienes archivos en el portapapeles y da la casualidad que
copiaste esos archivos y los esta pasando, por dar un ejemplo...

[DoEvents]

que error te marca?
agregale DoEvents... al final del sub del Timer

A todo esto, creeis de veras, k anonymous terminara con facebook?..

eso ya se oficializo que es totalmente falso ellos lo han dicho

estoy de acuerdo pero los seres humanos no somos animales
tambien es aceptable que los canibales se coman a otros canibales o bien a su propia familia
ademas que demonios es eso de "canibales Modernos"

[RtlMoveMemory]

  me impresionas BlackZeroX 

yo mejore esta funcion espero no equivocarme

Código (VB) [Seleccionar] Expandir

' ==> Bits
Function Hbyte(Word As Integer) As Byte
Hbyte = (Word / &H100)
End Function

e visto que mi funcion se puede mejorar pasando arrays como parametros, tambien hice una version con la RtlMoveMemory
y funciono pero es menos rapida que trabajar directamente con los bits

.
El algoritmo esta bueno para hacer una encriptacion de longitud 32bits.

Dulces Lunas!¡.

si, eso estaba pensando cuando estaba escribiendola 

mira que casualidad recuerdas cuantas lineas de codigo se escribieron anteriormente para invertir bits adecuadamente y no por byte a byte... es decir los 4 bytes de un jalon con las funciones que has dejado se hace mas corto.

Código (vb) [Seleccionar] Expandir



Public Function Rot4Bits(ByVal lLong As Long) As Long
'   //  Rota los bits de un Long (DWord)
'   //  Manda el 1er bit al final el segundo al antepenultimo, el tercero uno antes del antepenultimo, etc...
'   //  (1410872291) -> 0101 0100 0001 1000 0011 0011 1110 0011
'   //  Invertidos:
'   //  (-942925782) -> 1100 0111 1100 1100 0001 1000 0010 1010
Dim iLWord      As Integer
Dim iHWord      As Integer

    iLWord = LWord(lLong)
    iHWord = HWord(lLong)
    If (lLong And &H1) Then
        Rot4Bits = ((RotBits(LByte(iLWord)) And &H7F) * &H1000000) Or &H80000000
    Else
        Rot4Bits = (RotBits(LByte(iLWord)) * &H1000000)
    End If
    Rot4Bits = Rot4Bits Or _
               (RotBits(hByte(iLWord)) * &H10000) Or _
               (RotBits(LByte(iHWord)) * &H100) Or _
               (RotBits(hByte(iHWord)))
End Function



Dulces Lunas!¡.

andale  esta bueno!
pero si inserto un valor tipo byte o integer siempre me devuelve un long

[BlackZeroX (Astaroth)]

primeramente le doy gracias a BlackZeroX (Astaroth) por haberme enseñado a manipular los bits y bytes y las famosas
mascaras de bytes por haberme tenido paciencia cuando no entendia gracias tio
aqui esta un poco de lo que ya sé 

lo que hace este trozo de codigo es invertir cada byte del valor insertado acepta de Tipo Byte, Integer, Long.
hace la rotacion Byte por Byte...

Código (VB) [Seleccionar] Expandir



' DWORD = LONG... ?
' HIGH/LOW DWORD
Function HLDWORD(DWord As Long) As Long
Dim RotHWord    As Integer
Dim RotLWord    As Integer

RotHWord = HLWORD( _
                        HWord(DWord) _
                  )
                 
                 
RotLWord = HLWORD( _
                        LWord(DWord) _
                  )

HLDWORD = MakeDWord(RotHWord, RotLWord)
End Function

' HIGH/LOW WORD
Function HLWORD(Word As Integer) As Integer
Dim RotHbyte    As Byte
Dim RotLbyte    As Byte

RotHbyte = hByte(Word): RotHbyte = RotBits(RotHbyte)
RotLbyte = LByte(Word): RotLbyte = RotBits(RotLbyte)
HLWORD = MakeWord(RotHbyte, RotLbyte)
End Function

Function HWord(DWord As Long) As Integer
    HWord = (DWord / &H10000)
End Function


Function LWord(DWord As Long) As Integer
    If DWord And &H8000& Then
        LWord = &H8000 Or (DWord And &H7FFF&)
    Else
        LWord = DWord And &HFFFF&
    End If
End Function

Function hByte(Word As Integer) As Byte
    If Word And &H8000 Then
        If Not (Word Or &HFF) = &HFFFFFFFF Then Word = (Word Xor &HFF)
        hByte = &H80 Or ((Word And &H7FFF) \ &HFF)
    Else
        hByte = Word \ 256
    End If
End Function

Function LByte(Word As Integer) As Byte
  LByte = (Word And &HFF)
End Function

' 1 byte, Rotbits
Function RotBits(XByte As Byte) As Byte
Dim BytesTmp    As Byte
       
    BytesTmp = (XByte And &H1) * &H80
    BytesTmp = BytesTmp Or (XByte And &H2) * &H20
    BytesTmp = BytesTmp Or (XByte And &H4) * &H8
    BytesTmp = BytesTmp Or (XByte And &H8) * &H2
   
    BytesTmp = BytesTmp Or (XByte And &H10) / &H2
    BytesTmp = BytesTmp Or (XByte And &H20) / &H8
    BytesTmp = BytesTmp Or (XByte And &H40) / &H20
    BytesTmp = BytesTmp Or (XByte And &H80) / &H80
   
    RotBits = BytesTmp
End Function

' Makers...

' HWord & LWord = 8 Bytes
Function MakeDWord(HWord As Integer, LWord As Integer) As Long
    MakeDWord = (HWord * &H10000) Or (LWord And &HFFFF&)
End Function

' hByte & Lbyte = 4 bytes
Function MakeWord(hByte As Byte, LByte As Byte) As Integer
    If hByte And &H80 Then
        MakeWord = ((hByte * &H100&) Or LByte) Or &HFFFF0000
    Else
        MakeWord = (hByte * &H100) Or LByte
    End If
End Function

' By Raul100 @ Raul_hernandez_u@hotmail.com
' no quitar este texto



Código (VB) [Seleccionar] Expandir


HLDWORD ( 1410872291 )

Código [Seleccionar] Expandir


INPUT:
1410872291
0101 0100 0001 1000 0011 0011 1110 0011

OUTPUT
706268359
0010 1010 0001 1000 1100 1100 1100 0111


yo creo que los demas AVs no lo han publicado porque al parecer casi todos los de la lista no llevan mucha diferencia entre ellos
y los demas deben de andar por el puesto 20 , 22
lo que si es que el  F-Secure Anti-Virus, BitDefender se han puesto en algo xD
ultimamente al subir archivos infectados esos AVs son unos de los que han detectado el malware
Panda... me extraña para mi Panda siempre ah sido un no relevante

pues para mi el mejor antivirus es KIS y AVIRA
y de entre esos dos pues el KIS
yo e  programado malware y los e testeado quiza puede el KIS analize el X malware y no lo detecte y el AVIRA si u otro AV
pero lo que tienen el KIS es que tienen una Heuristica en tiempo de ejecucion superior a todos
el mismo malware que no detecto el KIS me lo ah detectado en tiempo de ejecucion cuando quiere hacer ciertas operaciones que
para el KIS son dañinas e igual con otro malware no me lo a detectado ni el KIS ni el AVIRA pero aun asi a la hora de ejecutarlo
el KIS siempre me da avisos que X aplicacion quiere hacer cierta operacion es mucho mejor en mi opinion incomparable

lo de la encuesta puede ser muy cierto pero seguramente solo han hecho un scan los demas antivirus si no han detectado amenaza a la hora de analizar el archivo pues no creo que lo detectendespues a diferencia del KIS

O.o
yo habia publicado tambien la pass y la borraron al parecer v.v