Viaccessfree

Здесь можна размещять скрипты

НУ ТАК И РАЗМЕСТИ

'Option Explicit
Dim x
Dim SW
DIM KS
Sub Main()
Sc.ClearOutputWindow

Sc.reset

ATR = GetATR()
Sc.Print "ATR: " & ATR & " - "
Select Case ATR
Case "3F 77 18 25 00 29 14 00 62 68 90 00"
Sc.Print "VIACCESS PC 2.3"& vbcr
Case "3F 77 18 25 00 80 14 00 66 68 90 00"
Sc.Print "VIACCESS PC 2.4"& vbcr
Case "3F 77 18 00 00 C1 14 00 A2 68 90 00"
Sc.Print "VIACCESS PC 2.5"& vbcr
Sc.MsgBox"СКРИПТ МОЖЕТ УБИТЬ ВАШУ КАРТУ ", vbExclamation, "СТАРАЯ ВЕРСИЯ 2.5"
Case "3F 77 18 00 00 C1 14 01 A2 68 90 00"
Sc.Print "VIACCESS PC 2.5"& vbcr
Case "3F 77 18 00 00 C2 14 00 C1 68 90 00"
Sc.Print "VIACCESS PC 2.6"& vbcr
Case Else
Sc.Print "Unknown ATR"
End Select
sc.write("ff 10 18 f7"
RX
If SW "24247" Then
Sc.Print "BAUDRATE=9600 "& vbcr
Wx.BaudRate =9600
Wx.ForceCommParams
Else
Sc.Print "BAUDRATE=115200"& vbcr
Wx.BaudRate = 115200
Wx.ForceCommParams
end if
sc.write("ca c0 00 00 0A"
SC.DELAY(50)
SC.PRINT("-----------------------------------------------------------------"& vbcr)
SC.PRINT("ISSUER"& vbcr)
ZX
SC.PRINT("-----------------------------------------------------------------"& vbcr)
FOR CN=1 TO 50 STEP 1
Sc.Write("CA A4 02 00 00"
Rx
IF SW 1440 THEN
SC.PRINT("-----------------------------------------------------------------"& vbcr)
EXIT FOR
ELSE
sc.write("ca c0 00 00 0A"
SC.DELAY(50)
ZX
END IF
NEXT
SC.WRITE ("CA A4 00 00 00"
RX
Sc.Write("CA A4 02 00 00"
Rx
For ST = 1 to 50000
N=N+1
G1=("05.01.2008"
G2=("05.06.2008"
KD=DATE2HEX(G1)
TD=DATE2HEX(G2)
KL=("08"
Randomize
A1= Byte2Hex(int(rnd(1) * 255))
A2 = Byte2Hex(int(rnd(1) * 255))
A3 = Byte2Hex(int(rnd(1) * 255))
A4 = Byte2Hex(int(rnd(1) * 255))
A5= Byte2Hex(int(rnd(1) * 255))
A6 = Byte2Hex(int(rnd(1) * 255))
A7 = Byte2Hex(int(rnd(1) * 255))
A8 = Byte2Hex(int(rnd(1) * 255))
PrHash= A1 & A2 & A3 & A4 & A5 & A6 & A7 & A8
Sc.Write("CA 18 00 00 11"
px
Sc.Write("A9 05 "&KD& TD& KL&" F0 08" & PrHash)
Sc.Delay(5)
lx
Call Sc.ProgressBox("ПРОБА " & ST&" НАЧ.ДАТА -"& HEX2DATE(KD)&VBCR&"ОТВЕТ КАРТЫ-"&BYTE2HEX(KS)&" КОН.ДАТА-"& HEX2DATE(TD)&VBCR&"HASH ="&PRHASH&" КЛАС -"&KL,ST , 50000, "ALEXVIA_ПРОДЛЕНИЕ ПОДПИСКИ_ПЕРЕБОР"
If SW"14464" Then
Sc.Print "STOP " &VBCR&"ANSVER= "& BYTE2HEX(KS)&VBCR&"HASH= " & A1 & A2 & A3 & A4 & A5 & A6 & A7 & A8& vbcr
Sc.MsgBox "HASH="&PRHASH, vbInformation
exit for
Else
End If
NEXT
Call Sc.ProgressBox("", 0, 100)
Sc.MsgBox "ПРОКРУТКА ЗАКОНЧЕНА", vbInformation
END SUB
Function Rx
Sc.Delay(40)
x = Sc.BytesInBuffer
Sc.Read(x)
SW = Sc.GetByte(X-2) & Sc.GetByte(X-1)
End Function
Function px
Sc.Delay(50)
p = Sc.BytesInBuffer
Sc.Read(p)
End Function
Function lx
Sc.Delay(19)
l = Sc.BytesInBuffer
Sc.Read(l)
K =256*(Sc.GetByte(L - 2))
KS= K+(Sc.GetByte(L - 1))
SW = Sc.GetByte(l-2) & Sc.GetByte(l-1)
End Function
Function Zx
Sc.Delay(70)
Z = Sc.BytesInBuffer
Sc.Read(Z)
U =256*(Sc.GetByte(Z - 9))
U1= U+(Sc.GetByte(Z - 8 ))
U2=256*(Sc.GetByte(Z - 6))
U3= U2+(Sc.GetByte(Z - 5))
U4=256*(Sc.GetByte(Z - 4))
U5= U4+(Sc.GetByte(Z - 3))
U7= BYTE2HEX(SC.GETBYTE(Z-7))
U8= (BYTE2HEX(SC.GETBYTE(Z-12)))&(BYTE2HEX(SC.GETBYTE(Z-11)))&(BYTE2HEX(SC.GETBYTE(Z-10)))
U9= U1+U3+U5
U11=U11+U9
SC.PRINT ("PROVIDER - "&U8&VBCR)
SC.PRINT ("STATUS - "&U7&VBCR)
SC.PRINT ("MEMORY ="&U1&" BYTES"& vbcr)
SC.PRINT ("MEMORY_X ="&U3&" BYTES"&VBCR)
SC.PRINT ("MEMORY_Y ="&U5&" BYTES"&VBCR)
SC.PRINT ("MEMORY_Z ="&U9&" BYTES"&VBCR)
End Function
Function GetATR()
Dim i
Sc.Verbose = FALSE
Wx.RTSControl = 1
Wx.ForceCommParams
Wx.RTSControl = 0
Wx.ForceCommParams
Sc.Delay(200)
x = Sc.BytesInBuffer
Sc.Read(x)
If Byte2Hex(Sc.GetByte(0)) = "3F" Or Byte2Hex(Sc.GetByte(0)) = "03" Then
Wx.ByteConvention = 0
Wx.ForceCommParams
Else
Wx.ByteConvention = 1
Wx.ForceCommParams
End If
Wx.RTSControl = 1
Wx.ForceCommParams
Wx.RTSControl = 0
Wx.ForceCommParams
Wx.ResetDelay = 0
Wx.ForceCommParams
Wx.ByteDelay = 0
Wx.ForceCommParams
Sc.Delay(200)
x = Sc.BytesInBuffer
Sc.Read(x)
For i = x To 1 Step - 1
GetATR = GetATR & Byte2Hex(Sc.GetByte(x - i)) & " "
Next
GetATR = RTrim(GetATR)
Sc.Verbose = FALSE
End Function
Function Byte2Hex(v)
If len(hex(v))=1 Then
Byte2Hex="0" & hex(v)
Else
Byte2Hex=hex(v)
End If
End Function
Function Date2Hex(v)
Date2Hex = Hex(((Year(v) - 1980) * 2 ^ 9) + (Month(v) * 2 ^ 5) + Day(v))
End Function
Function Hex2Date(v)
Hex2Date = DateSerial(ShiftRight((Int("&H" & v) And &HFE00), 9) + 1980,ShiftRight((Int("&H" & v) And &H1FF), 5), Int("&H" & v) And &H1F)
End Function
Function ShiftRight(Value, Count)
Dim i
ShiftRight = Value
For i = 1 To Count
ShiftRight = ShiftRight \ 2
Next
End Function

продление подписки методом перебора сигнатуры

Hallo alle. Seit Tagen suchen reaktionsschnelles Netz von Verwandten, Freunden , aber niemand konnte keine Antwort geben . Das Problem ist folgendes : Die meisten, die ich tun kann - 500 Meter laufen. Dann Kurzatmigkeit. Rabatt auf riesigen Dimensionen für Alter, ist das Ergebnis schrecklich. Dad sagte über die Kurve Nasenscheidewand, aber ich weiß nicht, wie es wirkt .

покер клуб империя или игровые автоматы клубничка бесплатно и без смс.