Nos obligan a molestarte con la obviedad de que este sitio usa cookies OK | Más información
receptor viark

Chincheta Autor Tema: aver si alguien entiende algo aqui!!!  (Leído 3435 veces)

18/03/2009, 20:32

Conectado iraclis

messageicon

aver si alguien entiende algo aqui!!!

« en: 18/03/2009, 20:32 »
 
Option Explicit
Const FileFilter = "Binary File (*.bin)|*.bin;|BIN Files (*.bin)|*.bin"
Dim FileName
Dim OutFile
Dim Dump
Dim BootStrapECM
Dim CmdToGlitch
Dim Bytes
Dim BytesRead
Dim Bytes1
Dim Bytes2
Dim DelayStart
Dim DelayLimit
Dim VCCStart
Dim VCCLimit
Dim GlitchType
Dim Delay
Dim VCC
Dim ATRrsp
Dim loopctr
Dim StartDate
Dim MsgPrompt
Dim MenuChoice
Setupunlocker()
Sub Main()

Do
MsgPrompt = "Rom142 Rev G0x Dream shitter v0.0.1"
MenuChoice = Sc.ButtonBox(MsgPrompt, vbDefaultButton1 + vbQuestion,"Rom142 Rev G0x Dream shitter" & " v 0.0.1" & " - Menu : ","Eep00:$3000","Eep80:$8000","Eep80:$A000","Exit")
Select Case MenuChoice
Case 1: Eep30()
Case 2: Eep80()
Case 3: EepA0()
End Select
Loop Until MenuChoice = 4
Exit Sub
End Sub

Sub Eep30()
Dump=&h800
BootStrapECM = "214095A0CA00008F078D4101247BC2000000000 000000000000000000000000000000000000000 000000000000000000009D9D9D9D9D9D9D9D9D9 D9D9D9D9D9D9BA655AD2C4AAD1D26FB7180C630 00B7529DAD1F3C9726F43C9626F020EC9D9D9D9 D9D9D9DB752A6F04A26FDB652819d9dB7524FAD F3AE0A431100ADE820001000ADE298250411002 00410002000ADD5485A26F010008102DE"
BootStrapEMM = "21016C0000000000000000000000008D018033B C899D9D9D9BA655AD2C4AAD1D26FB7180C63000 B7529DAD1F3C9726F43C9626F020EC9D9D9D9D9 D9D9DB752A6F04A26FDB652819d9dB7524FADF3 AE0A431100ADE820001000ADE29825041100200 410002000ADD5485A26F010008100"
CmdToGlitch = "210008A0CA000002150086D2"
Call Glitch()
End Sub
Sub Eep80()
Dump=&h2000
BootStrapECM = "214095A0CA00008F078D4101247BC2000000000 000000000000000000000000000000000000000 000000000000000000009D9D9D9D9D9D9D9D9D9 D9D9D9D9D9D9BA655AD2C4AAD1D26FB7180C680 00B7529DAD1F3C9726F43C9626F020EC9D9D9D9 D9D9D9DB752A6F04A26FDB652819d9dB7524FAD F3AE0A431100ADE820001000ADE298250411002 00410002000ADD5485A26F010008102DE"
CmdToGlitch = "210008A0CA000002150086D2"
Call Glitch()
End Sub
Sub EepA0()
Dump=&h1C00
BootStrapECM = "214095A0CA00008F078D4101247BC2000000000 000000000000000000000000000000000000000 000000000000000000009D9D9D9D9D9D9D9D9D9 D9D9D9D9D9D9BA655AD2C4AAD1D26FB7180C6A0 00B7529DAD1F3C9726F43C9626F020EC9D9D9D9 D9D9D9DB752A6F04A26FDB652819d9dB7524FAD F3AE0A431100ADE820001000ADE298250411002 00410002000ADD5485A26F010008102DE"
CmdToGlitch = "210008A0CA000002150086D2"
Call Glitch()
End Sub

Sub Glitch()
Clearoutputwindow
loopctr = 0
if CheckChipVer <> 1 then
Sc.MsgBox("I fuckin told ya slag shit for fuck sake just Flash your Atmel with NewD13.hex flash thingy")
Exit Sub
End if
'********************************************************************
DelayStart = &h100
DelayLimit = &h350
VCCStart = &h15
VCCLimit = &h02
GlitchType = 7
'********************************************************************
Sc.Verbose = 1
Delay = DelayStart
VCC = VCCStart
Sc.Print "Snitching the fucking thing...." & VbCr
StartDate = Now()
Do
Do
Sc.Verbose = 0
Sc.Write("B0" & HexString(VCC, 2))
Sc.Write("07 15 01 01 03 50 1A 00")
Sc.Read(02)
ATRrsp = Sc.Getbyte(1)
if ATRrsp = &h1B then
Sc.Read(ATRrsp)
Exit Do
else
print VbCr & "This isn´t a fucking N3 card shit head, just fucking insert your card and reset the fucking thing to get ATR...." & VbCr
sc.delay(100)
Sc.Write("B0" & HexString(VCC, 2))
Sc.Write("07 15 01 01 03 50 1A 00")
Sc.Read(02)
ATRrsp = Sc.Getbyte(1)
if ATRrsp = &h1B then
Sc.Read(ATRrsp)
Exit Do
else
print VbCr & "i fuckin told you shit head just fuckin stick a valid R142 on it, exiting script...." & VbCr
exit sub
end if
End if
loop


Sc.Write("57 15 60 50" & BootStrapECM & "50 07 00")
Sc.Read(2)
Bytes = Sc.Getbyte(1)
if Bytes > 0 then
Bytes = Sc.Read(Bytes)
End if

Sc.Print "===========================================" & VbCr
Sc.Print "VCC = "& HexString(VCC, 2) & " (~" & ((5/255) * VCC) &" vdc)" & VbCr
Sc.Print "Glitch Delay = "& HexString(Delay, 4) & VbCr
Sc.Print "Glitch type " & HexString(GlitchType, 2) & VbCr
Sc.Print "Elapsed = " & TimeDiff(StartDate, Now()) & vbcr
Sc.Print "===========================================" & VbCr
Sc.Write("16 1F 60 0B" & CmdToGlitch & "20" & HexString(Delay, 4) & HexString(GlitchType, 2) & "50 00 00")
Sc.Read(2)
BytesRead = Sc.Getbyte(1)
if BytesRead > 0 then
sc.verbose = 1
Bytes = Sc.Read(BytesRead)
sc.verbose = 0
Bytes1 = Sc.getbyte(0)
if Bytes1 = &h55 then
sc.verbose = 1
Sc.Write("A1")
Sc.Print VbCr
Sc.Print "===========================================" & VbCr
Sc.Print "Glitched the fuckin bitch!!" & VbCr
Sc.Print "ACK Received!!" & VbCr
Sc.Print "VCC = "& HexString(VCC, 2) & " (~" & ((5/255) * VCC) &" vdc)" & VbCr
Sc.Print "Glitch Delay = "& HexString(Delay, 4) & VbCr
Sc.Print "Glitch type " & HexString(GlitchType, 2) & VbCr
Sc.Print "Elapsed = " & TimeDiff(StartDate, Now()) & vbcr
Sc.Print "===========================================" & VbCr
SaveEEprom()
Exit Sub
Else
print VbCr & " The fucking shit has not dumped yet......continuing...." & VbCr
End if
Else
print VbCr & "No CMD15 bytes received yet....continuing...." & VbCr
End if
VCC = VCC - 1
If VCC = VCCLimit then
VCC = VCCStart
Delay = Delay + .1
End if
If Delay > DelayLimit then
Delay = DelayStart
End if

loopctr = loopctr + 1
If loopctr = 100 then
Clearoutputwindow
loopctr = 0
End if
Loop
End Sub
Function HexString(Number,Length)
Dim RetVal
Dim CurLen
RetVal=Hex(Number)
CurLen=Len(RetVal)
If CurLen<Length Then
RetVal=String(Length-CurLen,"0") & RetVal
End If
HexString=RetVal
End Function
Function CheckChipVer()
CheckChipVer = 1
sc.write("90")
sc.delay(80)
if sc.read(4) <> 4 then
CheckChipVer = 0
Exit Function
End if
if getbyte(0) <> &H4E then CheckChipVer = 0
if getbyte(1) <> &H44 then CheckChipVer = 0
if getbyte(2) <> &H31 then CheckChipVer = 0
if getbyte(3) <> &H33 then CheckChipVer = 0
End Function
Function TimeDiff (StartTime, EndTime)
Dim Hours, Minutes, Seconds
Seconds = DateDiff("s", StartTime, EndTime)
If Seconds > 86400 Then Seconds = 0
If Seconds < 0 Then Seconds = 0
Minutes = Seconds / 60
Minutes = Fix(Minutes)
Seconds = Seconds - (Minutes * 60)
Hours = Minutes / 60
Hours = Fix(Hours)
Minutes = Minutes - (Hours * 60)
Seconds = CStr(Seconds)
Minutes = CStr(Minutes)
Hours = CStr(Hours)
If Len(Seconds) = 1 Then Seconds = "0" + Seconds
If Len(Minutes) = 1 Then Minutes = "0" + Minutes
If Len(Hours) = 1 Then Hours = "0" + Hours
TimeDiff = Hours & ":" & Minutes & ":" & Seconds
End Function
Sub SaveEEprom()
Dim totalcount
Dim RcvdBytes
totalcount = 0
Sc.Write("06 0E 50 0F" & HexString(Dump, 4) & "00")
Sc.Delay(Dump/4)
Sc.Read(Dump)
GetFileName()
Do
RcvdBytes = Sc.Getbyte(totalcount)
call Fs.FilePutc(OutFile, RcvdBytes)
Call Sc.ProgressBox ("Reading Eeprom", totalcount , Dump, "Saving Bin...")
totalcount = totalcount +1
Loop until totalcount = Dump
Fs.FileClose(OutFile)
end sub
Sub GetFileName()
FileName = Fs.FileSaveDialog(FileFilter, "Please select a name for the new bin file", "Eeprom.bin")
If FileName <> "" Then
OutFile = Fs.FileCreate(FileName)
end if
End sub


Function SetupUnlocker()
Wx.BaudRate = 115200
Wx.ResetBaudRate = 115200
Wx.Parity = 0
Wx.StopBits = 0
Wx.DTRControl = 0
Wx.RTSControl = 1
Wx.ResetDelay = 0
Wx.ByteDelay = 0
Wx.RxByteTimeout = 500
Wx.ResetMode = 2
Wx.ResetLine = 1
Wx.ByteConvention = 1
Wx.FlushEchoByte = 0
Wx.FlushBeforeWrite = 1
Wx.IgnoreTimeouts = 1
Wx.ResetAfterTimeout = 0
Wx.LogTransactions = 0
Wx.DisplayUSW = 0
Wx.DisplayFuse = 0
End function

18/03/2009, 20:34Respuesta #1

Conectado iraclis

messageicon

Re: aver si alguien entiende algo aqui!!!

« Respuesta #1 en: 18/03/2009, 20:34 »
el archivo se llama R142

18/03/2009, 20:53Respuesta #2

Conectado duke

  • Administrador Global
  • ****
  • Gracias
  • -Dada: 732
  • -Recibida: 5270
  • Mensajes: 123942
  • __d u k e__
messageicon

Re: aver si alguien entiende algo aqui!!!

« Respuesta #2 en: 18/03/2009, 20:53 »
Pues yo no se que decirte, tambie podria ser ésto lo del R142 ? :

No tienes permiso para ver los enlaces. Regístrate o Autentícate



Me imagino que aparte de trenes será algo del ng3 a lo que te quieres referir, esperemos a ver opiniones, salu2.

18/03/2009, 20:55Respuesta #3

Desconectado Sankocho

messageicon
Re: aver si alguien entiende algo aqui!!!
« Respuesta #3 en: 18/03/2009, 20:55 »
Lo unico que yo entiendo es esto

Sc.MsgBox("I fuckin told ya slag shit for fuck sake just Flash your Atmel with NewD13.hex flash thingy")
print VbCr & "This isn´t a fucking N3 card shit head, just fucking insert your card and reset the fucking thing to get ATR...." & VbCr
print VbCr & "i fuckin told you shit head just fuckin stick a valid R142 on it, exiting script...." & VbCr
print VbCr & " The fucking shit has not dumped yet......continuing...." & VbCr

18/03/2009, 21:55Respuesta #4

Conectado duke

  • Administrador Global
  • ****
  • Gracias
  • -Dada: 732
  • -Recibida: 5270
  • Mensajes: 123942
  • __d u k e__
messageicon
Re: aver si alguien entiende algo aqui!!!
« Respuesta #4 en: 18/03/2009, 21:55 »
Sankocho entiende mas o menos ...

Sc.MsgBox ( "Yo ya dije, carajo escoria mierda carajo causa justa para su Atmel Flash con flash NewD13.hex cosita")
imprimir vbCr & "Esto no es una puta mierda de tarjeta N3 cabeza, maldito sólo insertar la tarjeta y reinicie la maldita cosa para obtener ATR ...." & VbCr
imprimir vbCr & "i carajo te dijo mierda maldita cabeza sólo válida R142 un palo sobre él, de salir de secuencia de comandos de ...." & VbCr
imprimir vbCr & "La mierda no ha vertido todavía ...... continua ...." & VbCr
« Última modificación: 18/03/2009, 21:56 por duke »

19/03/2009, 23:28Respuesta #5

Desconectado juanjo61

messageicon
Re: aver si alguien entiende algo aqui!!!
« Respuesta #5 en: 19/03/2009, 23:28 »
instruccionbes  para   un   picachon   electrico     jajjajajajajajjja

20/03/2009, 08:26Respuesta #6

Desconectado elgeneral

  • El del VietNan
  • Administrador Global
  • ****
  • Gracias
  • -Dada: 120
  • -Recibida: 1870
  • Mensajes: 20905
messageicon
Re: aver si alguien entiende algo aqui!!!
« Respuesta #6 en: 20/03/2009, 08:26 »
lo que es verdad es que hay movimiento con el tema pero k nadie saca nada a la luz aun  >   :D  

la ultima una tarjeta irlandesa dice que si k las lee

a ver si pronto sabemos algo ya por que todo marcha para N3  ??? ???

20/03/2009, 08:28Respuesta #7

Conectado josagi

messageicon
Re: aver si alguien entiende algo aqui!!!
« Respuesta #7 en: 20/03/2009, 08:28 »
No tienes permiso para ver los enlaces. Regístrate o Autentícate
Sankocho entiende mas o menos ...

Sc.MsgBox ( "Yo ya dije, carajo escoria mierda carajo causa justa para su Atmel Flash con flash NewD13.hex cosita")
imprimir vbCr & "Esto no es una puta mierda de tarjeta N3 cabeza, maldito sólo insertar la tarjeta y reinicie la maldita cosa para obtener ATR ...." & VbCr
imprimir vbCr & "i carajo te dijo mierda maldita cabeza sólo válida R142 un palo sobre él, de salir de secuencia de comandos de ...." & VbCr
imprimir vbCr & "La mierda no ha vertido todavía ...... continua ...." & VbCr

segun tu traduccion, otra broma mas de la peña
seguimos esperando...

20/03/2009, 13:20Respuesta #8

Desconectado papitufo

messageicon
Re: aver si alguien entiende algo aqui!!!
« Respuesta #8 en: 20/03/2009, 13:20 »
De lo que veo en el programa es un intento de leer la rom 142 de portugal, por el atmel flash ND13 parece ser algo antiguo, creo he leido de esto en el 2007. El lenguaje de las instrucciones.. pues he visto algo similar en otro tipo de programas pero suena algo infantil para ser real.

 

Related Topics

  Asunto / Iniciado por Respuestas Último mensaje
veryhot_post * 26 Respuestas
4970 Vistas
Último mensaje 27/02/2008, 17:35
por otroatletico
normal_post * 10 Respuestas
1774 Vistas
Último mensaje 29/06/2008, 20:26
por elgeneral
normal_post * 2 Respuestas
858 Vistas
Último mensaje 15/08/2008, 23:33
por motor
normal_post * 10 Respuestas
18925 Vistas
Último mensaje 08/10/2009, 19:52
por nhaskul
normal_post * 1 Respuestas
1473 Vistas
Último mensaje 04/11/2008, 17:12
por Unamigo
veryhot_post * 38 Respuestas
11052 Vistas
Último mensaje 30/12/2008, 21:21
por lamusa
normal_post * 14 Respuestas
2865 Vistas
Último mensaje 04/03/2009, 23:18
por chris...62
normal_post * 0 Respuestas
7708 Vistas
Último mensaje 29/01/2012, 19:37
por Ramalú
normal_post * 3 Respuestas
267 Vistas
Último mensaje 10/09/2015, 23:32
por suacom
normal_post * 0 Respuestas
127 Vistas
Último mensaje 05/09/2017, 15:58
por idrocem



PadreDeFamilia
!! ADVERTENCIAS !!: Las informaciones aquí publicadas NO CONTIENEN KEYS para la decodificación de ningún sistema: NO SON OPERATIVOS en sistemas SAT que precisen de su correspondiente suscripción. ESTA TOTALMENTE PROHIBIDO EL USO DE ESTAS INFORMACIONES PARA LA MODIFICACIÓN O DEFRAUDACIÓN DE SISTEMAS DE ACCESO CONDICIONAL. ESTOS FOROS SON MODERADOS Y NO SE PERMITE LA PUBLICACIÓN DE INFORMACIONES ILEGALES POR PARTE DE LOS USUARIOS. EN CASO DE DETECTARSE ESTE TIPO DE INFORMACIONES, LOS USUARIOS SERÁN EXCLUIDOS DE ESTAS PÁGINAS.
PROHIBIDA LA PUBLICACIÓN DE ENLACES A FIRMWARES ILEGALES