'Este código é uma função de caractere chinês adicionada com base em outros. Muito obrigado, e obrigado pelo fogo fantasma e fumaça de lobo.
'O código de verificação de imagem anterior foi facilmente rachado, por isso é difícil quebrar com base nele para gerar caracteres chineses.
uso:
Insira o código em que a imagem do código de verificação precisa ser exibida <imgsrc = "code.asp">
Ao mesmo tempo, a sessão ("PSN") é gerada automaticamente e a sessão de verificação de envio do formulário é suficiente.
A cópia do código é a seguinte:
<%
'--------------------
'Código de verificação de imagem chinês de caracteres
'Este código é uma função de caractere chinês adicionada com base em outros. Muito obrigado, e obrigado pelo fogo fantasma e fumaça de lobo.
'O código de verificação de imagem anterior foi facilmente rachado, por isso é difícil quebrar com base nele para gerar caracteres chineses.
'Cada número adicional de interferências -> O custo do método exaustivo aumenta em cerca de 100*100 vezes
'Como definir adequadamente as chances de pontos diversos, pode efetivamente reduzir a correção do reconhecimento de software
'--------------------
OptionExplicit
CallCom_CreatValidCode ("SessionName")
REM gera imagem do código de verificação
Subcom_creatvalidcode (psn)
ConstCodelen = 4'Verification Código Número do dígito
ConstCodds = 4 'A probabilidade de pontos diversos aparecendo
ConstdBtTimes = 1 'Número de interferências (considerações de segurança, é melhor não ser menor que 2)
ConstCamount = 85 'de quantidade da biblioteca de fontes
Constccode = "O sol é tão bonito que a lua não está aberta, e a lua é tão bonita que a montanha é tão bonita que o fogo é tão grande que a madeira oeste é tão aberta, e a 9765ª palavra é apenas um peixe e o ovelha, o que pode ser o que é o que você pode fazer o que você pode fazer. Feng ai e Liu "'caracteres correspondentes.
ConstunitWidth = 28 'Largura da palavra (para ser múltiplos de 4)
Constunithight = 28 'Altura da palavra
ConstDotslimit = limite de 2'Upper para cada ponto válido excluído (evitando não autenticação)
ConsttryCount = 2 'Evite excluir o número de tentativas que excedem o limite superior dos pontos válidos
'-----------
Randomizar
Dimi, II, III
'Sem cache
Response.Expires = -9999
Response.addheader "Pragma", "No-Cache"
Response.addheader "cache-ctrol", "sem cache"
Response.ContentType = "Image/BMP"
'Dados coloridos (caracteres, fundo)
Dimvcolordata (1)
vcolordata (0) = chrb (0) e chrb (0) e chrb (0) 'azul 0, verde 0, vermelho 0 (preto)
vcolordata (1) = Chrb (211) e Chrb (255) e Chrb (250) 'azul 250, verde 236, vermelho 211 (azul claro)
Dados dos caracteres (você pode modificar você mesmo. Se você modificar o tamanho, lembre -se de alterar as configurações anteriores também)
DimvNumberData (85)
vNumberData (0) = ""