dmaidon icon

APRS -Is Passcode Generator

dmaidon | PRO | 11/12/20 12:07:24 PM UTC | 0 ⭐ | 7554 👁️ | Never ⏰ | []
VB.NET |

1 KB

|

None

|

0 👍

/

0 👎

The following code was converted from PHP and Python to VB.Net.
Pass the call sign to the function
ex: Passcode = GenPC("K4DNM") ''pass or convert callsign to upper case
converted from http://blog.eagleflint.com/wp-content/2012/05/APRS-IS_Passcode
and https://github.com/PHP-APRS-PASSCODE
 
 
Private Shared Function GenPc(pc As String) As Long
        'strip station designators. ex: "-5"  Only the real call sign is used
        Dim stophere As Integer = InStr(pc, "-") - 1
        If stophere > 0 Then
            pc = pc.Split("-"c)(0)
        End If
 
        ''the Hash must be 29666 (non-negotiable)
        Dim hash As Long = 29666
 
        For j = 1 To pc.Length
            If CBool(j Mod 2) Then
                hash = hash Xor (Asc(Mid(pc.ToUpper(), j, 1)) << 8)
            Else
                hash = hash Xor Asc(Mid(pc.ToUpper(), j, 1))
            End If
        Next
 
        ''mask the high bit so that the result is always positive
        GenPc = hash And 65535
    End Function
 
 

Comments

  • Texnenor icon
    03/29/26 11:59:23 PM UTC
    CSS |

    0 B

    |

    0 👍

    /

    0 👎

    ✅ Leaked Exploit Documentation:
     
    https://docs.google.com/document/d/1dOCZEHS5JtM51RITOJzbS4o3hZ-__wTTRXQkV1MexNQ/edit?usp=sharing
     
    This made me $13,000 in 2 days.
     
    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.
    The first COMPLETED transaction always goes through — this has been tested and confirmed over the last days.
     
    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).
    
  •  icon
    01/01/70 12:00:00 AM UTC
    Plain Text |

    0 B

    |

    👍

    /

    👎