Results 1 to 2 of 2

Thread: JSC SPORT Key Finder_V3 by mafia_DZ

  1. #1
    Contributing Member Mafia_DZ's Avatar
    Join Date
    20-11-2008
    Location
    by mafi@_DZ_creaw england_london
    Posts
    102
    Uploads
    1,254

    JSC SPORT Key Finder_V3 by mafia_DZ

    JSC SPORT Key Finder_V3_______this program is not like the previous one .it was updated by mafia_dz .a program for jsc sport key .for 10_01_2013 first to put this program on the website
    Attached Files Attached Files

  2. #2
    Patience & Reflection Ghostenigma's Avatar
    Join Date
    08-08-2012
    Location
    Anonymity
    Posts
    860
    Uploads
    26

    Re: JSC SPORT Key Finder_V3 by mafia_DZ

    Nice,nice!
    I saw the code and didn't like the way app was coded!
    It is very slow and not clean coded!
    Why not use regex and parse directly in textboxes instead downloadstring,saving the file,read file and then show them in textboxes!!!
    It is more clear,more faster...
    But anyway it does the work and give credits to site where you are downloading the keys

    Code:
     Try
            New WebClient().DownloadFile("http://www.uydu.ws/deneme6.php?file=SoftCam.Key", "SoftCam.Key")        Dim reader As StreamReader = File.OpenText("SoftCam.Key")        Dim str As String = reader.ReadToEnd        reader.Close        Me.TextBox1.Text = str    Catch exception1 As Exception        ProjectData.SetProjectError(exception1)        Dim exception As Exception = exception1        ProjectData.ClearProjectError    End Try    Try         Dim num2 As Double = 99        Me.TextBox2.Text = Conversions.ToString(0)        Dim num As Double = (100 / num2)        Dim num4 As Double = num2        Dim i As Double = 0        Do While (i <= num4)            Me.ProgressBar1.Value = CInt(Math.Round(CDbl((Me.ProgressBar1.Value + num))))            Me.TextBox2.Text = Conversions.ToString(CDbl((Conversions.ToDouble(Me.TextBox2.Text) + 1)))            Dim str2 As String = Me.TextBox1.Lines(Conversions.ToInteger(Me.TextBox2.Text)).ToString            If str2.Contains("I 060300 08") Then                Me.TextBox3.Text = str2.ToString                Me.TextBox3.Text = Me.TextBox3.Text.Replace("dzhack", "")                Me.TextBox3.Text = Me.TextBox3.Text.Replace("I 060300 08 ", "")            End If            If str2.Contains("I 060300 06") Then                Me.TextBox4.Text = str2.ToString                Me.TextBox4.Text = Me.TextBox4.Text.Replace("dzhack", "")                Me.TextBox4.Text = Me.TextBox4.Text.Replace("I 060300 06 ", "")            End If            i += 1        Loop        MessageBox.Show("Enjoy With Abdelatif !" & ChrW(13) & ChrW(10) & "Startimes2 moderator has baned my account", "Abdelatif 2013")        New FileInfo("SoftCam.Key").Delete    Catch exception3 As Exception        ProjectData.SetProjectError(exception3)        Dim exception2 As Exception = exception3        ProjectData.ClearProjectError     End Try

Similar Threads

  1. Example Decrypted EMM PMK C3/CB by Mafia_dz
    By Mafia_DZ in forum Irdeto
    Replies: 3
    Last Post: 14-02-2013, 02:23:20
  2. Softcam Keys by mafia_dz 3.1.2013
    By Mafia_DZ in forum General Discussions: Conditional Access Systems, Encryption and Keys
    Replies: 0
    Last Post: 03-01-2013, 14:28:00
  3. Replies: 0
    Last Post: 20-12-2012, 13:03:53
  4. Channl Editor tool for geant 80 hd new by-mafia_dz
    By Mafia_DZ in forum Geant Software and Tools
    Replies: 0
    Last Post: 04-12-2012, 20:04:55

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •