[?]: How to crack SIEMENS 6RA70 S00 code

[zhijunk]

How to crack SIEMENS 6RA70 S00 code?
Any one have tools to crack that?

[gladiator]

Maybe this software Technology software in the basic unit 6RX1700-0AS00 may enable the S00 software.
Anyone who have this one please upload!!!

[phoompat]

i can enable S00

By read eeprom
edit parameter to 2000 hr

i can see password too

[gomoura]

How do I place this reading, I have to take the eprom or is otherwise ?

[phoompat]

Details, read eprom to see the link http://www.LancOS.com.
See No. spi eeprom 25128.

[tapcho]

Needs to build special cable and just to connect to the drive or not. Please clarify connection way.

Best regards

[phoompat]

http://www.lancos.com/siprogsch.html

use (Base board + SPI eeprom adapter)

[phoompat]

Public Class Form1
Const h000_0 As UShort = 0
Const h000_1 As UShort = 0
Const h500_0 As UShort = 30528
Const h500_1 As UShort = 27
Const h150_0 As UShort = 26053
Const h150_1 As UShort = 82
Const h200_0 As UShort = 56576 'dd00
Const h200_1 As UShort = 109 '006d
Dim ADD_3FE0 As UShort
Dim ADD_3FF4 As UShort
Dim ADD_3FF6 As UShort
Dim ADD_3FFA As UShort
Dim point_add As UShort
Dim buffer As UShort = 0
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
ADD_3FF4 = h000_0
ADD_3FF6 = h000_1
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
ADD_3FF4 = h500_0
ADD_3FF6 = h500_1
End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
ADD_3FF4 = h150_0
ADD_3FF6 = h150_1
End Sub

Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
ADD_3FF4 = h200_0
ADD_3FF6 = h200_1
End Sub
Dim sum_check As UInt32 = 0

[phoompat]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButRead.Click

Code: Select all

Dim FileName_resorce As String
Dim FileName As Integer = FreeFile()
Dim FileLenght As Integer
sum_check = 0
' กำหนดเงื่อนไข ว่าต้องเลือกไฟล์ก่อน read ถ้าไม่ใส่ให้ออกจาก if
If TextBox5.Text = "" Then
MsgBox(" กรุณาเลือกไฟล์ที่ต้องการ Read โดยกด Browse ก่อน ")
Else

FileName_resorce = TextBox5.Text
FileOpen(FileName, FileName_resorce, OpenMode.Input, OpenAccess.Read, OpenShare.Shared)
FileLenght = FileLen(FileName_resorce)
FileClose(FileName)

If FileLenght = 16384 Then

Dim br As BinaryReader = New BinaryReader(New FileStream(FileName_resorce, FileMode.Open))

For point_add = 0 To 8191 ' ISP 25128

buffer = br.ReadUInt16()

If point_add = 1851 Then
TextLock0.Text = buffer
End If

If point_add = 1852 Then
TextLock1.Text = buffer
End If

If (8177 <= point_add) And (point_add <= 8185) Then
sum_check = buffer + sum_check
End If

If point_add = 8186 Then
ADD_3FF4 = buffer
End If

If point_add = 8187 Then
ADD_3FF6 = buffer
End If

If point_add = 8188 Then
sum_check = buffer + sum_check
End If

If point_add = 8189 Then
ADD_3FFA = buffer
End If

If (8190 <= point_add) And (point_add <= 8191) Then
sum_check = buffer + sum_check
' MsgBox(sum_check)
End If

Next
Select Case ADD_3FF4

Case h200_0
If ADD_3FF6 = h200_1 Then RadioButton4.Checked = True Else RadioButton1.Checked = True
Case h150_0
If ADD_3FF6 = h150_1 Then RadioButton3.Checked = True Else RadioButton1.Checked = True
Case h500_0
If ADD_3FF6 = h500_1 Then RadioButton2.Checked = True Else RadioButton1.Checked = True
Case Else
RadioButton1.Checked = True
End Select

TextBox3.Text = ADD_3FFA
ButWrite.Enabled = True
MsgBox(" Read ok ")

br.Close()
' ให้จบเงื่อนไขของ if อันแรก กรณีที่ไม่ระบุชื่อไฟล์
Else
MsgBox("This File is Incorrect")
End If
End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButWrite.Click

Code: Select all

        Dim FileName_resorce, FileName_output As String

        If TextBox5.Text = "" Then
            MsgBox(" กรุณาเลือกไฟล์ที่ต้องการอ่านในช่อง Search & สร้างชื่อไฟล์ในช่อง Create แล้วกดปุ่ม Read ก่อน")
        ElseIf TextBox6.Text = "" Then
            MsgBox(" กรุณาใส่ชื่อไฟล์ ที่ต้องการเก็บผล ที่ช่อง Create File Name")
        Else
            FileName_output = TextBox6.Text
            FileName_resorce = TextBox5.Text

            Dim bw As BinaryWriter = New BinaryWriter(New FileStream(FileName_output, FileMode.Create))
            Dim br As BinaryReader = New BinaryReader(New FileStream(FileName_resorce, FileMode.Open))

            If CheckBox1.Checked Then
                ADD_3FFA = 0
            End If

            ADD_3FE0 = ADD_3FF4 + ADD_3FF6 + ADD_3FFA + sum_check

            For point_add = 0 To 8191       ' ISP 25128

                buffer = br.ReadUInt16()

                If point_add = 8176 Then
                    bw.Write(ADD_3FE0)
                    bw.Seek(16354, SeekOrigin.Begin)
                ElseIf point_add = 8186 Then
                    bw.Write(ADD_3FF4)
                    bw.Seek(16374, SeekOrigin.Begin)
                ElseIf point_add = 8187 Then
                    bw.Write(ADD_3FF6)
                    bw.Seek(16376, SeekOrigin.Begin)
                ElseIf point_add = 8189 Then
                    bw.Write(ADD_3FFA)
                    bw.Seek(16380, SeekOrigin.Begin)
                Else
                    bw.Write(buffer)
                End If
            Next
            bw.Flush()
            TextBox3.Text = ADD_3FFA
            ButWrite.Enabled = False
            MsgBox("write complet ")
            br.Close()
            bw.Close()
            sum_check = 0
            ADD_3FE0 = 0
            ADD_3FF4 = 0
            ADD_3FF6 = 0
            ADD_3FFA = 0

            ' ให้จบเงื่อนไขของ if อันแรก กรณีที่ไม่ระบุชื่อไฟล์
        End If

    End Sub