Password.swf 등의 플래쉬로 제작된 패스워드파일을 크랙하여

아이디와 패스워드를 추출하는 베이식 소스입니다.



베이식과 펄은 아주 비슷한 데가 많아 넘 좋은 것 같습니다. ^^;



아래 샘플사이트가 있으니 테스트 해보세요..



http://earth.interpia98.net/~amce2/test/level4/flash_secu.htm



http://myhome.shinbiro.com/~hklove99/fhw.htm





[Q] 사용법이 어떻게 되죠?

[A] 인증 플래쉬파일을 고질라나 겟라이트등으로 파일을 받아오셔서

SwfCrack filename.swf 하심 끝!



[Q] 플래쉬 인증 파일을 다운을 어떻게 받는단 말이지? 헷갈린다..

[A] 플래쉬 갯을 이용하세요..





REM /*******************************/

REM 플래쉬 패스워드 크랙 베이식 소스

REM /*******************************/

REM

REM 프로그램 이름 : SwfCrack

REM 기능 : swf 파일을 크랙하여 아이디와 패스워드 추출

REM 사용방법 : SwfCrack Filename.swf

REM 소 스 파일 이름 : SwfCrack.bas

REM 프로그램 작성자 : iBizCenter 정보보안전문가과정 김재우



DIM password AS STRING * 8

DIM asccode18 AS STRING * 1

DIM dummy AS STRING * 1

DIM Max AS LONG

DIM pospw AS LONG

DIM pos18 AS LONG

DIM flag1 AS INTEGER

DIM flag2 AS INTEGER



asccode18 = CHR$(18)



FileName$ = COMMAND$

Logo$ = " # SWF Flash Password Crack by Kim Jae-Woo"



IF FileName$ = "" THEN

COLOR 14, 0

PRINT Logo$

COLOR 15, 0

PRINT " o Usage : swfcrack [filename.swf]"

GOTO Quit

END IF



COLOR 14, 0

PRINT Logo$

COLOR 10, 0



OPEN FileName$ FOR BINARY ACCESS READ AS #1

Max = LOF(1)

IF Max = 0 THEN

PRINT "File not found!"

CLOSE #1

KILL FileName$

GOTO Quit

END IF

FOR i = 1 TO Max

SEEK #1, i

GET #1, , password

IF password = "password" THEN

pospw = i + 8: flag1 = 1: EXIT FOR

END IF

flag1 = 0

NEXT i



SELECT CASE flag1

CASE 0: PRINT "password not found!": GOTO Quit

CASE 1:

FOR i = pospw TO Max

SEEK #1, i

GET #1, , asccode18

IF asccode18 = CHR$(18) THEN

pos18 = i: flag2 = 3: EXIT FOR

END IF

flag2 = 2

NEXT i

SELECT CASE flag2

CASE 2: PRINT "File Error!": GOTO Quit

CASE 3:

FOR i = pospw TO pos18

SEEK #1, i

GET #1, , dummy

SELECT CASE ASC(dummy)

CASE 48 TO 57: PRINT dummy;

CASE 65 TO 90: PRINT dummy;

CASE 97 TO 122: PRINT dummy;

CASE 0: PRINT

CASE ELSE

END SELECT

NEXT i

END SELECT

END SELECT



Quit:

COLOR 7, 0

CLOSE

END