Ok

)
zal ik het eerste script voor s2 posten dan
Heb dit script lekker op een 7.0 los gelaten maar tot nu toch weinig resultaat

maar wie weet.
Aanpassen en rommelen

Denk dat dit wel gepost mag worden want zijn geen keys of zo
'**********************************************
'** Study V 7.0 **
'** Versi?n Beta 1.0 *
'** By Genne9000 *
'** Este script es de uso p?blico *
'** Atmel;YaUf.exe *
'** 24/12/2002 **
'**********************************************
Option Explicit
Const ScriptName="Study V7.0"
Const ScriptVer=" Beta 1.1"
Dim RetValue
Dim Dac
Dim Delay
Dim GPPLen,GPRLen
Dim GPR(256)
Dim i
Dim MenuChoice
Dim MsgPrompt
Dim vv
Dim Diferente
Dim ModoGlitch
Dim GlitchDelay
Dim GlitchDelay2
Dim GlitchDelay3
Sub Main()
Sc.Verbose=False
If VerifyWinExplorer()=0 Then Exit Sub
If VerifyUnlooper()=0 Then Exit Sub
Do
MsgPrompt=" Read Encript By Genne9000 "
MenuChoice=Sc.ButtonBox(MsgPrompt,vbDefaultButton4,ScriptName+" "+ScriptVer+" - Men? Principal","ATR","ReadEncript","Scan","Exit")
Select Case MenuChoice
Case 1: ATR()
Case 2: ReadEncript()
Case 3: Readcard()
End Select
Loop Until MenuChoice=4
End Sub
Function ATR()
Sc.Write("A1")
Sc.Write("0610010E068f0F")
Sc.Delay(80)
Sc.Read(2)
GPPLen = Sc.GetByte(0)
GPRLen = Sc.GetByte(1)
If GPRLen >0 Then Sc.Read(GPRLen)
i=0
Do While (GPRLen >i)
GPR(i)=Sc.GetByte(i)
i=i+1
Loop
Sc.Print( GPRLen & " Bytes del ATR Original ---> ")
For i=0 To GPRLen -1
Sc.Print( HexInv(GPR(i),2)&" ")
Next
Sc.Print vbcr
Sc.Write ("A0")
End Function
Function ReadCard()
For DAC=65 to 110
Sc.Write("A1")
Sc.Write("B0"& HexString(DAC,2))
Sc.Write("0a100E0701200098f8BF00")
Sc.Delay(100)
Sc.Read(2)
GPPLen=Sc.GetByte(0)
GPRLen=Sc.GetByte(1)
If GPRLen>0 Then Sc.Read(GPRLen)
i=0
Do While (GPRLen>i)
GPR(i)=Sc.GetByte(i)
i=i+1
Loop
If GPRLen>0 Then
Sc.Print("DAC: "& DAC & " ---> ")
For i=0 to GPRLen-1
Sc.Print(HexInv(GPR(i),2) &" ")
Next
Sc.Print(vbCr)
End If
Next
Sc.Print(vbCr)
Sc.Write("A0")
ATR()
End Function
Function ReadEncript()
Dim DacValue
For GlitchDelay = &h0000 To &h00ff 'Delay
For GlitchDelay2 = &hf8 To &hf8 'Modo Glicht'
For DacValue = &h50 To &h90 'Voltaje
Sc.write("A1")
Sc.write("B0" & HexString(DacValue,2))
Sc.Write("0a100e070120" & HexString(GlitchDelay,4) & HexString(GlitchDelay2,2) & "bf00")
Sc.Delay(80)
Sc.Read(2)
GPPLen = Sc.GetByte(0)
GPRLen = Sc.GetByte(1)
If GPRLen >0 Then Sc.Read (GPRLen)
i=0
Do While(GPRLen >i)
GPR(i)= Sc.GetByte(i)
i=i+1
Loop
Sc.Print (GPRLen & " Bytes de Respuesta con Delay " & HexString(GlitchDelay,4) & " con Glitch " & HexString(GlitchDelay2,2)& " y con DAC " & HexString(DacValue,2)&" ---> ")
For i = 0 To GPRLen -1
Sc.Print (HexInv(Sc.Getbyte(i),2) & " " )
Next
Sc.Print vbcr
Sc.Write ("A0")
Next
Next
Next
End function
Function VerifyUnlooper()
Dim UnlooperID
Sc.Verbose=False
VerifyUnlooper=0
Call Sc.Reset()
Do While(VerifyUnlooper=0)
Sc.ByteDelay=0
Sc.Write("90")
If Sc.Read(4)=4 Then
For i=0 to 3
UnlooperID=UnlooperID+Chr(Sc.GetByte(i))
Next
VerifyUnlooper=1
Sc.Print("Atmel Software: " & UnlooperID &vbCr)
Else
Sc.Print("Retrying" & vbCr)
VerifyUnlooper=0
End If
Loop
End Function
Function VerifyWinExplorer()
VerifyWinExplorer=1
If Sc.Version<4.6 Then
Sc.Print("Necesitas WinExp v.4.6 para correr este script!")
VerifyWinExplorer=0
End If
End Function
Function HexString(Number,Length)
Dim CurLen
RetValue=Hex(Number)
CurLen=Len(RetValue)
If CurLen<Length Then
RetValue=String(Length-CurLen,"0") & RetValue
End If
HexString=RetValue
End Function
Function HexInv(Number,Length)
Dim CurLen
Dim NumLow
Dim NumHigh
NumLow=Int(Number/16)
NumHigh=Number-NumLow*16
Select Case NumHigh
Case 0 NumHigh=15
Case 1 NumHigh=7
Case 2 NumHigh=11
Case 4 NumHigh=13
Case 6 NumHigh=9
Case 7 NumHigh=1
Case 8 NumHigh=14
Case 9 NumHigh=6
Case 11 NumHigh=2
Case 13 NumHigh=4
Case 14 NumHigh=8
Case 15 NumHigh=0
End Select
Select Case NumLow
Case 0 NumLow=15
Case 1 NumLow=7
Case 2 NumLow=11
Case 4 NumLow=13
Case 6 NumLow=9
Case 7 NumLow=1
Case 8 NumLow=14
Case 9 NumLow=6
Case 11 NumLow=2
Case 13 NumLow=4
Case 14 NumLow=8
Case 15 NumLow=0
End Select
Number=NumHigh*16+NumLow
RetValue=Hex(Number)
CurLen=Len(RetValue)
If CurLen<Length Then
RetValue=String(Length-CurLen,"0") & RetValue
End If
HexInv=RetValue
End Function
Even dit nog een unlooper werkt met een atmel at 90s2313
dit als een soort loader sommige scripts vragen dus bepaalde soft in de atmel dit script dus yauf.hex
woutje