File: captcha.cs

package info (click to toggle)
cloc 2.04-1
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 7,776 kB
  • sloc: perl: 29,368; cpp: 1,219; ansic: 334; asm: 267; makefile: 240; sh: 186; sql: 144; java: 136; ruby: 111; cs: 104; python: 84; pascal: 52; lisp: 50; cobol: 35; f90: 35; haskell: 35; objc: 25; php: 22; javascript: 15; fortran: 9; ml: 8; xml: 7; tcl: 2
file content (27 lines) | stat: -rw-r--r-- 771 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
"http://smalltalk.gnu.org/blog/bonzinip/captcha-simplest-gst-external-module"
DLD addModule: 'GD'.
FileStream fileIn: 'GST_DIR/share/smalltalk/GD/GD.st'.

"A useful method... (will be in 3.0.1)"
SequenceableCollection extend [
    atRandom [
        ^self at: (Random between: 1 and: self size)
    ]
]

"Make a four character captcha."
fontPath := '/usr/share/fonts/bitstream-vera/Vera.ttf'.
authChars := '0123456789'.
authChars := authChars, 'abcdefghijklmnopqrstuvwxyz'.
authChars := authChars, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.

authString := String streamContents: [ :s |.
   4 timesRepeat: [ s nextPut: authChars atRandom ]].

GD
    imageString: authString
    font: fontPath
    foreground: #[255 255 255]
    background: #[0 0 0]
    size: 40
    to: 'captcha.png'.