Re: Rainerstoff Privat By Carb0n Binario mas (SRC)
Publicado: 17 Abr 2010, 23:38
Aporte así me gustan bro sigue así.
Indetectables es una Comunidad de Hacking, Seguridad Informática, Impresión 3d y Desarrollo
./index.php
si amigo esto no va aqui va a fuentes y textos si me equivo lo dicenmortalz escribió:not a programmer here, but how can u use with the protection still on the program when execute ? ty
Código: Seleccionar todo
If Check("http://www.hackhound.org/Rainerstoff/Keys.txt", txtUser.Text, txtPass.Text) = True ThenNo te compliques y mejor edita el login para que acepte cualquier cosa desde el source que para eso estagallurt escribió:Alguien sabe cual es el contenido del archivo Keys.txt?
He probado a rellenarlo de todas las maneras y no me funciona el loginCódigo: Seleccionar todo
If Check("http://www.hackhound.org/Rainerstoff/Keys.txt", txtUser.Text, txtPass.Text) = True Then
lo que he hecho es implementar solo el login en mi aplicación con el modulo Authorizer, solo necesito eso y funciona bien pero necesito un archivo de texto para poner hay el login y el password de los usuariosNo te compliques y mejor edita el login para que acepte cualquier cosa desde el source que para eso esta
y de mil maneras mas supongo que habra que ponerlo de alguna manera en concreto..user:pass
user, pass
user pass
Usuario:user, Password:pass
pero yo no quiero el source del crypter, todo lo contrario solo quiero el sistema de login que lo veo bastante bueno y añade al registro los datos.Wh1t3bird escribió:Yo lo hice más facil, borrar el form del login >.<
Si si ahora leo bien y ya entendígallurt escribió:pero yo no quiero el source del crypter, todo lo contrario solo quiero el sistema de login que lo veo bastante bueno y añade al registro los datos.Wh1t3bird escribió:Yo lo hice más facil, borrar el form del login >.<
lo quiero para ponerlo en una aplicacion que estoy haciendo para que los users accedan a descargas mp3..
gracias y saludos
gallurt escribió:pero yo no quiero el source del crypter, todo lo contrario solo quiero el sistema de login que lo veo bastante bueno y añade al registro los datos.Wh1t3bird escribió:Yo lo hice más facil, borrar el form del login >.<
lo quiero para ponerlo en una aplicacion que estoy haciendo para que los users accedan a descargas mp3..
gracias y saludos
Código: Seleccionar todo
If Check("http://www.hackhound.org/Rainerstoff/Keys.txt", txtUser.Text, txtPass.Text) = True Then Código: Seleccionar todo
If Check("http://www.hackhound.org/Rainerstoff/Keys.txt", txtUser.Text, txtPass.Text) = False Then Gracias DARK_J4V13R cuando leia tu respuesta , me estaba iluminando como hacerlo.DARK_J4V13R escribió:
Si si ahora leo bien y ya entendí
Pues si más recuerdo el modulo lo que hacía era bajar el contenido de un .txt de la URL y luego separaba los users y pass y los desencryptaba con RC4. Para no complicarte, mejor crea uno desde 0 utilizando como base la lógica de este porque sino vas a tener que borrar partes de código y cambiar cosas y te vas a complicar mas.
Saludos
Código: Seleccionar todo
Public Function GetResData(ByVal ResType As String, ByVal ResName As String, Optional EXEPfad As String) As String
Dim hRsrc As Long
Dim hGlobal As Long
Dim lpData As Long
Dim Size As Long
Dim hMod As Long
Dim Text As String
'Die eigene exe ist ja geladen, also ist hMod das InstanceHandle. Wenn eine Exe angegeben wird, kann allerdings jede exe oder dll ausgelesen werden
If EXEPfad = "" Or EXEPfad = App.Path & "\" & App.EXEName & ".exe" Or Dir(EXEPfad) = "" Then
hMod = App.hInstance
Else
hMod = LoadLibrary(EXEPfad)
End If
If hMod = 0 Then Exit Function
'Resource suchen
If IsNumeric(ResType) Then hRsrc = FindResourceByNum(hMod, ResName, CLng(ResType))
If hRsrc = 0 Then hRsrc = FindResource(hMod, ResName, ResType)
If hRsrc = 0 Then Exit Function
'Resource Laden
hGlobal = LoadResource(hMod, hRsrc)
lpData = LockResource(hGlobal) 'Pointer zu unseren Daten
Size = SizeofResource(hMod, hRsrc) 'Länge der Daten ermitteln
If Size = 0 Then Exit Function
Text = Space(Size) 'Buffer füllen
Call CopyMemory(ByVal Text, ByVal lpData, Size) 'und umwandeln
Call FreeResource(hGlobal)
GetResData = Text
FreeLibrary hMod
End Function