Изучение уязвимостей электронных систем.
 
key programming immo tools emergency start device программаторы ключа заводилки Кодграббер штатных охранных систем, toyota, lexus, subaru.

Вернуться   Изучение уязвимостей электронных систем > Для начинающих > Новички

Новички Раздел для новичков. Что такое кодграббер, ретранслятор, подмена кода.

Ответ
 
Опции темы
Старый 03.08.2014, 03:03   #1
march cat
случайно влез
 
Аватар для march cat
 
Регистрация: 18.10.2009
Сообщений: 30
Поблагодарил: 1
Поблагодарили 3 раз в 2 сообщениях
march cat стоит на развилке
По умолчанию Анализатор Keeloq на Pic18f2550

Всем доброго дня ! Начал изучать программирование pic . Собирал проект оn Olega. Задача собрать Анализатор . Принять пакет и выслать его в com-port.
Code /
LIST P=18F2550
#include <P18F2550.INC>
radix dec
;************************************************* *******************************************
CONFIG FOSC = HS
CONFIG WDT = OFF
CONFIG LVP = OFF
;************************************************* *******************************************
dataL EQU 0x011
;************************************************* *******************************************
bank0 EQU 0x008
bank1 EQU 0x009
bank2 EQU 0x00A
bank3 EQU 0x00B
bank4 EQU 0x00C
bank5 EQU 0x00D
bank6 EQU 0x00E
;************************************************* *******************************************
registr0 EQU 0x012
registr1 EQU 0x013
registr2 EQU 0x014
registr3 EQU 0x015
registr4 EQU 0x016
registr5 EQU 0x017
registr6 EQU 0x018
registr7 EQU 0x019
;************************************************* *******************************************
C EQU 0 ; Флаг переноса-заема.
DC EQU 1 ; Флаг десятичного переноса.
Z EQU 2 ; Флаг нулевого результата.
RP0 EQU 5 ; Бит выбора банка.
RP1 EQU 6 ; Бит выбора банка.
INTF EQU 1
;************************************************* *******************************************
ORG 0x0000
;************************************************* *******************************************
; INITIALIZE PORTS
;************************************************* *******************************************
movlw b'00000000' ; set up portA
movwf PORTA

bcf TRISB,0 ; ставим 0
bcf TRISB,1 ; ставим 0
bcf TRISB,2 ; ставим 0
bcf TRISB,3 ; ставим 0
bsf TRISB,4 ; ставим 1
bcf TRISB,5 ; ставим 0
bcf TRISB,6 ; ставим 0
bcf TRISB,7 ; ставим 0



movlw b'00000100' ; RC5 tx
movwf PORTC

bsf STATUS,RP0 ; RAM PAGE 1

movlw 0xFF
movwf TRISA ; portA all pins input

movlw b'11110001' ; RC7-RC4 and RC0
movwf TRISC

clrf LATB

;************************************************* *******************************************
; SET BAUD RATE TO COMMUNICATE WITH PC
;************************************************* *******************************************
; Boot Baud Rate = 9600, No Parity, 1 Stop Bit
;************************************************* *******************************************
movlw 0x19 ; 0x19=9600 bps (0x0C=19200 bps)
movwf SPBRG
movlw b'00100100' ; brgh = high (2)
movwf TXSTA ; enable Async Transmission, set brgh
bcf STATUS,RP0 ; RAM PAGE 0
movlw b'10010000' ; enable Async Reception
movwf RCSTA
;************************************************* *******************************************
; PROVIDE A SETTLING TIME FOR START UP
;************************************************* *******************************************
clrf dataL
settle decfsz dataL,F
goto settle

movf RCREG,W
movf RCREG,W
movf RCREG,W ; flush receive buffer
;************************************************* *******************************************
clrf LATB
clrf LATC
keeloq
;**************************************
btfsc INTCON,T0IF
bra keeloq

movlw b'00011110'
movwf T2CON
clrf TMR2
bcf PIR1,TMR2IF
;**************************************
movlw d'8'
movwf bank0

preambula

btfsc PIR1,TMR2IF
bra keeloq
btfss PORTC,5
bra preambula

movlw d'6'
movwf bank1

log1

btfss PORTC,5
bra keeloq

movlw d'15'
movwf bank2
decfsz bank2,f
bra $-2

decfsz bank1,f
bra log1
;**************************************
movlw d'100'
movwf bank2
decfsz bank2,f
bra $-2
;**************************************
btfsc PORTC,5
bra keeloq

decfsz bank0,f
bra preambula

clrf TMR2
;************************************************* *******************************************
hoder
movlw d'30'
movwf bank1
hod
btfsc PORTC,5
bra hoder

movlw d'27'
movwf bank2
decfsz bank2,f
bra $-2

decfsz bank1,f
bra hod
;************************************************* *******************************************
movlw d'64'
movwf bank0

priem

btfsc PORTC,5
bra $-2

btfsc PIR1,TMR2IF
bra keeloq
btfss PORTC,5
bra $-6

movlw d'6'
movwf bank1
TE
btfss PORTC,5
bra keeloq

movlw d'15'
movwf bank2
decfsz bank2,f
bra $-2

decfsz bank1,f
bra TE
;**************************************
movlw d'100'
movwf bank2
decfsz bank2,f
bra $-2
;**************************************
btfss PORTC,5
bsf STATUS,C
btfsc PORTC,5
bcf STATUS,C

rlcf registr0
rlcf registr1
rlcf registr2
rlcf registr3
rlcf registr4
rlcf registr5
rlcf registr6
rlcf registr7

clrf TMR2

decfsz bank0,f
bra priem
;********************************
message
movlw registr0
call send
movlw registr1
call send
movlw registr2
call send
movlw registr3
call send
movlw registr4
call send
movlw registr5
call send
movlw registr6
call send
movlw registr7
call send
movlw ' '
call send
movlw 'k'
call send
movlw 'e'
call send
movlw 'e'
call send
movlw 'l'
call send
movlw 'o'
call send
movlw 'q'
call send
movlw '!'
call send
movlw 0x0D ; CR
call send
movlw 0x0A ; LF
call send
call keeloq

send movwf TXREG ; send data in W

TransWt bsf STATUS,RP0 ; RAM PAGE 1
WtHere btfss TXSTA,TRMT ; (1) transmission is complete if hi
goto WtHere

bcf STATUS,RP0 ; RAM PAGE 0
return

receive btfss PIR1,RCIF ; (5) check for received data
goto receive

movf RCREG,W ; save received data in W
return

END
CODE\

Код компилируется , но не работает. Ткните носом в проблему .
Писал в MpLab 8.56
Заливал PicKit3

добавлено через 5 часов 20 минут
Лоханулся с портами ))


Я такой какой я есть )))...

Последний раз редактировалось march cat; 02.08.2014 в 22:11.
march cat вне форума   Ответить с цитированием
Старый 04.08.2014, 18:56   #2
march cat
случайно влез
 
Аватар для march cat
 
Регистрация: 18.10.2009
Сообщений: 30
Поблагодарил: 1
Поблагодарили 3 раз в 2 сообщениях
march cat стоит на развилке
По умолчанию

Нашел сам кое-какие ошибки ! но не фурычит (

LIST P=18F2550
#include <P18F2550.INC>
;************************************************* *******************************************
CONFIG FOSC = HS
CONFIG WDT = OFF
CONFIG LVP = OFF
;************************************************* *******************************************
dataL EQU 0x011
;************************************************* *******************************************
bank0 EQU 0x008
bank1 EQU 0x009
bank2 EQU 0x00A
bank3 EQU 0x00B
bank4 EQU 0x00C
bank5 EQU 0x00D
bank6 EQU 0x00E
;************************************************* *******************************************
registr0 EQU 0x012
registr1 EQU 0x013
registr2 EQU 0x014
registr3 EQU 0x015
registr4 EQU 0x016
registr5 EQU 0x017
registr6 EQU 0x018
registr7 EQU 0x019
;************************************************* *******************************************
; C EQU 0 ; Флаг переноса-заема.
RP0 EQU 5 ; Бит выбора банка.
RP1 EQU 6 ; Бит выбора банка.
;************************************************* *******************************************
ORG 0x0000
;************************************************* *******************************************
; INITIALIZE PORTS
;************************************************* *******************************************
movlw b'00000000' ; set up portA
movwf PORTA

bcf TRISB,0 ; ставим 0
bcf TRISB,1 ; ставим 0
bcf TRISB,2 ; ставим 0
bcf TRISB,3 ; ставим 0
bsf TRISB,4 ; ставим 1
bcf TRISB,5 ; ставим 0
bcf TRISB,6 ; ставим 0
bcf TRISB,7 ; ставим 0



movlw b'00000100' ; RC5 tx
movwf PORTC

bsf STATUS,RP0 ; RAM PAGE 1

movlw 0xFF
movwf TRISA ; portA all pins input

movlw b'11110001' ; RC7-RC4 and RC0
movwf TRISC

;************************************************* *******************************************
; SET BAUD RATE TO COMMUNICATE WITH PC
;************************************************* *******************************************
; Boot Baud Rate = 9600, No Parity, 1 Stop Bit
;************************************************* *******************************************
movlw 0x19 ; 0x19=9600 bps (0x0C=19200 bps)
movwf SPBRG
movlw b'00100100' ; brgh = high (2)
movwf TXSTA ; enable Async Transmission, set brgh
bcf STATUS,RP0 ; RAM PAGE 0
movlw b'10010000' ; enable Async Reception
movwf RCSTA
;************************************************* *******************************************
; PROVIDE A SETTLING TIME FOR START UP
;************************************************* *******************************************
clrf dataL
settle decfsz dataL,F
goto settle

movf RCREG,W
movf RCREG,W
movf RCREG,W ; flush receive buffer
;************************************************* *******************************************
clrf LATB
clrf LATC
keeloq
;**************************************
movlw b'00011110'
movwf T2CON
clrf TMR2
bcf PIR1,TMR2IF
;**************************************
movlw d'8'
movwf bank0

preambula

btfsc PIR1,TMR2IF
bra keeloq
btfss PORTB,4
bra preambula

movlw d'6'
movwf bank1

log1

btfss PORTB,4
bra keeloq

movlw d'15'
movwf bank2
decfsz bank2,f
bra $-2

decfsz bank1,f
bra log1
;**************************************
movlw d'100'
movwf bank2
decfsz bank2,f
bra $-2
;**************************************
btfsc PORTB,4
bra keeloq

decfsz bank0,f
bra preambula

clrf TMR2
;************************************************* *******************************************
hoder
movlw d'30'
movwf bank1
hod
btfsc PORTB,4
bra hoder

movlw d'27'
movwf bank2
decfsz bank2,f
bra $-2

decfsz bank1,f
bra hod
;************************************************* *******************************************
movlw d'64'
movwf bank0

priem

btfsc PORTB,4
bra $-2

btfsc PIR1,TMR2IF
bra keeloq
btfss PORTB,4
bra $-6

movlw d'6'
movwf bank1
TE
btfss PORTB,4
bra keeloq

movlw d'15'
movwf bank2
decfsz bank2,f
bra $-2

decfsz bank1,f
bra TE
;**************************************
movlw d'100'
movwf bank2
decfsz bank2,f
bra $-2
;**************************************
btfss PORTB,4
bsf STATUS,C
btfsc PORTB,4
bcf STATUS,C

rlcf registr0
rlcf registr1
rlcf registr2
rlcf registr3
rlcf registr4
rlcf registr5
rlcf registr6
rlcf registr7

clrf TMR2

decfsz bank0,f
bra priem
;********************************
message
movlw registr0
call send
movlw registr1
call send
movlw registr2
call send
movlw registr3
call send
movlw registr4
call send
movlw registr5
call send
movlw registr6
call send
movlw registr7
call send
movlw ' '
call send
movlw 'k'
call send
movlw 'e'
call send
movlw 'e'
call send
movlw 'l'
call send
movlw 'o'
call send
movlw 'q'
call send
movlw '!'
call send
movlw 0x0D ; CR
call send
movlw 0x0A ; LF
call send
call keeloq

send movwf TXREG ; send data in W

TransWt bsf STATUS,RP0 ; RAM PAGE 1
WtHere btfss TXSTA,TRMT ; (1) transmission is complete if hi
goto WtHere

bcf STATUS,RP0 ; RAM PAGE 0
return

receive btfss PIR1,RCIF ; (5) check for received data
goto receive

movf RCREG,W ; save received data in W
return

END


Я такой какой я есть )))...
march cat вне форума   Ответить с цитированием
Старый 06.08.2014, 15:47   #3
march cat
случайно влез
 
Аватар для march cat
 
Регистрация: 18.10.2009
Сообщений: 30
Поблагодарил: 1
Поблагодарили 3 раз в 2 сообщениях
march cat стоит на развилке
По умолчанию

Все работает ))


Я такой какой я есть )))...
march cat вне форума   Ответить с цитированием
Ответ


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Анализатор с ЖКИ nonfire Новички 1 21.01.2015 06:50
Кан анализатор jonni Лаборатория 3 10.12.2013 10:25
Анализатор с памятью Ang Новички 0 11.06.2011 12:44
Написал сканер-анализатор для keeloq Lestat Новички 11 25.08.2009 10:59
ЛОГИЧЕСКИЙ АНАЛИЗАТОР test Радиосвязь 6 25.05.2007 00:25


Текущее время: 11:56. Часовой пояс GMT +4.


Перевод: zCarot