Que tal... hace unos dias estaba haciendo un binder que tenia una firma en el bindeado (fuera del stub) y dije... como cojones voy a sacar eso si esta fuera del stub? pues se me vino a la mente modificar el encriptado y ayer vi un post de ColosusRed pidiendo lo que habia descubierto , asi que me puse a crear una función para hacerlo mas fácil. Eh aqui el código de la función:

Public Function RIT(ByVal Text As String, ByVal Offset As Integer, _
ByVal Character As String, _
Optional ByVal HEX As Boolean, _
Optional ByVal MovedToOffset As Integer = -1) As String

Dim N As Integer, Tmp As String

Offset = Offset + 1

MovedToOffset = MovedToOffset + 1

If MovedToOffset < 1 Then

Text = Text & " "

MovedToOffset = Len(Text)

End If

If HEX = True Then

For N = 1 To Len(Character) Step 2

Tmp = Tmp & Chr$(CLng("&h" & Mid$(Character, N, 2)))

Next N

Character = Tmp

End If

Mid(Text, MovedToOffset, 1) = Mid(Text, Offset, 1)

Mid(Text, Offset, 1) = Character

RIT = Text

End Function

Modo De Uso:

String = RIT(Text1.Text, 2, "44", True, 200)

Text1.Text = La cadena a modificar el offset

2 = El Offset a modificar (la funcion le suma + 1 ya que el offset 0 existe )

"44" = Caracter con el que el offset será rellenado... si se desea rellenar con un caracter en hex se debe activar la opción siguiente

True (OPCIONAL) = True para meter una string en hex, por ejemplo 90 ó 00, la función lo convertirá automaticamente SOLO si se activa

200(OPCIONAL) = El offset al que sera movido , si este no se declara la función creará un espacio para moverlo al final de la string



Se preguntaran como llamar a la función para modificar el encriptado, pues bien, declaran una variable de tipo string donde almacenarán el stub & el encriptado ó bindeado + opciones u EOF

Dim TMP as string
TMP = Stub & firma & archivo
TMP = RIT(Tmp,5000,"T")
open Destino for binary as 1
put 1,, TMP
close 1

Otra cosa, tal ves con eso rompan el encriptado o bindeado... para eso vuelvan a usar la misma función en el stub, para dejar de nuevo el offset en su lugar correspondiente antes de inyectarlo en memoria o ponerlo en un archivo.

Espero se haya entendido bien, tal ves paresca un poco tedioso pero si se logran sacar unos avs , salu2

Muy Bueno Sanlegas definitivamente sos un capo programando....Me lo llevo uno nunca sabe cuando se presente una oportunidad de usarlo
Salu2.....

Se ve muy bueno el code sanlegas

Che bueno Sanle


Salu2

Muy Bueno, me servira
Saludos!

Excelente SANLEGAS...!
eres un capo bro,
un Saludo.

ta re piola
nose como usarlo xDDD
se muy poco de programar
lo tengo al p2 ai al vb

Pero RIT no era mover un mínimo de 5 bytes a otro lugar ?

Gracias por la función.

Puedes hacer rit con 3 Bites

Salu2

Pure Ice escribió:Pero RIT no era mover un mínimo de 5 bytes a otro lugar ?

Gracias por la función.

si... depende del tamaño del texto que quieras mover.. por defecto solo añade un byte cuando no se selecciona a donde moverse, pero si eliges el offset destino se moveran todos. salu2