|Tripcode generator|.pb

Macro TranslateChar(Char)
Select Char     ; Symbol scanner.
Case ':' To '@' : Char - ':' + 'A'
Case '[' To '`' : Char - '[' + 'a'
Case '.' To 'z' ; NOOP
Default         : Char = '.'
EndSelect
EndMacro

Procedure.s Tripcode(Plain.s)
Define Salt.s{2}, *Char.Character = @Salt, *Char2.Character = @Salt + SizeOf(Character)
Define *Reader.Character = @Plain + SizeOf(Character)
Select Len(Plain)
Case 0, 1 : *Char\C = 'H' : *Char2\C = '.'                    ; Empty replacer.
Case 2    : *Char\C = *Reader\C : *Char2\C = '.'              ; Demi replacer.
Default   : *Char\C = *Reader\C : *Reader + SizeOf(Character) : *Char2\C = *Reader\C
EndSelect : TranslateChar(*Char\C) : TranslateChar(*Char2\C)  ; Symbol replacer.
ProcedureReturn Right(DESFingerprint(Plain, Salt), 10)
EndProcedure