SFR151 Algo free - GSM-Forum

**Victor** · 01-15-2012, 20:04

To stop snakes to earn monney!!!

SFR 151 algo free

**Fast Unlocking** · 01-16-2012, 00:18

soon they will know how much they lost.

btw pretty neat code , cheers

only had to remove 1 line from it but all good can t complain, we live and learn day by day.

Kind Regards

Fast

abdeslam728 · 01-16-2012, 01:56

good post. but i have no knowledge of delphi. vb would be perfect for me.
thx

John Q. · 01-17-2012, 08:25

really good and working code.

thanks.

John Q.

VM_Hacker · 01-17-2012, 14:10

Designers don't forget to put Credits. =)

MOURAD™ · 01-17-2012, 17:18

Quote:

Originally Posted by Victor

To stop snakes to earn monney!!!

SFR 151 algo free

Tested with quick modification 100% worked

exe in attachments (will removed after 24 hours).

thnks

John Q. · 01-18-2012, 01:31

Quote:

Originally Posted by Mrd07

Tested with quick modification 100% worked

exe in attachments (will removed after 24 hours).

thnks

opps, nice but you forgot to give proper credit.

John Q.

neor · 01-18-2012, 09:03

comodo antivirus say malware

ficho · 01-18-2012, 11:45

Calma Victore ...

MOURAD™ · 01-18-2012, 17:53

Quote:

Originally Posted by Mrd07

Tested with quick modification 100% worked

exe in attachments (will removed after 24 hours).

thnks

Attachments deleted ..................

fr3nsis · 01-18-2012, 18:56

t's incredible how many pm i have received on those days and all so similar:

"please can you share source on vb?"

Victor has release it ... why wont spend 30 mins of your time for undestand it and write yourself ? is so complicate download delphi and debug code? If you like design start to read photoshop!!!!

Anyway here is the code , 1/1 of Victor code

Code:

  Public Function UnlockSfr151(ByVal imei As String) As String

        Dim table_sim As Byte() = {&H43, &H70, &H46, &H32, &H30, &H3, &H10, &H25, _
                        &H64, &H65, &H21, &H22, &H44, &H47, &H15, &H63, _
                        &H54, &H27, &H23, &H14, &H33, &H67, &H45, &H16, _
                        &H2, &H17, &H62, &H74, &H31, &H50, &H7, &H34, _
                        &H56, &H53, &H36, &H0, &H60, &H66, &H73, &H1, _
                        &H71, &H35, &H26, &H20, &H37, &H57, &H55, &H42, _
                        &H61, &H12, &H72, &H24, &H76, &H11, &H4, &H5, _
                        &H75, &H51, &H6, &H52, &H41, &H40, &H77, &H13}

        Dim table_siml1 As Byte() = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7, _
                  8, 9, 8, 2, 3, 4, 5, 6, 7, 8, 9, 8, 7, 3, 4, 5, 6, _
                  7, 8, 9, 8, 7, 6, 4, 5, 6, 7, 8, 9, 8, 7, 6, 5, 5, _
                  6, 7, 8, 9, 8, 7, 6, 5, 4, 6, 7, 8, 9, 8, 7, 6, 5, _
                  4, 3, 7, 8, 9, 8, 7, 6, 5, 4, 3, 2, 8, 9, 8, 7, 6, _
                  5, 4, 3, 2, 1, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0, 8, 7, _
                  6, 5, 4, 3, 2, 1, 0, 1, 7, 6, 5, 4, 3, 2, 1, 0, 1, _
                  2, 6, 5, 4, 3, 2, 1, 0, 1, 2, 3, 5, 4, 3, 2, 1, 0, _
                  1, 2, 3, 4, 4, 3, 2, 1, 0, 1, 2, 3, 4, 5, 3, 2, 1, _
                  0, 1, 2, 3, 4, 5, 6, 2, 1, 0, 1, 2, 3, 4, 5, 6, 7, _
                  1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 0, 1, 2, 3, 4, 5, 6, _
                  7, 8, 9, 1, 2, 3, 4, 5, 6, 5, 5, 5, 8, 2, 3, 4, 5, _
                  6, 5, 4, 4, 4, 7, 3, 4, 5, 6, 5, 4, 3, 3, 3, 6, 4, _
                  5, 6, 5, 4, 3, 2, 2, 2, 5, 5, 6, 5, 4, 3, 2, 1, 1, _
                  1, 4, 6, 5, 4, 3, 2, 1, 0, 1, 2, 3, 0, 0, 0, 0, 0, _
                  0, 0, 0}


        Dim v17(99) As Byte
        Dim imeiArray() As Byte = System.Text.ASCIIEncoding.ASCII.GetBytes(imei)
        Array.Copy(imeiArray, 0, v17, 8, imeiArray.Length)

        Dim cnt_w As Integer = 0
        While cnt_w < 8
            Dim v4 As Integer = 0
            While v4 < 8
                Dim v5 As Byte = table_sim((cnt_w * 8) + v4)
                If (imeiArray((v5 And &HF) + 7) And (1 << (v5 >> 4))) <> 0 Then
                    v17(cnt_w) = v17(cnt_w) Or (1 << v4)
                End If
                v4 += 1
            End While
            cnt_w += 1
        End While

        Dim v6 As Integer = 0
        Dim v7 As Integer = 0
        Dim v9 As Integer = 0
        Dim cnt_x As Integer = 0

        While cnt_x < 15
            v9 = imeiArray(cnt_x)
            cnt_x += 1
            v6 = (v9 + v6) And &HFF
            v7 = v7 Xor v9
        End While

        Dim cnt_y As Integer = 0
        Dim v11 As Integer = 0
        Dim v12 As Integer = 0
        Dim v13 As Integer = 0
        Dim v16(8) As Byte

        While cnt_y < 8

            v11 = v6 Xor v17(cnt_y)
            v12 = (table_siml1(v11) + v7) And &HFF
            v13 = (v11 + v12) And &HFF
            v16(cnt_y) = v11 + v12
            v6 = (v11 + v13) And &HFF
            v7 = v13 Xor v12
            cnt_y += 1
        End While

        Dim cnt_z As Integer = 0
        Dim code As String = ""
        While cnt_z < 8
            If v16(cnt_z) > 9 Then v16(cnt_z) = v16(cnt_z) Mod 10
            code &= v16(cnt_z).ToString
            cnt_z += 1
        End While

        Return code
    End Function

**oOXTCOo** · 01-18-2012, 20:03

now all is ready for 1000 different but same freetools...

how win the design competition?

but dont forget copyrights! grrr

John Q. · 01-19-2012, 04:12

Quote:

Originally Posted by fr3nsis

t's incredible how many pm i have received on those days and all so similar:

"please can you share source on vb?"

Victor has release it ... why wont spend 30 mins of your time for undestand it and write yourself ? is so complicate download delphi and debug code? If you like design start to read photoshop!!!!

Anyway here is the code , 1/1 of Victor code

Code:

  Public Function UnlockSfr151(ByVal imei As String) As String

        Dim table_sim As Byte() = {&H43, &H70, &H46, &H32, &H30, &H3, &H10, &H25, _
                        &H64, &H65, &H21, &H22, &H44, &H47, &H15, &H63, _
                        &H54, &H27, &H23, &H14, &H33, &H67, &H45, &H16, _
                        &H2, &H17, &H62, &H74, &H31, &H50, &H7, &H34, _
                        &H56, &H53, &H36, &H0, &H60, &H66, &H73, &H1, _
                        &H71, &H35, &H26, &H20, &H37, &H57, &H55, &H42, _
                        &H61, &H12, &H72, &H24, &H76, &H11, &H4, &H5, _
                        &H75, &H51, &H6, &H52, &H41, &H40, &H77, &H13}

        Dim table_siml1 As Byte() = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7, _
                  8, 9, 8, 2, 3, 4, 5, 6, 7, 8, 9, 8, 7, 3, 4, 5, 6, _
                  7, 8, 9, 8, 7, 6, 4, 5, 6, 7, 8, 9, 8, 7, 6, 5, 5, _
                  6, 7, 8, 9, 8, 7, 6, 5, 4, 6, 7, 8, 9, 8, 7, 6, 5, _
                  4, 3, 7, 8, 9, 8, 7, 6, 5, 4, 3, 2, 8, 9, 8, 7, 6, _
                  5, 4, 3, 2, 1, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0, 8, 7, _
                  6, 5, 4, 3, 2, 1, 0, 1, 7, 6, 5, 4, 3, 2, 1, 0, 1, _
                  2, 6, 5, 4, 3, 2, 1, 0, 1, 2, 3, 5, 4, 3, 2, 1, 0, _
                  1, 2, 3, 4, 4, 3, 2, 1, 0, 1, 2, 3, 4, 5, 3, 2, 1, _
                  0, 1, 2, 3, 4, 5, 6, 2, 1, 0, 1, 2, 3, 4, 5, 6, 7, _
                  1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 0, 1, 2, 3, 4, 5, 6, _
                  7, 8, 9, 1, 2, 3, 4, 5, 6, 5, 5, 5, 8, 2, 3, 4, 5, _
                  6, 5, 4, 4, 4, 7, 3, 4, 5, 6, 5, 4, 3, 3, 3, 6, 4, _
                  5, 6, 5, 4, 3, 2, 2, 2, 5, 5, 6, 5, 4, 3, 2, 1, 1, _
                  1, 4, 6, 5, 4, 3, 2, 1, 0, 1, 2, 3, 0, 0, 0, 0, 0, _
                  0, 0, 0}


        Dim v17(99) As Byte
        Dim imeiArray() As Byte = System.Text.ASCIIEncoding.ASCII.GetBytes(imei)
        Array.Copy(imeiArray, 0, v17, 8, imeiArray.Length)

        Dim cnt_w As Integer = 0
        While cnt_w < 8
            Dim v4 As Integer = 0
            While v4 < 8
                Dim v5 As Byte = table_sim((cnt_w * 8) + v4)
                If (imeiArray((v5 And &HF) + 7) And (1 << (v5 >> 4))) <> 0 Then
                    v17(cnt_w) = v17(cnt_w) Or (1 << v4)
                End If
                v4 += 1
            End While
            cnt_w += 1
        End While

        Dim v6 As Integer = 0
        Dim v7 As Integer = 0
        Dim v9 As Integer = 0
        Dim cnt_x As Integer = 0

        While cnt_x < 15
            v9 = imeiArray(cnt_x)
            cnt_x += 1
            v6 = (v9 + v6) And &HFF
            v7 = v7 Xor v9
        End While

        Dim cnt_y As Integer = 0
        Dim v11 As Integer = 0
        Dim v12 As Integer = 0
        Dim v13 As Integer = 0
        Dim v16(8) As Byte

        While cnt_y < 8

            v11 = v6 Xor v17(cnt_y)
            v12 = (table_siml1(v11) + v7) And &HFF
            v13 = (v11 + v12) And &HFF
            v16(cnt_y) = v11 + v12
            v6 = (v11 + v13) And &HFF
            v7 = v13 Xor v12
            cnt_y += 1
        End While

        Dim cnt_z As Integer = 0
        Dim code As String = ""
        While cnt_z < 8
            If v16(cnt_z) > 9 Then v16(cnt_z) = v16(cnt_z) Mod 10
            code &= v16(cnt_z).ToString
            cnt_z += 1
        End While

        Return code
    End Function

thanks fr3nsis,

i finally have my own unlocker done in vb.

i just made a minor modification on the code:

Code:

v16(cnt_y) = v13 'v11 + v12

john

darmiles · 01-19-2012, 06:13

i love delphi..

thanks

more more

algo collector

mardi · 01-22-2012, 02:24

need delphi source code for any qualcom chipshet,how to connect dm & how to write nv or prl.

thanks

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
thread	Thread Starter	Forum	Replies	Last Post
Phone Stuff for FREE & KEy-GEn For Logo Editor !	BoNtEk - ThA WtC MeMbA	Nokia Multimedia	10	03-11-2013 15:27
FREE UNLOCK SIM CARD FOR 20 PHILIPS DIGA PHONES ON CELLNET	SP UNLOCKER 2000	Nokia Legacy Phones ( DCT-1 , DCT-2 , DCT-3 , DCT-L )	1	01-17-2011 17:10
Need help to make a site for free software	hicom	Nokia Legacy Phones ( DCT-1 , DCT-2 , DCT-3 , DCT-L )	3	10-14-1999 22:57
2 FREE NOKIA SP SIM CARDS TO RELEASE FOR INFORMATION WE NEED	SP UNLOCKER 2000	Nokia Legacy Phones ( DCT-1 , DCT-2 , DCT-3 , DCT-L )	3	09-25-1999 03:34

01-16-2012, 00:18	#2 (permalink)
Fast Unlocking Product Manager Join Date: Jan 2002 Location: NCK Dongle Project Posts: 8,799 Member: 94675 Status: Offline Sonork: 100.8888 Thanks: 1,529 Thanked 21,350 Times in 3,292 Posts	soon they will know how much they lost. btw pretty neat code , cheers only had to remove 1 line from it but all good can t complain, we live and learn day by day. Kind Regards Fast

01-16-2012, 01:56	#3 (permalink)
abdeslam728 No Life Poster Join Date: Dec 2007 Posts: 710 Member: 653776 Status: Offline Sonork: 100.1584146 Thanks: 28 Thanked 110 Times in 83 Posts	good post. but i have no knowledge of delphi. vb would be perfect for me. thx

01-17-2012, 08:25	#4 (permalink)
John Q. Freak Poster Join Date: Mar 2007 Posts: 199 Member: 460280 Status: Offline Thanks: 148 Thanked 78 Times in 41 Posts	really good and working code. thanks. John Q.

01-17-2012, 14:10	#5 (permalink)
VM_Hacker Insane Poster Join Date: Feb 2010 Location: SLx Posts: 60 Member: 1240703 Status: Offline Thanks: 54 Thanked 40 Times in 18 Posts	Designers don't forget to put Credits. =)

01-18-2012, 09:03	#8 (permalink)
neor Major Poster Join Date: Dec 2010 Posts: 44 Member: 1469903 Status: Offline Thanks: 11 Thanked 11 Times in 8 Posts	comodo antivirus say malware

01-18-2012, 11:45	#9 (permalink)
ficho Freak Poster Join Date: Oct 2001 Posts: 139 Member: 7054 Status: Offline Thanks: 1 Thanked 1 Time in 1 Post	Calma Victore ...

01-18-2012, 20:03	#12 (permalink)
oOXTCOo Product Manager Join Date: Dec 2000 Location: J.A.U - Just Another Unlocker Age: 33 Posts: 3,374 Member: 2878 Status: Offline Thanks: 1,584 Thanked 8,985 Times in 1,517 Posts	now all is ready for 1000 different but same freetools... how win the design competition? but dont forget copyrights! grrr

01-19-2012, 06:13	#14 (permalink)
darmiles Product Supporter Join Date: Sep 2005 Location: FT_OK Then Age: 32 Posts: 376 Member: 177036 Status: Offline Thanks: 351 Thanked 533 Times in 127 Posts	i love delphi.. thanks more more algo collector

01-22-2012, 02:24	#15 (permalink)
mardi Freak Poster Join Date: Jan 2001 Location: Jakarta,DKI,indonesia Posts: 476 Member: 3179 Status: Offline Thanks: 88 Thanked 132 Times in 54 Posts	need delphi source code for any qualcom chipshet,how to connect dm & how to write nv or prl. thanks