|
![]() |
|
Welcome to the GSM-Forum forums. You are currently viewing our boards as a guest which gives you limited access to view most discussions and access our other features. By joining our free community you will have access to post topics, communicate privately with other members (PM), respond to polls, upload content and access many other special features. Registration is fast, simple and absolutely free so please, join our community today! If you have any problems with the registration process or your account login, please contact contact us. |
| |||||||
| Register | FAQ | Donate | Forum Rules | ★. iPhone Unlock .★ | -= JTAG BOOM =- | Search | Today's Posts | Mark Forums Read |
| GSM Programming & Reverse Engineering Here you can post all Kind of GSM Programming and Reverse Engineering tools and Secrets. |
![]() |
| | LinkBack | Thread Tools | Display Modes |
| | #16 (permalink) |
| Insane Poster ![]() ![]() ![]() Join Date: Jan 2012 Location: VODAFONE UK DIRECT
Posts: 96
Member: 1712149 Status: Online Thanks: 31
Thanked 19 Times in 14 Posts
| Big market... For PHP fans: PHP Code: |
|
| | #18 (permalink) |
| Freak Poster ![]() ![]() ![]() ![]() Join Date: Feb 2004 Location: Serbia
Posts: 132
Member: 55980 Status: Offline Thanks: 121
Thanked 43 Times in 28 Posts
| Why in this section all new programer made exe file from some algo...as it is difficult to make. Such behavior will benefit only those who wait for all the free... Please stop making exe of the presented algorithms, or at least do not post the link here to download the application exe Thx YuMERA |
|
| The Following 4 Users Say Thank You to YuMERA For This Useful Post: |
| | #19 (permalink) | |
| Freak Poster ![]() ![]() ![]() ![]() Join Date: Oct 2010
Posts: 147
Member: 1422878 Status: Offline Thanks: 51
Thanked 66 Times in 22 Posts
| Quote:
Regards Helpy | |
|
| | #20 (permalink) | |
| 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
| Quote:
simple answer: to put the copyright name for compiling it for freebeggers ![]() that is the reason way not many help anymore, or no more post other importent infos... | |
|
| The Following User Says Thank You to oOXTCOo For This Useful Post: |
| | #21 (permalink) | |
| Moderator ![]() Join Date: May 1999 Location: Blagoevgrad, Bulgaria Age: 41
Posts: 626
Member: 73 Status: Offline Sonork: 100.86913 Thanks: 5
Thanked 304 Times in 92 Posts
| Quote:
1. In firmware algo is another - this is mathematical representation how many is near to original? ![]() 2. Improvements and optimizations = DESIGNERS!!! (or FINDING CHEAP GLORY!!!) 3. Every new idea here cost monney and is not public. Regards: Victor | |
|
| | #22 (permalink) | |
| Freak Poster ![]() ![]() ![]() ![]() Join Date: Sep 2009
Posts: 208
Member: 1109337 Status: Offline Thanks: 81
Thanked 76 Times in 42 Posts
| Quote:
maybe they find it fun making small gui and exe with there name on it ![]() though some of them like star101's Cellshop Inventory System & whitesatans iphoneyeta are very helpful | |
|
| | #23 (permalink) |
| Junior Member ![]() Join Date: Apr 2012
Posts: 17
Member: 1752470 Status: Offline Thanks: 3
Thanked 6 Times in 6 Posts
| Hello to all ![]() I am not able to write this proc in High level Lng. Plz Can somone write it in delphi for me ![]() ![]() ![]() For sure the thread starter will help me. Right ???? Code:
Some_proc
var_20 = -0x20
var_1C = -0x1C
var_18 = -0x18
PUSH {R1-R7,LR}
MOVS R6, R0
MOVS R5, R1
MOVS R1, #0
STR R1, [SP,#0x20+var_20]
MOVS R4, #0
MOVS R2, #0
MOVS R0, #5
LDR R1, =0x1000006
BL sub_8218B84
LDRB R0, [R5]
LSLS R1, R0, #4
LDRB R0, [R5,#1]
LSLS R2, R0, #0x1C
LSRS R2, R2, #0x1C
ORRS R1, R2
LSLS R5, R1, #0x10
LSRS R5, R5, #0x10
LSLS R1, R0, #0x1B
BPL Loc_1
MOVS R1, #1
STR R1, [SP,#0x20+var_20]
Loc_1 ; CODE XREF: Some_proc+28j
LSRS R7, R0, #5
MOVS R2, #0x12
MOVS R1, #0x30
MOVS R0, R6
BLX j___32memset
MOVS R0, 0x3E8
CMP R7, #7
BHI lok_3
LDR R1, [SP,#0x20+var_20]
CMP R1, #0
BNE lok_3
MOVS R1, R5
BLX __rt_udiv
LSLS R2, R0, #0x18
MOVS R0, #7
SUBS R0, R0, R7
STR R0, [SP,#0x20+var_18]
LSRS R2, R2, #0x18
STRB R2, [R6,R0]
MOVS R0, 0x3E8
MULS R0, R2
SUBS R1, R5, R0
MOVS R0, #0x64
BLX __rt_sdiv
LSLS R1, R0, #0x18
LDR R0, [SP,#0x20+var_18]
LSRS R1, R1, #0x18
ADDS R7, R0, R6
STRB R1, [R7,#1]
LDR R0, [SP,#0x20+var_18]
MOVS R3, #0x7D
LDRB R0, [R6,R0]
LSLS R3, R3, #3
MULS R0, R3
MOVS R3, #0x64
MULS R1, R3
SUBS R0, R5, R0
SUBS R0, R0, R1
STR R1, [SP,#0x20+var_1C]
BLX __rt_sdiv10
STRB R0, [R7,#2]
LDR R1, [SP,#0x20+var_18]
MOVS R3, #0xE8
LDRB R1, [R6,R1]
MULS R1, R3
MOVS R3, #0xA
SUBS R2, R5, R1
LDR R1, [SP,#0x20+var_1C]
MULS R0, R3
SUBS R1, R2, R1
SUBS R0, R1, R0
STRB R0, [R7,#3]
Loc_2 ; CODE XREF: Some_proc+B0j
LDRB R0, [R7,R4]
ADDS R0, #0x30
STRB R0, [R7,R4]
ADDS R4, #1
LSLS R4, R4, #0x18
LSRS R4, R4, #0x18
CMP R4, #4
BCC Loc_2
end ; CODE XREF: Some_proc+B6j
; Some_proc+BCj ...
POP {R1-R7,PC}
; ---------------------------------------------------------------------------
lok_3 ; CODE XREF: Some_proc+40j
; Some_proc+46j
CMP R7, #7
BHI end
LDR R1, [SP,#0x20+var_20]
CMP R1, #1
BNE end
MOVS R1, R5
BLX __rt_udiv
LSLS R0, R0, #0x18
LSRS R0, R0, #0x18
ADDS R6, R6, R7
MOVS R3, 0x3E8
STRB R0, [R6,#7]
MULS R0, R3
SUBS R5, R5, R0
MOVS R1, R5
MOVS R0, #0x64
BLX __rt_sdiv
LSLS R0, R0, #0x18
LSRS R0, R0, #0x18
STRB R0, [R6,#8]
MOVS R3, #0x64
MULS R0, R3
SUBS R5, R5, R0
MOVS R0, R5
BLX __rt_sdiv10
STRB R0, [R6,#9]
MOVS R3, #0xA
MULS R0, R3
SUBS R0, R5, R0
STRB R0, [R6,#0xA]
Loc_5 ; CODE XREF: Some_proc+108j
ADDS R0, R6, R4
LDRB R1, [R0,#7]
ADDS R4, #1
LSLS R4, R4, #0x18
ADDS R1, #0x30
LSRS R4, R4, #0x18
CMP R4, #4
STRB R1, [R0,#7]
BCC Loc_5
B end
; End of function Some_proc |
|
| | #24 (permalink) |
| Junior Member ![]() Join Date: Apr 2012
Posts: 17
Member: 1752470 Status: Offline Thanks: 3
Thanked 6 Times in 6 Posts
| sorry To all I made error in my previous message an I cant edit. Was a copy past error here is proc I need to write in high level LNG. Regards Code: some_proc
var_48 = -0x48
var_44 = -0x44
var_40 = -0x40
var_3C = -0x3C
var_38 = -0x38
var_37 = -0x37
var_36 = -0x36
var_35 = -0x35
var_34 = -0x34
var_33 = -0x33
var_32 = -0x32
var_31 = -0x31
var_30 = -0x30
var_28 = -0x28
var_20 = -0x20
var_18 = -0x18
PUSH {R4-R7,LR}
SUB SP, SP, #0x34
ADD R3, SP, #0x48+var_48
MOVS R6, R0
MOVS R5, #0
STRH R5, [R3,#0x48+var_18]
ADD R0, SP, #0x48+var_38
MOVS R1, #0
STMIA R0!, {R1}
STMIA R0!, {R1}
LDR R3, [R6,#0x10]
MOVS R1, #2
MOVS R4, #1
MOVS R0, #0
ADD R2, SP, #0x48+var_18
BLX R3
MOVS R1, #3
LDR R3, [R6,#0x10]
MOVS R0, #0
ADD R2, SP, #0x48+var_18
BLX R3
MOVS R6, R0
MOVS R2, #1
MOVS R0, #8
ADD R1, SP, #0x48+var_20
BL sub_824BEE0
CMP R0, #0
BEQ loc_8274D60
MOVS R0, #0
loc_8274C84 ; CODE XREF: some_proc+5Ej
ADD R1, SP, #0x48+var_20
LDRB R2, [R1,R0]
LSLS R1, R0, #1
ADD R5, SP, #0x48+var_30
LSLS R3, R2, #0x1C
LSRS R3, R3, #0x1C
ADDS R3, #0x30
STRB R3, [R5,R1]
ADD R3, SP, #0x48+var_30
LSRS R2, R2, #4
ADDS R0, #1
LSLS R0, R0, #0x18
ADDS R2, #0x30
ADDS R1, R1, R3
LSRS R0, R0, #0x18
CMP R0, #8
STRB R2, [R1,#1]
BCC loc_8274C84
ADD R1, SP, #0x48+var_20
LDRB R0, [R1,R0]
ADD R3, SP, #0x48+var_28
LSLS R0, R0, #0x1C
LSRS R0, R0, #0x1C
ADDS R0, #0x30
STRB R0, [R3,#7]
MOVS R0, #0
loc_8274CB8 ; CODE XREF: some_proc+80j
ADD R1, SP, #0x48+var_30
LDRB R1, [R1,R0]
CMP R1, #0x3F
BNE loc_8274CD8
ADDS R0, #1
LSLS R0, R0, #0x18
LSRS R0, R0, #0x18
CMP R0, #0xF
BCC loc_8274CB8
CMP R4, #1
BNE loc_8274CD8
MOVS R2, #0xF
LDR R1, =someting
ADD R0, SP, #0x48+var_30
BL strncpy
loc_8274CD8 ; CODE XREF: some_proc+76j
; some_proc+84j
ADD R0, SP, #0x48+var_44
MOVS R1, #0
MOVS R2, #0
STMIA R0!, {R1,R2}
MOVS R5, #0
MOVS R4, #7
STMIA R0!, {R2}
loc_8274CE6 ; CODE XREF: some_proc+DEj
ADD R0, SP, #0x48+var_30
ADD R1, SP, #0x48+var_30
ADDS R1, R1, R4
LDRB R0, [R0,R4]
SUBS R1, #0x10
LDRB R1, [R1,#0xF]
ADDS R0, #0x50
LSLS R0, R0, #1
ADDS R0, R0, R1
ADDS R0, #0xD0
LSLS R0, R0, #0x18
LSRS R0, R0, #0x18
ADD R1, SP, #0x48+var_44
STRB R0, [R1,R5]
CMP R0, #9
BLS loc_8274D12
BLX __rt_udiv10
ADDS R1, #0x30
ADD R0, SP, #0x48+var_38
STRB R1, [R0,R5]
B loc_8274D18
; ---------------------------------------------------------------------------
loc_8274D12 ; CODE XREF: some_proc+BCj
ADDS R0, #0x30
ADD R1, SP, #0x48+var_38
STRB R0, [R1,R5]
loc_8274D18 ; CODE XREF: some_proc+C8j
ADDS R5, #1
ADDS R4, #1
LSLS R4, R4, #0x18
LSLS R5, R5, #0x18
LSRS R5, R5, #0x18
LSRS R4, R4, #0x18
CMP R4, #0xF
BCC loc_8274CE6
ADD R3, SP, #0x48+var_48
LDRB R0, [R3,#0x48+var_37]
LDRB R1, [R3,#0x48+var_38]
LSLS R0, R0, #4
ADDS R1, R0, R1
MOVS R0, 0x330
SUBS R1, R1, R0
STRB R1, [R6,#1]
LDRB R1, [R3,#0x48+var_35]
LDRB R2, [R3,#0x48+var_36]
LSLS R1, R1, #4
ADDS R1, R1, R2
SUBS R1, R1, R0
STRB R1, [R6,#2]
LDRB R1, [R3,#0x48+var_33]
LDRB R2, [R3,#0x48+var_34]
LSLS R1, R1, #4
ADDS R1, R1, R2
SUBS R1, R1, R0
STRB R1, [R6,#3]
LDRB R1, [R3,#0x48+var_31]
LDRB R2, [R3,#0x48+var_32]
LSLS R1, R1, #4
ADDS R1, R1, R2
SUBS R0, R1, R0
STRB R0, [R6,#4]
B loc_8274D7C
; ---------------------------------------------------------------------------
loc_8274D60 ; CODE XREF: some_proc+38j
B loc_8274D62
loc_8274D62
MOVS R2, #0
MOVS R1, #0
LDR R0, =someting
STR R1, [SP,#0x48+var_44]
STR R1, [SP,#0x48+var_40]
STR R2, [SP,#0x48+var_3C]
STR R2, [SP,#0x48+var_48]
MOVS R3, R5
ADDS R0, #0x10
LDR R2, =unk_878
LDR R1, =some_string
BL sub_8217D9C
; ---------------------------------------------------------------------------
loc_8274D7C ; CODE XREF: some_proc+116j
MOVS R0, #1
ADD SP, SP, #0x34
POP {R4-R7,PC}
; End of function some_proc |
|
| | #25 (permalink) | |
| No Life Poster ![]() ![]() ![]() ![]() ![]() ![]() ![]() Join Date: Feb 2004 Location: Algeria
Posts: 2,078
Member: 56090 Status: Offline Thanks: 33
Thanked 98 Times in 46 Posts
| Quote:
Salam Last edited by abdoune; 06-10-2012 at 23:23. | |
|
| | #29 (permalink) |
| Freak Poster ![]() ![]() ![]() ![]() Join Date: Mar 2007
Posts: 199
Member: 460280 Status: Offline Thanks: 148
Thanked 78 Times in 41 Posts
| My VB.Net Version Here is my VB.Net version (i'm open for correction, please check my code): Code: Function Calc_Doro(ByVal imei As String, ByVal n As Byte) As String
On Error Resume Next
Dim v1, i As Byte
Dim nck As String
For i = 6 To 14
v1 = CInt(Val(imei(i))) + 2 * CInt(Val(imei(i + 1)))
If (v1 > 9) Then v1 = v1 Mod 10
nck = nck + CStr(v1)
Next
If nck.Length = 9 Then
nck = Mid(nck, 1, 8)
Else
nck = nck
End If
Return nck
Err.Clear()
End Function Code: Textbox2.Text = Calc_Doro(TextBox1.Text, 0) BR. |
|
| The Following User Says Thank You to John Q. For This Useful Post: |
![]() |
| Bookmarks |
| Thread Tools | |
| Display Modes | |
| |
Similar Threads | ||||
| thread | Thread Starter | Forum | Replies | Last Post |
| DLS Box and new unlock algo. | majid | Nokia Legacy Phones ( DCT-1 , DCT-2 , DCT-3 , DCT-L ) | 0 | 03-15-2002 17:33 |
| Need al info about imei calc and algos!! | Gsmhq | Nokia Legacy Phones ( DCT-1 , DCT-2 , DCT-3 , DCT-L ) | 4 | 01-16-2002 10:31 |
| Free solutions for GSM. Support for all free. Nokia Authority Id calculation algo ! | te | Main Sales Section | 6 | 12-15-2001 13:57 |
| NEW FLASHING BOX :-)FOR NEW ALGO | Toto | Main Sales Section | 2 | 09-03-2001 14:07 |
| Anybody able to find out algo of new X35..... | Toto | x1x to x45/x50 | 0 | 06-10-2001 22:39 |