Autor Tema: Me Gustaria Saber Donde Puedo Encontrar (Leído 1385 veces)

krlospelaez · « **en:** Miércoles 15 de Septiembre de 2004, 00:15 »

Hola muchachos me gustaria saber donde puedo encontrar informacion hacer del manejo de una funcion API "Copy Memory" que la verdad no tengo ni idea como funciona y no tengo muy claro para que sirve, y tambien me gustaria preguntarles si alguien sabe para que sirve el comando "Xor"?

Att K'rlos Peláez

Cyclop

Segun la definicion de KPD-Team. es una funcion que copia un bloque de memoria de una ubicacion a otro. Ejemplo .

Código: Text

 
Private Declare Sub CopyMemory Lib &#34;kernel32&#34; Alias &#34;RtlMoveMemory&#34; (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Private Declare Function GetTickCount Lib &#34;kernel32&#34; () As Long
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim sSave As String, Cnt As Long, T As Long, Pos As Long, Length As Long
    Const mStr = &#34;Hello &#34;
    Length = Len(mStr)
    sSave = Space(5000 * Length) 'make buffer for justified comparison
    'Get the current tickcount
    T = GetTickCount
    Pos = 1
    sSave = Space(5000 * Length)
    For Cnt = 1 To 5000
      Mid(sSave, Pos, Length) = mStr
      Pos = Pos + Length
    Next Cnt
    'Show the results
    MsgBox &#34;It took Visual basic&#34; + Str&#036;(GetTickCount - T) + &#34; msecs. to add 5000 times a string to itself.&#34;
    'Get the current tickcount
    T = GetTickCount
    Pos = 0
    sSave = Space(5000 * Length)
    For Cnt = 1 To 5000
        CopyMemory ByVal StrPtr(sSave) + Pos, ByVal StrPtr(mStr), LenB(mStr)
        Pos = Pos + LenB(mStr)
    Next Cnt
    'Show the results
    MsgBox &#34;It took CopyMemory&#34; + Str&#036;(GetTickCount - T) + &#34; msecs. to add 5000 times a string to itself.&#34;
End Sub
 
 

Salu2

Cyclop

RadicalEd

LA PRIMERA TE QUEDO CLARA, XOR A VER NO HE PROGRAMADO CON EL PERO SE QUE SIRVE PARA ENCRIPTAMIENTO PASATE PORVirus LabY DESCARGATE LOS MITOSIS QUE HAY ALLI ELLOS TE ENSEÑARAN BIEN LO DE ENCRIPTAMIENTO CON EL COMANDO XOR

Cyclop

Aca tienes otro link para aprender, pero si tienes la ayuda instalada (MSDN) ahi explica mas detallado los operadores de comparacion bit a bit

http://msdn.microsoft.com/library/spa/defa...ml/vaoprXor.asp

No lo manejo muy bien pero lo que hace es convierte un numero a binario y compara cada bit con el otro numero tambien binario, de este resultado te queda otro numero binario qe lo convierte a decimal

un burdo ejemplo

01010101

xor

11001010

=

10011111

lo compara en base a una tabla de estructura logica

Salu2

Cyclop

krlospelaez

Muchas gracias por su colaboracion.

Att

Krlos Pelaez

SoloCodigo

Autor Tema: Me Gustaria Saber Donde Puedo Encontrar (Leído 1385 veces)

krlospelaez

Me Gustaria Saber Donde Puedo Encontrar

Cyclop

Re: Me Gustaria Saber Donde Puedo Encontrar

RadicalEd

Re: Me Gustaria Saber Donde Puedo Encontrar

Cyclop

Re: Me Gustaria Saber Donde Puedo Encontrar

krlospelaez

Re: Me Gustaria Saber Donde Puedo Encontrar