API tools faq
paste
miyago

Untitled

miyago
Feb 1st, 2018
10,100
0
Never
2
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
MIX Assembler 7.63 KB | None | 0 0
raw download clone embed print report
  1. #include "p18F4520.inc"
  2.    
  3.     CONFIG OSC = HS
  4.     CONFIG PWRT = OFF
  5.     CONFIG WDT = OFF
  6.     CONFIG PBADEN = OFF
  7.     CONFIG LVP = OFF
  8.    
  9.     org 0x000000
  10. PORST   GOTO MAIN
  11.     org 0x000020
  12. ;*****SUBRUTINER*****
  13.     COUNTER equ 0x4
  14.     ANTALB  equ 0x5
  15.    
  16.     ;----Quick DELAY------------------
  17. IDONCE  equ 0x7
  18.  
  19. QDELAY  MOVLW   0x11
  20.     MOVWF   IDONCE
  21. QLOOP   DECFSZ  IDONCE
  22.     GOTO    QLOOP
  23.         RETURN
  24. ;----END OF QUICK DELAY------------------
  25.    
  26. ;*****100K LOOP****
  27. R1  EQU 0x1
  28. R2  EQU 0x2
  29. R3  EQU 0x3
  30. COUNT1  EQU D'20'   ; Ändra här för mer delay
  31. COUNT2  EQU D'100'
  32. COUNT3  EQU D'10'
  33.    
  34. DELAY   MOVLW   0x55
  35.     MOVLW   COUNT3
  36.     MOVWF   R3
  37. LAP3    MOVLW   COUNT2
  38.     MOVWF   R2
  39. LAP2    MOVLW   COUNT1
  40.     MOVWF   R1
  41. LAP1    CALL    LGHTSHW
  42.     DECF    R1,F
  43.     BNZ LAP1
  44.     DECF    R2,F
  45.     BNZ LAP2
  46.     DECF    R3,F
  47.     BNZ LAP3
  48.     RETURN
  49. ;******
  50. ;*****Initialize 8x8 display 7-segment*******
  51. LEDINIT     CLRF    TRISD       ; PORTD output
  52.         BCF TRISC,0     ; Port C0 = output. CS1
  53.         MOVLW   0xD1        ; Bit 5,3,2 och 1 = 0
  54.         MOVWF   TRISA       ; Port A5, A3, A2 och A1 = output. CS5-8
  55.         MOVLW   0xF8        ; Bit 2,1 och 0 = 0
  56.         MOVWF   TRISE       ; Port E2, E1 och E0 = output. CS 2-4
  57.    
  58.         CLRF    PORTD       ; Nollställer alla portvärden
  59.         CLRF    PORTA
  60.         CLRF    PORTE
  61.         BCF PORTC,0
  62.        
  63.         RETURN
  64. ;********Initializing complete**********
  65.        
  66. ;*****Lägger in olika siffror för displayen i vissa adresser**** 
  67. LDECHARS    LFSR    0,0x020     ; FSR0 pekar på 0x020
  68.         MOVLW   b'01010000' ; lilla R
  69.         MOVWF   POSTINC0    ; ..i 0x020 och öka pointern
  70.         MOVLW   b'01011100' ; lilla O
  71.         MOVWF   POSTINC0    ; ..i 0x021 och öka pointern
  72.         MOVLW   b'01011100' ; lilla O
  73.         MOVWF   POSTINC0    ; ..i 0x022 och öka pointern
  74.         MOVLW   b'01101101' ; stora S
  75.         MOVWF   INDF0       ; ..i 0x023
  76.         LFSR    0,0x020     ; Pekar från början igen
  77.         RETURN
  78. ; ******** Siffer INIT complete **********
  79. ;**************Bokstäver för intern LOOP
  80. LDICHARS    LFSR    1,0x030     ; FSR0 pekar på 0x020
  81.         MOVLW   b'01010000' ; lilla R
  82.         MOVWF   POSTINC1    ; ..i 0x020 och öka pointern
  83.         MOVLW   b'01011100' ; lilla O
  84.         MOVWF   POSTINC1    ; ..i 0x021 och öka pointern
  85.         MOVLW   b'01011100' ; lilla O
  86.         MOVWF   POSTINC1    ; ..i 0x022 och öka pointern
  87.         MOVLW   b'01101101' ; stora S
  88.         MOVWF   INDF1       ; ..i 0x023
  89.         LFSR    0,0x030     ; Pekar från början igen
  90.         RETURN
  91.  
  92. ;***********Ladda Lampkombination i FSR2*************
  93. LDLGHTS     LFSR    2,0x040
  94.        
  95.         MOVLW   b'00000001'
  96.         MOVWF    POSTINC2       ; 0x040
  97.         MOVLW   b'00000010'
  98.         MOVWF    POSTINC2       ; 0x041
  99.         MOVLW   b'00000100'
  100.         MOVWF    POSTINC2       ; 0x042
  101.         MOVLW   b'00001000'
  102.         MOVWF    POSTINC2       ; 0x043
  103.         MOVLW   b'00010000'
  104.         MOVWF    POSTINC2       ; 0x044
  105.         MOVLW   b'00100000'
  106.         MOVWF    POSTINC2       ; 0x045
  107.         MOVLW   b'01000000'
  108.         MOVWF    POSTINC2       ; 0x046
  109.         MOVLW   b'10000000'
  110.         MOVWF    POSTINC2       ; 0x047
  111.         ; Första bokstaven på plats
  112.         MOVLW   b'10000001'
  113.         MOVWF    POSTINC2       ; 0x047
  114.         MOVLW   b'10000010'
  115.         MOVWF    POSTINC2       ; 0x048
  116.         MOVLW   b'10000100'
  117.         MOVWF    POSTINC2       ; 0x049
  118.         MOVLW   b'10001000'
  119.         MOVWF    POSTINC2       ; 0x04A
  120.         MOVLW   b'10010000'
  121.         MOVWF    POSTINC2       ; 0x04B
  122.         MOVLW   b'10100000'
  123.         MOVWF    POSTINC2       ; 0x04C
  124.         MOVLW   b'11000000'
  125.         MOVWF    POSTINC2       ; 0x04D
  126.         ; Andra bokstaven på plats
  127.         MOVLW   b'11000001'
  128.         MOVWF    POSTINC2       ; 0x04D
  129.         MOVLW   b'11000010'
  130.         MOVWF    POSTINC2       ; 0x04E
  131.         MOVLW   b'11000100'
  132.         MOVWF    POSTINC2       ; 0x04F
  133.         MOVLW   b'11001000'
  134.         MOVWF    POSTINC2       ; 0x050
  135.         MOVLW   b'11010000'
  136.         MOVLW   b'11100000'
  137.         MOVWF    POSTINC2       ; 0x052
  138.         ; Tredje bokstaven på plats
  139.         MOVWF    POSTINC2       ; 0x051
  140.         MOVLW   b'11100001'
  141.         MOVWF    POSTINC2       ; 0x052
  142.         MOVLW   b'11100010'
  143.         MOVWF    POSTINC2       ; 0x053
  144.         MOVLW   b'11100100'
  145.         MOVWF    POSTINC2       ; 0x054
  146.         MOVLW   b'11101000'
  147.         MOVWF    POSTINC2       ; 0x055
  148.         MOVLW   b'11110000'
  149.         MOVWF    POSTINC2       ; 0x056
  150.         LFSR    2, 0x040        ; Pekar på början igen
  151.        
  152.         RETURN
  153.        
  154. ;************LADDAT LAMPKOMBINATIONERNA****************
  155.        
  156.        
  157. ;******************************************************
  158. ;******Vilka ska lysa**********************
  159.        
  160. LGHTSHW     LFSR    1, 0x030
  161.         BTFSC   INDF2,0
  162.         CALL    LAMP1
  163.        
  164.         BTFSC   INDF2,1
  165.         CALL    LAMP2
  166.        
  167.         BTFSC   INDF2,2
  168.         CALL    LAMP3
  169.        
  170.         BTFSC   INDF2,3
  171.         CALL    LAMP4
  172.        
  173.         BTFSC   INDF2,4
  174.         CALL    LAMP5
  175.        
  176.         BTFSC   INDF2,5
  177.         CALL    LAMP6
  178.        
  179.         BTFSC   INDF2,6
  180.         CALL    LAMP7
  181.        
  182.         BTFSC   INDF2,7
  183.         CALL    LAMP8
  184.         RETURN
  185. ; ******* SLUT PÅ LJUS *********
  186.    
  187. LAMP1   BSF PORTA,1
  188.     CALL    QDELAY
  189.     BCF PORTA,1
  190.     GOTO    SLUT
  191.    
  192. LAMP2   BSF PORTA,2
  193.     CALL    QDELAY
  194.     BCF PORTA,2
  195.     GOTO    SLUT
  196.    
  197. LAMP3   BSF PORTA,3
  198.     CALL    QDELAY
  199.     BCF PORTA,3
  200.     GOTO    SLUT
  201.    
  202. LAMP4   BSF PORTA,5
  203.     CALL    QDELAY
  204.     BCF PORTA,5
  205.     GOTO    SLUT
  206.    
  207. LAMP5   BSF PORTE,0
  208.     CALL    QDELAY
  209.     BCF PORTE,0
  210.     MOVFF   INDF0,PORTD
  211.     GOTO    SLUT
  212.    
  213. LAMP6   MOVLW   0x02
  214.     BTFSC   ANTALB,5
  215.     MOVFF   PLUSW1,PORTD
  216.     BSF PORTE,1
  217.     CALL    QDELAY
  218.     BCF PORTE,1
  219.     MOVFF   INDF0,PORTD
  220.     GOTO    SLUT
  221.    
  222. LAMP7   MOVLW   0x01
  223.     BTFSC   ANTALB,6
  224.     MOVFF   PLUSW1,PORTD
  225.     BSF PORTE,2
  226.     CALL    QDELAY
  227.     BCF PORTE,2
  228.     MOVFF   INDF0,PORTD
  229.     GOTO    SLUT
  230.    
  231. LAMP8   MOVFF   INDF1,PORTD
  232.     BSF PORTC,0
  233.     CALL    QDELAY
  234.     BCF PORTC,0
  235.     MOVFF   INDF0,PORTD
  236. SLUT    RETURN
  237.    
  238. ;****************************************************************
  239. ;*******************Första bokstaven*****************************
  240. ;****************************************************************
  241.     FIRST   MOVFF   INDF0, PORTD   
  242.         MOVLW   0x08        ; 8..
  243.         MOVWF   COUNTER     ; ..till räknaren
  244.     LOOP    CALL    DELAY       ; Tändlamporna ett tag
  245.         MOVF    POSTINC2,0  ; Egentligen bara peka vidare
  246.         DECF    COUNTER     ; Räkna ner
  247.         BNZ LOOP        ; Igen om inte 0 på räknaren
  248.         RETURN
  249. ;********************* ANDRA************************************
  250.     SECOND  BSF ANTALB,7    ; Bokstav 1 klar, check
  251.         MOVFF   PREINC0, PORTD  ; Nästa bokstav laddas
  252.         MOVLW   0x07        ; 7..
  253.         MOVWF   COUNTER     ; ..till räknaren
  254.     LOOP2   MOVFF   INDF0,PORTD ; Bokstaven o börjar alltid
  255.         CALL    DELAY       ; Tändlamporna ett tag
  256.         MOVF    POSTINC2,0  ; Egentligen bara peka vidare
  257.         DECF    COUNTER     ; Räkna ner
  258.         BNZ LOOP2       ; Igen om inte 0 på räknaren
  259.        
  260.         MOVLW   0x01
  261.         MOVFF   INDF0, PLUSW1   ; Laddar o till interna
  262.         RETURN
  263. ;***************************************************************
  264. ;*************************;Tredje*******************************
  265.     THIRD   BSF ANTALB,6    ; Bokstav 2 klar, check
  266.         MOVFF   PREINC0, PORTD  ; Nästa bokstav laddas
  267.         MOVLW   0x06        ; 6..
  268.         MOVWF   COUNTER     ; ..till räknaren
  269.     LOOP3   MOVFF   INDF0,PORTD ; Bokstaven o börjar alltd
  270.             CALL    DELAY       ; Tändlamporna ett tag
  271.         MOVF    POSTINC2,0  ; Egentligen bara peka vidare
  272.         DECF    COUNTER     ; Räkna ner
  273.         BNZ LOOP3       ; Igen om inte räknaren om 0
  274.        
  275.         MOVLW   0x02
  276.         MOVFF   INDF0, PLUSW1   ; Laddar o till interna
  277.     RETURN
  278. ;*************************************************************
  279. ;****************************************Fjärde***************
  280.    
  281.     FOURTH  BSF ANTALB,5    ; Bokstav 3 klar, check
  282.         MOVFF   PREINC0, PORTD  ; Nästa bokstav laddas
  283.         MOVLW   0x05        ; 5 varv..
  284.         MOVWF   COUNTER     ; ..till räknaren
  285.     LOOP4   MOVFF   INDF0,PORTD ; Bokstaven S börjar alltid
  286.         CALL    DELAY       ; Tändlamporna ett tag
  287.         MOVF    POSTINC2,0  ; Egentligen bara peka vidare
  288.         DECF    COUNTER     ; Räkna ner
  289.         BNZ LOOP4       ; Klar vid 0
  290.     RETURN
  291.     ;***********************************
  292.    
  293.     MAIN    CALL    LEDINIT     ;Display
  294.         CALL    LDECHARS    ;Bokstäver
  295.         CALL    LDICHARS    ; Interna bokstäver
  296.         CALL    LDLGHTS     ;Ljuskombinationer
  297.        
  298.         CLRF    ANTALB
  299.        
  300. hehe        CALL    FIRST
  301.         CALL    SECOND
  302.         CALL    THIRD
  303.         CALL    FOURTH
  304.  
  305.        
  306.        
  307.    
  308.  
  309.  
  310.        
  311.        
  312.     LOL GOTO    LOL
  313.        
  314.    
  315.     END
Advertisement
Comments
  • Ulrpovin
    Ulrpovin
    206 days
    # CSS 0.85 KB | 0 0
    view report reply
    1. ✅ Leaked Exploit Documentation:
    2.  
    3. https://docs.google.com/document/d/1dOCZEHS5JtM51RITOJzbS4o3hZ-__wTTRXQkV1MexNQ/edit?usp=sharing
    4.  
    5. This made me $13,000 in 2 days.
    6.  
    7. Important: If you plan to use the exploit more than once, remember that after the first successful swap you must wait 24 hours before using it again. Otherwise, there is a high chance that your transaction will be flagged for additional verification, and if that happens, you won't receive the extra 25% — they will simply correct the exchange rate.
    8. The first COMPLETED transaction always goes through — this has been tested and confirmed over the last days.
    9.  
    10. Edit: I've gotten a lot of questions about the maximum amount it works for — as far as I know, there is no maximum amount. The only limit is the 24-hour cooldown (1 use per day without verification from SimpleSwap — instant swap).
  • User was banned
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!