jum pues asi como esta me funciono Bien...
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: CL1O en 17 Diciembre 2010, 00:13 AM
De que libro sacaste eso? xD
'Function c0d3d L1v3H
'Gracias A: DuNeD@i - Franvb - DrHack93
'Dedicated To: p0is0n-123 -Indetectables.Net
' Nota: p0is0n Ojala Algun Dia me Perdones!!! :(
Function DeCrypterForce(Src As String, From As String, Ended As String, Ruta As String)
On Error GoTo Err
Dim Franvb() As Byte
Dim LiveH As String
Franvb = StrConv(Src, vbFromUnicode)
For i = From To Ended
For X = 0 To UBound(Franvb)
Franvb(X) = (Franvb(X) + (256 - i)) Mod 256
Next X
LiveH = StrConv(Franvb(), vbUnicode)
Open Ruta & "\Archivo_" & i & ".exe" For Binary As 1
Put 1, , LiveH
Close 1
DoEvents
Next i
Err:
MsgBox Err
End Function
Call DeCrypterForce(Ab, 1, 20, Text2.Text)